summaryrefslogtreecommitdiff
path: root/testsuite/tests/runtime-errors/syserror.ml
blob: d5230ad7cfd163c30ef1a8473a5e0f3e932115e2 (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
(* TEST

flags = "-w -a"

* setup-ocamlc.byte-build-env
** ocamlc.byte
*** run
exit_status = "2"
**** libunix
***** check-program-output
reference = "${test_source_directory}/syserror.unix.reference"
**** libwin32unix
***** check-program-output
reference = "${test_source_directory}/syserror.win32.reference"

* setup-ocamlopt.byte-build-env
** ocamlopt.byte
*** run
exit_status = "2"
**** libunix
***** check-program-output
reference = "${test_source_directory}/syserror.unix.reference"
**** libwin32unix
***** check-program-output
reference = "${test_source_directory}/syserror.win32.reference"

*)

let _ = Printexc.record_backtrace false

let channel = open_out "titi:/toto"