Add test for bug 2428

2 files changed, 30 insertions, 0 deletions

diff --git a/tests/nonRegression/bug2428.sci b/tests/nonRegression/bug2428.sci
new file mode 100644
index 0000000..bbc23d3
--- /dev/null
+++ b/tests/nonRegression/bug2428.sci
@@ -0,0 +1,29 @@
+// Non-regression test file for bug 2428
+// Copyright INRIA
+// Scilab Project - Vincent COUVERT
+
+//mode(-1);
+clear;
+
+MFILE=TMPDIR+"/bug2428.m"
+SCIFILE=TMPDIR+"/bug2428.sci"
+
+correct=%T;
+
+MFILECONTENTS=["function bug2428";
+    "global gui_settings";
+    "i = 1;";
+    "a = gui_settings.pn_mem{i}"]
+
+fd=mopen(MFILE,"w");
+mputl(MFILECONTENTS,fd);
+mclose(fd);
+
+ierr=execstr("mfile2sci("""+MFILE+""","""+TMPDIR+""")","errcatch")
+correct=correct&ierr==0;
+
+//affich_result(correct,2428);
+disp(correct);
+clear
+
+
diff --git a/tests/nonRegression/list_nonreg.txt b/tests/nonRegression/list_nonreg.txt
index 00f0ddd..6abe801 100644
--- a/tests/nonRegression/list_nonreg.txt
+++ b/tests/nonRegression/list_nonreg.txt
@@ -172,5 +172,6 @@
 2407
 2410
 2414
+2428
 2429
 2430