tests: ads inventory test

Author: Torwent

.github/workflows/tests.yml

@@ -49,32 +49,14 @@ jobs:
           path: ./Includes/SRLT
 
       - name: Run tests
+        shell: bash
         run: |
-          # Get all .simba files in the tests folder, sorted numerically
-          $testFiles = Get-ChildItem -Path ./Includes/SRLT/tests/*.simba | Sort-Object Name
-
-          # Check if any test files were found
-          if ($testFiles.Count -eq 0) {
-              Write-Output "::error::No .simba test files found."
-              exit 1
-          }
-
-          # Run each test file
-          foreach ($testFile in $testFiles) {
-              Write-Output "Running test: $($testFile.FullName)"
-
-              $output = .\Simba-Win32.exe --run $testFile.FullName
-              Write-Output $output
-              if (-not ($output -match "Successfully executed in \d+ milliseconds\.")) {
-                  Write-Output "::error::Simba-Win32.exe failed on $($testFile.Name)."
-                  exit 1
-              }
-
-              $output = .\Simba-Win64.exe --run $testFile.FullName
-              Write-Output $output
-              if (-not ($output -match "Successfully executed in \d+ milliseconds\.")) {
-                  Write-Output "::error::Simba-Win64.exe failed on $($testFile.Name)."
-                  exit 1
-              }
-          }
+          testFiles=(./Includes/SRLT/tests/*.simba)
+
+          for testFile in "${testFiles[@]}"; do
+              echo "Running test: $testFile" on 32 bits
+              ./Simba-Win32.exe --run "$testFile"
+              echo "Running test: $testFile" on 64 bits
+              ./Simba-Win64.exe --run "$testFile"
+          done
 

osrs/interfaces/mainscreen/bank.simba

@@ -121,7 +121,7 @@ begin
   Self.Title.Setup(Self.Bounds);
 
   Self.Tabs := TBoxArray.Create(Self.Bounds.TopLeft.Offset(47, 42), 10, 1, 35, 28, [5, 0]);
-  Self.SlotBoxes := TBoxArray.Create(Self.Bounds.TopLeft.Offset(57, 77), 8, (Self.Bounds.Height - 135) div 35, 31, 31, [17, 5]);
+  //Self.SlotBoxes := TBoxArray.Create(Self.Bounds.TopLeft.Offset(57, 77), 8, (Self.Bounds.Height - 135) div 35, 31, 31, [17, 5]);
 
   Self.SlotsArea.X1 := Self.Bounds.X1 + 57;
   Self.SlotsArea.Y1 := Self.Bounds.Y1 + 77;

osrs/interfaces/setup.simba

@@ -46,6 +46,27 @@ begin
 end;
 {$H+}
 
+
+procedure SaveAnonymousScreenshot(const filename: String);
+var
+  img: TImage;
+begin
+  try
+    img := TImage.CreateFromTarget();
+    img.DrawColor := $FFFFFF;
+
+    if Chat.IsOpen() then
+      img.DrawBoxFilled(Chat.GetDisplayNameBox());
+
+    if XPBar.IsOpen() and XPBar.Setup() then
+      img.DrawBoxFilled(XPBar.Bounds);
+
+    img.Save(filename);
+  finally
+    img.Free();
+  end;
+end;
+
 begin
   Target.AddEvent(ETargetEvent.TARGET_RESIZE, @TargetResized);
   RSClient.IsLoggedIn();

tests/001.simba

@@ -0,0 +1,27 @@
+//gametabs and inventory tests
+{$I SRLT/osrs.simba}
+{$ASSERTIONS ON}
+
+const
+  PATH: String = {$MACRO DIR} + 'imgs' + PATH_SEP;
+  MODES: TStringArray = ['fixed', 'resizable_classic', 'resizable_modern_small', 'resizable_modern_large'];
+  FILENAME: String := PATH_SEP + PathExtractNameWithoutExt(SCRIPT_FILE) + '.png';
+var
+  mode: String;
+  img: TImage;
+begin
+  for mode in modes do
+  begin
+    if not FileExists(PATH + mode + FILENAME) then continue;
+    img := TImage.Create(PATH + mode + FILENAME);
+    Target.SetImage(img);
+
+    RSClient.Mode := RSClient.DetectClientMode();
+    SetupInterfaces();
+
+    Assert(Inventory.IsOpen());
+    //Assert(Inventory.Slots.Count() = 9);
+
+    img.Free();
+  end;
+end;

tests/imgs/fixed/001.png

@@ -72,7 +72,7 @@ begin
 end;
 
 
-function RandomColor: TColor;
+function RandomColor(): TColor;
 var
   R, G, B: Byte;
 begin