Tests moved to 'basic-more'

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

13 files changed, 28 insertions, 2 deletions

diff --git a/testsuite/tests/basic-more/Makefile b/testsuite/tests/basic-more/Makefile
new file mode 100644
index 0000000000..18f9c9b2cf
--- /dev/null
+++ b/testsuite/tests/basic-more/Makefile
@@ -0,0 +1,4 @@
+MODULES=testing
+
+include ../../makefiles/Makefile.several
+include ../../makefiles/Makefile.common
diff --git a/test/Moretest/bounds.ml b/testsuite/tests/basic-more/bounds.ml
index a785c3c46c..7fe52a1f57 100644
--- a/test/Moretest/bounds.ml
+++ b/testsuite/tests/basic-more/bounds.ml
@@ -7,7 +7,7 @@ let trail = ref []
 let test n =
   let result =
     try
-      trail := n :: !trail; a.(n); "doesn't fail"
+      trail := n :: !trail; ignore a.(n); "doesn't fail"
     with Invalid_argument s ->
            (* Check well-formedness of s *)
            if String.length s = 19
diff --git a/testsuite/tests/basic-more/bounds.reference b/testsuite/tests/basic-more/bounds.reference
new file mode 100644
index 0000000000..5d34a60254
--- /dev/null
+++ b/testsuite/tests/basic-more/bounds.reference
@@ -0,0 +1,9 @@
+0: doesn't fail
+1: doesn't fail
+2: doesn't fail
+3: fails
+4: fails
+-1: fails
+Trail: -1 4 3 2 1 0
+
+All tests succeeded.
diff --git a/test/Moretest/morematch.ml b/testsuite/tests/basic-more/morematch.ml
index d15a221c8b..e45234d008 100644
--- a/test/Moretest/morematch.ml
+++ b/testsuite/tests/basic-more/morematch.ml
@@ -43,6 +43,7 @@ let g x = match x with
 | 6 -> 5
 | 7 | 8 -> 6
 | 9 -> 7
+| _ -> assert false
 ;;
 
 test "deux" g 5 4 ;
diff --git a/testsuite/tests/basic-more/morematch.reference b/testsuite/tests/basic-more/morematch.reference
new file mode 100644
index 0000000000..197c928071
--- /dev/null
+++ b/testsuite/tests/basic-more/morematch.reference
@@ -0,0 +1,2 @@
+
+All tests succeeded.
diff --git a/test/Moretest/tbuffer.ml b/testsuite/tests/basic-more/tbuffer.ml
index d48268db21..d48268db21 100644
--- a/test/Moretest/tbuffer.ml
+++ b/testsuite/tests/basic-more/tbuffer.ml
diff --git a/testsuite/tests/basic-more/tbuffer.reference b/testsuite/tests/basic-more/tbuffer.reference
new file mode 100644
index 0000000000..e41ae64944
--- /dev/null
+++ b/testsuite/tests/basic-more/tbuffer.reference
@@ -0,0 +1,2 @@
+0 1 
+All tests succeeded.
diff --git a/test/Moretest/testrandom.ml b/testsuite/tests/basic-more/testrandom.ml
index 150d408898..150d408898 100644
--- a/test/Moretest/testrandom.ml
+++ b/testsuite/tests/basic-more/testrandom.ml
diff --git a/testsuite/tests/basic-more/testrandom.reference b/testsuite/tests/basic-more/testrandom.reference
new file mode 100644
index 0000000000..d0916f952f
--- /dev/null
+++ b/testsuite/tests/basic-more/testrandom.reference
@@ -0,0 +1,4 @@
+582.751366306 140.791689359 330.020920806 410.471260708 315.248400694 126.148465548 490.668149921 440.231318386 352.194067624 737.177321647 573.03024971 707.73552045 766.880082827 328.350422992 47.6270454553 757.043216481 148.95535319 965.852937051 568.913375608 292.969708311 995.264572128 
+
+810 51 695 564 481 36 786 184 20 465 142 106 64 10 65 918 77 137 92 386 33 
+All tests succeeded.
diff --git a/test/Moretest/tformat.ml b/testsuite/tests/basic-more/tformat.ml
index d02cb2907a..afad529708 100644
--- a/test/Moretest/tformat.ml
+++ b/testsuite/tests/basic-more/tformat.ml
@@ -10,7 +10,7 @@
 (*                                                                       *)
 (*************************************************************************)
 
-(* $Id$
+(* $Id: tformat.ml 9270 2009-05-20 11:52:42Z doligez $
 
 A testbed file for the module Format.
 
diff --git a/testsuite/tests/basic-more/tformat.reference b/testsuite/tests/basic-more/tformat.reference
new file mode 100644
index 0000000000..117423261c
--- /dev/null
+++ b/testsuite/tests/basic-more/tformat.reference
@@ -0,0 +1,2 @@
+0 
+All tests succeeded.
diff --git a/test/Moretest/tprintf.ml b/testsuite/tests/basic-more/tprintf.ml
index 518859da2c..518859da2c 100644
--- a/test/Moretest/tprintf.ml
+++ b/testsuite/tests/basic-more/tprintf.ml
diff --git a/testsuite/tests/basic-more/tprintf.reference b/testsuite/tests/basic-more/tprintf.reference
new file mode 100644
index 0000000000..d804a0b893
--- /dev/null
+++ b/testsuite/tests/basic-more/tprintf.reference
@@ -0,0 +1,2 @@
+0 1 2 3 4 5 
+All tests succeeded.