Add testcase for #3551

openmodelica/diff/AddDeleteComponent.mos

@@ -26,7 +26,11 @@ if s1<>diffModelicaFileListings(contents, s2, OpenModelica.Scripting.DiffFormat.
   print("\nStart model:\n\n" + contents + "\n");
   print("\ndeleteComponent+listFile:\n\n" + s2 + "\n");
   print("\nDiff:\n\n" + diffModelicaFileListings(contents, s2) + "\n");
+  print("\nDiff from expected:\n\n" + diffModelicaFileListings(s1, s2) + "\n");
   print(getErrorString());
+  writeFile("a",s1);
+  writeFile("b",s2);
+  system("diff -u a b");
 end if;
 print("OK\n");
 

openmodelica/diff/Makefile

@@ -8,6 +8,7 @@ AddComponent2.mos \
 AddDeleteComponent.mos \
 ChangeSourceFile.mos \
 ListFile.mos \
+removeComponentModifiers.mos \
 TestDiffListAPI.mos
 
 # test that currently fail. Move up when fixed.

openmodelica/diff/removeComponentModifiers.mos

@@ -0,0 +1,27 @@
+// status: correct
+
+echo(false);
+s1 := "model M1
+  A a(abc = 23) annotation(Placement(visible = true, transformation(origin={10,30},    extent = {{-30, -30}, {30, 30}}, rotation = 180)));
+end M1;";
+loadString(s1, "M1.mo");
+getErrorString();
+removeComponentModifiers(M1, "a");
+getErrorString();
+answer := "model M1
+  A a annotation(Placement(visible = true, transformation(origin={10,30},    extent = {{-30, -30}, {30, 30}}, rotation = 180)));
+end M1;";
+s2 := listFile(M1);
+if answer<>diffModelicaFileListings(s1, s2, OpenModelica.Scripting.DiffFormat.plain) then
+  print("\nFailed \n");
+  print("\nStart model:\n\n" + s1 + "\n");
+  print("\nremoveComponentModifiers + listFile:\n\n" + s2 + "\n");
+  print("\nDiff:\n\n" + diffModelicaFileListings(s1, s2) + "\n");
+  print(getErrorString());
+  exit(1);
+end if;
+print("OK\n");
+
+// Result:
+// OK
+// endResult