Skip to content
Snippets Groups Projects
Commit 8309c4c5 authored by Patrick Baudin's avatar Patrick Baudin
Browse files

[ptests] Adds warning on invalid LOG/BIN directives of EXEC/EXECNOW

parent 993ab515
No related branches found
No related tags found
No related merge requests found
...@@ -751,11 +751,13 @@ end = struct ...@@ -751,11 +751,13 @@ end = struct
try try
Scanf.sscanf s.ex_cmd "%_[ ]LOG%_[ ]%[-A-Za-z0-9_',+=:.\\@@]%_[ ]%s@\n" Scanf.sscanf s.ex_cmd "%_[ ]LOG%_[ ]%[-A-Za-z0-9_',+=:.\\@@]%_[ ]%s@\n"
(fun name cmd -> (fun name cmd ->
if name = "" then fail (file ^": EXEC"^ (if once then "NOW" else "") ^ " directive with an invalid LOG filename: " ^ s.ex_cmd);
aux { s with ex_cmd = cmd; ex_log = name :: s.ex_log }) aux { s with ex_cmd = cmd; ex_log = name :: s.ex_log })
with Scanf.Scan_failure _ -> with Scanf.Scan_failure _ ->
try try
Scanf.sscanf s.ex_cmd "%_[ ]BIN%_[ ]%[A-Za-z0-9_.\\-@@]%_[ ]%s@\n" Scanf.sscanf s.ex_cmd "%_[ ]BIN%_[ ]%[A-Za-z0-9_.\\-@@]%_[ ]%s@\n"
(fun name cmd -> (fun name cmd ->
if name = "" then fail (file ^": EXEC"^ (if once then "NOW" else "") ^ " directive with an invalid BIN filename: " ^ s.ex_cmd);
aux { s with ex_cmd = cmd; ex_bin = name :: s.ex_bin }) aux { s with ex_cmd = cmd; ex_bin = name :: s.ex_bin })
with Scanf.Scan_failure _ -> with Scanf.Scan_failure _ ->
try try
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment