[[ Tests ]] Only iterate shared groups once

montegoulding · montegoulding · commit 7c2cc49007fb · 2017-09-23T10:26:01.000+10:00
diff --git a/tests/core/scriptstatus.livecodescript b/tests/core/scriptstatus.livecodescript
@@ -71,8 +71,19 @@ private command __RecursiveTest pObject
          repeat for each line tID in the cardIDs of pObject
             __RecursiveTest the long id of card id tID of pObject
          end repeat
+         repeat for each line tID in the sharedGroupIDs of pObject
+            __RecursiveTest the long id of group id tID of pObject
+         end repeat
          break
       case "card"
+         repeat for each line tID in the childControlIDs of pObject
+            if word 1 of the name of control id tID of pObject is "group" and \
+                  the sharedBehavior of pObject then
+               next repeat
+            end if
+            __RecursiveTest the long id of control id tID of pObject
+         end repeat
+         break
       case "group"
       case "background"
       case "bkgnd"
