Skip to content

Commit f31da38

Browse files
author
Aleksandra Pasek
committed
Merge branch 'topic/edit-utils__executable_path-test-dir-to-lowercase' into 'master'
testsuite: utils__executable_path test change dir to lowercase See merge request eng/toolchain/gnatcoll-core!37
2 parents c238637 + 2edaedf commit f31da38

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)