Non regression test for bug 2344

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 @@
+// Non-regression test file for bug 2344

+// Author : Francois Vogel

+// Date   : 16 March 2007

+//

+// Extracted and expanded from dassldasrt.tst

+

+//X1DOT + 10.0*X1 = 0  

+//X1 + X2 = 1

+//X1(0) = 1.0, X2(0) = 0.0

+

+mode(-1);

+clear;

+

+t=1:10;t0=0;y0=[1;0];y0d=[-10;0];

+info=list([],0,[],[],[],0,0);

+deff('[r,ires]=dres1(t,y,ydot)','r=[ydot(1)+10*y(1);y(2)+y(1)-1];ires=0')

+

+ml = 1; mu = 1;

+info(3)=[ml,mu];

+

+execstr("yy0=dassl([y0,y0d],t0,t,dres1,info);","errcatch")

+error_str = lasterror();

+

+if and(error_str == []) then

+    affich_result(%T,2344);  // No regression

+else

+    affich_result(%F,2344);  // Bug 2344 re-appeared!!

+end

+

+clear

+

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 @@
 2322
 2333
 2341
-
+2344