[21500] Added tests

livecodepanos · livecodepanos · commit c0f3485134cf · 2018-08-21T12:07:51.000+03:00
diff --git a/tests/lcs/core/engine/_ungroupandquit.livecodescript b/tests/lcs/core/engine/_ungroupandquit.livecodescript
@@ -0,0 +1,8 @@
+script "_ungroupandquit"
+on startup
+    create button "one"
+    create button "two"
+    group button "one" and button "two"
+    ungroup the last group
+    quit 0
+end startup
diff --git a/tests/lcs/core/engine/engine.livecodescript b/tests/lcs/core/engine/engine.livecodescript
@@ -501,3 +501,19 @@ wait 2 ticks
 TestAssert "the ticks change with time", the ticks - tTime >= 2
 end TestTicks
 
+on TestUngroupAndQuit
+    -- Bug 21500: run a subprocess in which we ungroup a group and
+    -- then quit, to test that it no longer crashes
+   local tStackToRun, tOptions
+   put the effective filename of me into tStackToRun
+   set the itemdelimiter to slash
+   if the environment is not "server" then
+      put "_ungroupandquit.livecodescript" into item -1 of tStackToRun
+      if the environment contains "command line" then
+         put "-ui" into tOptions
+      end if
+   end if
+   TestRunStack tOptions, tStackToRun
+   TestAssert "ungroup does not crash on quit", the result is empty
+end TestUngroupAndQuit
+
