summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorFrancois Vogel <fvogelnew1@free.fr>2007-03-16 20:16:21 +0000
committerFrancois Vogel <fvogelnew1@free.fr>2007-03-16 20:16:21 +0000
commit666694a12cf35e846f61f4bda3b094c8d253d106 (patch)
tree8c51385bf34ba9484c30efcfe53eed097852f885 /tests
parent468120416c76987fcaeb0c0e26279e5bf56bc0f4 (diff)
downloadscilab-666694a12cf35e846f61f4bda3b094c8d253d106.zip
scilab-666694a12cf35e846f61f4bda3b094c8d253d106.tar.gz
Non regression test for bug 2344
Diffstat (limited to 'tests')
-rw-r--r--tests/nonRegression/bug2344.sci31
-rw-r--r--tests/nonRegression/list_nonreg.txt2
2 files changed, 32 insertions, 1 deletions
diff --git a/tests/nonRegression/bug2344.sci b/tests/nonRegression/bug2344.sci
new file mode 100644
index 0000000..38f8482
--- /dev/null
+++ b/tests/nonRegression/bug2344.sci
@@ -0,0 +1,31 @@
1// Non-regression test file for bug 2344
2// Author : Francois Vogel
3// Date : 16 March 2007
4//
5// Extracted and expanded from dassldasrt.tst
6
7//X1DOT + 10.0*X1 = 0
8//X1 + X2 = 1
9//X1(0) = 1.0, X2(0) = 0.0
10
11mode(-1);
12clear;
13
14t=1:10;t0=0;y0=[1;0];y0d=[-10;0];
15info=list([],0,[],[],[],0,0);
16deff('[r,ires]=dres1(t,y,ydot)','r=[ydot(1)+10*y(1);y(2)+y(1)-1];ires=0')
17
18ml = 1; mu = 1;
19info(3)=[ml,mu];
20
21execstr("yy0=dassl([y0,y0d],t0,t,dres1,info);","errcatch")
22error_str = lasterror();
23
24if and(error_str == []) then
25 affich_result(%T,2344); // No regression
26else
27 affich_result(%F,2344); // Bug 2344 re-appeared!!
28end
29
30clear
31
diff --git a/tests/nonRegression/list_nonreg.txt b/tests/nonRegression/list_nonreg.txt
index fae8b07..55bb4ee 100644
--- a/tests/nonRegression/list_nonreg.txt
+++ b/tests/nonRegression/list_nonreg.txt
@@ -163,4 +163,4 @@
1632322 1632322
1642333 1642333
1652341 1652341
166 1662344