We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents c238637 + 2edaedf commit f31da38Copy full SHA for f31da38
testsuite/tests/utils/executable_path/test.adb
@@ -19,10 +19,10 @@ begin
19
Success : Boolean;
20
begin
21
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));
+ if not OS.Is_Directory ("bin") then
+ Dir.Create_Directory ("bin");
+ OS.Copy_File (Exe_Path, "bin", Success, Preserve => OS.Full);
+ Process_Status := OS.Spawn ("bin/test", Args => (1 .. 0 => null));
26
A.Assert (Process_Status = 0);
27
end if;
28
Dir.Set_Directory ("..");
0 commit comments