Skip to content

Commit 2edaedf

Browse files
author
Aleksandra Pasek
committed
testsuite: utils__executable_path test change dir to lowercase
This test creates a directory named "Bin". This is incompatible with the run-cross linux qemu driver as the shared folder between host and qemu target uses the FAT filesystem. Change the directory name to "bin" as the case does not seem integral to the test. Issue: gnatcoll-core#10
1 parent c238637 commit 2edaedf

File tree

1 file changed

+4
-4
lines changed
  • testsuite/tests/utils/executable_path

1 file changed

+4
-4
lines changed

testsuite/tests/utils/executable_path/test.adb

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -19,10 +19,10 @@ begin
1919
Success : Boolean;
2020
begin
2121
A.Assert (OS.Is_Regular_File (Exe_Path));
22-
if not OS.Is_Directory ("Bin") then
23-
Dir.Create_Directory ("Bin");
24-
OS.Copy_File (Exe_Path, "Bin", Success, Preserve => OS.Full);
25-
Process_Status := OS.Spawn ("Bin/test", Args => (1 .. 0 => null));
22+
if not OS.Is_Directory ("bin") then
23+
Dir.Create_Directory ("bin");
24+
OS.Copy_File (Exe_Path, "bin", Success, Preserve => OS.Full);
25+
Process_Status := OS.Spawn ("bin/test", Args => (1 .. 0 => null));
2626
A.Assert (Process_Status = 0);
2727
end if;
2828
Dir.Set_Directory ("..");

0 commit comments

Comments
 (0)