9 lines
274 B
OCaml
9 lines
274 B
OCaml
let () =
|
|
Format.printf "succes code is %d@\n" Exit.success_code;
|
|
Format.printf "failure code is %d@\n" Exit.failure_code;
|
|
if Exit.success_code = 0 && Exit.failure_code = 1 then Exit.success ()
|
|
else begin
|
|
Format.printf "not POSIX !@\n";
|
|
Exit.failure ()
|
|
end
|