Add testcase for #3410

OpenModelica · Sep 3, 2015 · d6e8568 · d6e8568
1 parent b00b52f
commit d6e8568
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 0 deletions.
diff --git a/openmodelica/diff/ListFile.mos b/openmodelica/diff/ListFile.mos
@@ -0,0 +1,27 @@
+// status: correct
+
+loadString("package P1
+end P1;", "P1", "UTF-8");
+getErrorString();
+listFile(P1);
+getErrorString();
+loadString("within P1; model M1
+end M1;", "P1", "UTF-8");
+getErrorString();
+listFile(P1);
+getErrorString();
+
+// Result:
+// true
+// ""
+// "package P1
+// end P1;"
+// ""
+// true
+// ""
+// "package P1
+//   model M1
+//   end M1;
+// end P1;"
+// ""
+// endResult
diff --git a/openmodelica/diff/Makefile b/openmodelica/diff/Makefile
@@ -5,6 +5,7 @@ TESTFILES = \
 AddComponent.mos \
 AddComponent2.mos \
 ChangeSourceFile.mos \
+ListFile.mos \
 TestDiffListAPI.mos
 
 # test that currently fail. Move up when fixed.