ags4-auto-test: tests may consist of multiple stages (and rooms)

Author: ivan-mogilko

ags4/auto-test/GlobalScript.asc

@@ -19,71 +19,9 @@ function repeatedly_execute_always()
 // called when a key is pressed
 function on_key_press(eKeyCode keycode, int mod)
 {
-  if (IsGamePaused())
-  {
-    // game paused, so don't react to any keypresses
-    keycode = 0;
-  }
-  else if (keycode == eKeyQ && (mod & eKeyModCtrl))
-  {
-    // Ctrl-Q will quit the game
-    QuitGame(1);
-  }
-  else if (keycode == eKeyF9)
-  {
-    // F9 will restart the game
-    RestartGame();
-  }
-  else if (keycode == eKeyF12)
-  {
-    // F12 will save a screenshot to the save game folder
-    SaveScreenShot("screenshot.pcx");
-  }
-  else if (mod & eKeyModCtrl)
-  {
-    if (keycode == eKeyS)
-    {
-      // Ctrl-S will give the player all defined inventory items
-      Debug(0, 0);
-    }
-    else if (keycode == eKeyV)
-    {
-      // Ctrl-V will show game engine version and build date
-      Debug(1, 0);
-    }
-    else if (keycode == eKeyA)
-    {
-      // Ctrl-A will show walkable areas
-      Debug(2, 3);
-    }
-    else if (keycode == eKeyX)
-    {
-      // Ctrl-X will let the player teleport to any room
-      Debug(3, 0);
-    }
-  }
 }
 
 // called when a mouse button is clicked
 function on_mouse_click(MouseButton button)
 {
-  if (IsGamePaused())
-  {
-    // game is paused, so do nothing (i.e. don't process mouse clicks)
-  }
-  else if (button == eMouseLeft)
-  {
-    // left-click, so try using the current mouse cursor mode at this position
-    Room.ProcessClick(mouse.x, mouse.y, mouse.Mode);
-  }
-  else if (button == eMouseRight)
-  {
-    // right-click, so cycle the mouse cursor mode
-    mouse.SelectNextMode();
-  }
-}
-
-function dialog_request(int param)
-{
-
 }

ags4/auto-test/Rooms/1/room1.asc

@@ -1,9 +1,11 @@
 // room script file
 // Room1.asc
 //
-// This room runs all tests
+// This room runs the stage 1 tests
 
 function room_AfterFadeIn()
 {
-  RunTests();
+  BeginTests();
+  RunStage1Tests();
+  FinishTests();
 }

ags4/auto-test/run-tests.asc

@@ -1,6 +1,8 @@
 // new module script
 
-void RunTests()
+int TotalTestCount;
+
+void BeginTests()
 {
   int test_count = 0;
   test_count += GetTestMathsCount();
@@ -16,8 +18,29 @@ void RunTests()
   test_count += GetTestEngineRenderCount();
   test_count += GetTestPathfindingCount();
 
+  TotalTestCount = test_count;
+  
   tap.clean_test();
   tap.plan(test_count);
+}
+
+void FinishTests()
+{
+  tap.done_testing();
+  
+  if (tap.AnyTestFailed()) {
+    AbortGame("ERROR: test(s) have failed.");
+  }
+  
+  if (tap.PlannedTests != tap.ExecutedTests) {
+    AbortGame("ERROR: Plan mismatch! Planned %d tests, but ran %d tests.", tap.PlannedTests, tap.ExecutedTests);
+  }
+  
+  QuitGame(0);
+}
+
+void RunStage1Tests()
+{
   TestString();
   TestMaths();
   TestSet();
@@ -30,15 +53,4 @@ void RunTests()
   TestMisc();
   TestPathfinding();
   TestEngineRender();
-  tap.done_testing();
-  
-  if(tap.AnyTestFailed()) {
-    AbortGame("ERROR: test(s) have failed.");
-  }
-  
-  if(tap.PlannedTests != tap.ExecutedTests) {
-    AbortGame("ERROR: Plan mismatch! Planned %d tests, but ran %d tests.", tap.PlannedTests, tap.ExecutedTests);
-  }
-  
-  QuitGame(0);
-}
+}

ags4/auto-test/run-tests.ash

@@ -1,2 +1,5 @@
 // new module header
-import void RunTests();
+import void BeginTests();
+import void FinishTests();
+
+import void RunStage1Tests();