* sort arrays to prevent fs ordering differences

Villavu · Feb 22, 2024 · d78acb9 · d78acb9
1 parent 92ffa0b
commit d78acb9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Tests/zip.simba b/Tests/zip.simba
@@ -19,7 +19,7 @@ begin
 
   ZipFiles(SimbaEnv.TempPath + 'test.zip', [SimbaEnv.TempPath + 'file1.txt', SimbaEnv.TempPath + 'file2.txt', SimbaEnv.TempPath + 'file3.txt']);
 
-  Entries := ZipReadEntries(ZipFile);
+  Entries := Sorted(ZipReadEntries(ZipFile));
   Assert(Length(Entries) = 3);
   Assert(Entries[0] = 'file1.txt');
   Assert(Entries[1] = 'file2.txt');
@@ -34,7 +34,7 @@ begin
 
   ZipExtract(ZipFile, OutputDir);
 
-  Files := DirList(OutputDir);
+  Files := Sorted(DirList(OutputDir));
   Assert(Length(Files) = 3);
   Assert(PathExtractName(Files[0]) = 'file1.txt');
   Assert(PathExtractName(Files[1]) = 'file2.txt');
@@ -49,7 +49,7 @@ begin
 
   ZipExtractEntry(ZipFile, 'file1.txt', OutputDir);
 
-  Files := DirList(OutputDir);
+  Files := Sorted(DirList(OutputDir));
   Assert(Length(Files) = 1);
   Assert(PathExtractName(Files[0]) = 'file1.txt');
 end;
@@ -61,7 +61,7 @@ begin
   Clean();
 
   Assert(ZipExtractEntries(ZipFile, OutputDir, ['file2.txt', 'file3.txt', 'nope']) = 2);
-  Files := DirList(OutputDir);
+  Files := Sorted(DirList(OutputDir));
   Assert(Length(Files) = 2);
   Assert(PathExtractName(Files[0]) = 'file2.txt');
   Assert(PathExtractName(Files[1]) = 'file3.txt');