summaryrefslogtreecommitdiff
path: root/testsuite/tests/runtime-errors/syserror.ml
blob: 5cab8e3bd53c1ac4b55e28c87521b9eeca22b64a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(* TEST
 flags = "-w -a";
 {
   setup-ocamlc.byte-build-env;
   ocamlc.byte;
   exit_status = "2";
   run;
   {
     libunix;
     reference = "${test_source_directory}/syserror.unix.reference";
     check-program-output;
   }{
     libwin32unix;
     reference = "${test_source_directory}/syserror.win32.reference";
     check-program-output;
   }
 }{
   setup-ocamlopt.byte-build-env;
   ocamlopt.byte;
   exit_status = "2";
   run;
   {
     libunix;
     reference = "${test_source_directory}/syserror.unix.reference";
     check-program-output;
   }{
     libwin32unix;
     reference = "${test_source_directory}/syserror.win32.reference";
     check-program-output;
   }
 }
*)

let _ = Printexc.record_backtrace false

let channel = open_out "titi:/toto"