Tests moved to 'runtime-errors'

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9581 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

7 files changed, 97 insertions, 0 deletions

diff --git a/testsuite/tests/runtime-errors/Makefile b/testsuite/tests/runtime-errors/Makefile
new file mode 100644
index 0000000000..ffaccdf474
--- /dev/null
+++ b/testsuite/tests/runtime-errors/Makefile
@@ -0,0 +1,25 @@
+default: compile run
+
+compile:
+	@for f in *.ml; do \
+	  $(OCAMLC) -w a -o `basename $$f ml`bytecode $$f; \
+	  $(OCAMLOPT) -w a -o `basename $$f ml`native $$f; \
+	done
+	@if [ ! `grep -c HAS_STACK_OVERFLOW_DETECTION ../../../config/s.h` ]; then \
+	  rm -f stackoverflow.bytecode stackoverflow.native; \
+	fi
+
+run:
+	@for f in *.bytecode; do \
+	  echo -n " ... testing '$$f':"; \
+	  (./$$f > $$f.result 2>&1; true); \
+	  diff -q $$f.reference $$f.result > /dev/null || (echo " => failed" && exit 1) && echo " => passed"; \
+	  echo -n " ... testing '`basename $$f bytecode`native':"; \
+	  (./`basename $$f bytecode`native > `basename $$f bytecode`native.result 2>&1; true); \
+	  diff -q `basename $$f bytecode`native.reference `basename $$f bytecode`native.result > /dev/null || (echo " => failed" && exit 1) && echo " => passed"; \
+	done
+
+clean: defaultclean
+	@rm -f *.bytecode *.native *.result
+
+include ../../makefiles/Makefile.common
diff --git a/testsuite/tests/runtime-errors/stackoverflow.bytecode.reference b/testsuite/tests/runtime-errors/stackoverflow.bytecode.reference
new file mode 100644
index 0000000000..745f81aef7
--- /dev/null
+++ b/testsuite/tests/runtime-errors/stackoverflow.bytecode.reference
@@ -0,0 +1,5 @@
+x = 196608
+x = 131072
+x = 65536
+x = 0
+Stack overflow caught
diff --git a/test/Moretest/stackoverflow.ml b/testsuite/tests/runtime-errors/stackoverflow.ml
index 4d211bc828..4d211bc828 100644
--- a/test/Moretest/stackoverflow.ml
+++ b/testsuite/tests/runtime-errors/stackoverflow.ml
diff --git a/testsuite/tests/runtime-errors/stackoverflow.native.reference b/testsuite/tests/runtime-errors/stackoverflow.native.reference
new file mode 100644
index 0000000000..835095c58e
--- /dev/null
+++ b/testsuite/tests/runtime-errors/stackoverflow.native.reference
@@ -0,0 +1,65 @@
+x = 4128768
+x = 4063232
+x = 3997696
+x = 3932160
+x = 3866624
+x = 3801088
+x = 3735552
+x = 3670016
+x = 3604480
+x = 3538944
+x = 3473408
+x = 3407872
+x = 3342336
+x = 3276800
+x = 3211264
+x = 3145728
+x = 3080192
+x = 3014656
+x = 2949120
+x = 2883584
+x = 2818048
+x = 2752512
+x = 2686976
+x = 2621440
+x = 2555904
+x = 2490368
+x = 2424832
+x = 2359296
+x = 2293760
+x = 2228224
+x = 2162688
+x = 2097152
+x = 2031616
+x = 1966080
+x = 1900544
+x = 1835008
+x = 1769472
+x = 1703936
+x = 1638400
+x = 1572864
+x = 1507328
+x = 1441792
+x = 1376256
+x = 1310720
+x = 1245184
+x = 1179648
+x = 1114112
+x = 1048576
+x = 983040
+x = 917504
+x = 851968
+x = 786432
+x = 720896
+x = 655360
+x = 589824
+x = 524288
+x = 458752
+x = 393216
+x = 327680
+x = 262144
+x = 196608
+x = 131072
+x = 65536
+x = 0
+Stack overflow caught
diff --git a/testsuite/tests/runtime-errors/syserror.bytecode.reference b/testsuite/tests/runtime-errors/syserror.bytecode.reference
new file mode 100644
index 0000000000..3f6219a225
--- /dev/null
+++ b/testsuite/tests/runtime-errors/syserror.bytecode.reference
@@ -0,0 +1 @@
+Fatal error: exception Sys_error("titi:/toto: No such file or directory")
diff --git a/test/Moretest/syserror.ml b/testsuite/tests/runtime-errors/syserror.ml
index 46f62eadb0..46f62eadb0 100644
--- a/test/Moretest/syserror.ml
+++ b/testsuite/tests/runtime-errors/syserror.ml
diff --git a/testsuite/tests/runtime-errors/syserror.native.reference b/testsuite/tests/runtime-errors/syserror.native.reference
new file mode 100644
index 0000000000..3f6219a225
--- /dev/null
+++ b/testsuite/tests/runtime-errors/syserror.native.reference
@@ -0,0 +1 @@
+Fatal error: exception Sys_error("titi:/toto: No such file or directory")