diff options
| -rw-r--r-- | testsuite/tests/lib-bigarray/Makefile | 4 | ||||
| -rw-r--r-- | testsuite/tests/lib-bigarray/bigarrays.ml (renamed from test/Moretest/bigarrays.ml) | 0 | ||||
| -rw-r--r-- | testsuite/tests/lib-bigarray/bigarrays.reference | 61 | ||||
| -rw-r--r-- | testsuite/tests/lib-bigarray/fftba.ml (renamed from test/Moretest/fftba.ml) | 8 | ||||
| -rw-r--r-- | testsuite/tests/lib-bigarray/fftba.reference | 13 |
5 files changed, 85 insertions, 1 deletions
diff --git a/testsuite/tests/lib-bigarray/Makefile b/testsuite/tests/lib-bigarray/Makefile new file mode 100644 index 000000000..bb5076e75 --- /dev/null +++ b/testsuite/tests/lib-bigarray/Makefile @@ -0,0 +1,4 @@ +LIBRARIES=unix bigarray + +include ../../makefiles/Makefile.several +include ../../makefiles/Makefile.common diff --git a/test/Moretest/bigarrays.ml b/testsuite/tests/lib-bigarray/bigarrays.ml index 85901400e..85901400e 100644 --- a/test/Moretest/bigarrays.ml +++ b/testsuite/tests/lib-bigarray/bigarrays.ml diff --git a/testsuite/tests/lib-bigarray/bigarrays.reference b/testsuite/tests/lib-bigarray/bigarrays.reference new file mode 100644 index 000000000..bdc7beae2 --- /dev/null +++ b/testsuite/tests/lib-bigarray/bigarrays.reference @@ -0,0 +1,61 @@ + +------ Array1 -------- + +create/set/get + 1... 2... 3... 4... 5... 6... 7... 8... 9... 10... 11... 12... +set/get (specialized) + 1... 2... 3... 4... 5... 6... 7... 8... 8... 9... 10... 11... 12... 13... 14... 15... 16... 17... 18... 19... +set/get (unsafe, specialized) + 1... 2... 3... 6... 7... 8... +comparisons + 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... 44... 45... 46... 47... 48... 49... +dim + 1... 2... +kind & layout + 1... 2... 1... 2... +sub + 1... 2... 3... 4... 5... 6... 7... 8... 9... +blit, fill + 1... 2... 3... 4... 5... 6... 7... 8... 9... 10... 11... 12... + +------ Array2 -------- + +create/set/get + 1... 2... 3... 4... 5... 6... 7... 8... 9... 10... 11... 12... 13... 14... +set/get (specialized) + 1... 2... 3... 4... 5... 6... 7... 8... 9... 10... +set/get (unsafe, specialized) + 1... 2... +dim + 1... 2... 3... 4... +sub + 1... 2... +slice + 1... 2... 3... 4... 5... 6... 7... 8... + +------ Array3 -------- + +create/set/get + 1... 2... 3... 4... 5... 6... 7... 8... 9... 10... 11... 12... 13... 14... +set/get (specialized) + 1... 2... +set/get (unsafe, specialized) + 1... +dim + 1... 2... 3... 4... 5... 6... +slice1 + 1... 2... 3... 4... 5... 6... 7... + +------ Reshaping -------- + +reshape_1 + 1... 2... +reshape_2 + 1... 2... 3... 4... 5... 6... 7... + +------ I/O -------- + +output_value/input_value + 1... 2... 3... 4... 5... 6... 7... 8... 9... 10... 11... 12... 13... 14... +map_file + 1... 2... 3... 4... diff --git a/test/Moretest/fftba.ml b/testsuite/tests/lib-bigarray/fftba.ml index 0bbd2d407..a772876ec 100644 --- a/test/Moretest/fftba.ml +++ b/testsuite/tests/lib-bigarray/fftba.ml @@ -10,7 +10,7 @@ (* *) (***********************************************************************) -(* $Id$ *) +(* $Id: fftba.ml 2938 2000-03-10 14:54:41Z xleroy $ *) open Bigarray @@ -182,8 +182,14 @@ let test np = ki := i end done; +(* let zm = if abs_float !zr < abs_float !zi then !zi else !zr in print_float zm; print_newline() +*) + if abs_float !zr <= 1e-9 && abs_float !zi <= 1e-9 + then print_string "ok" + else print_string "ERROR"; + print_newline() let _ = diff --git a/testsuite/tests/lib-bigarray/fftba.reference b/testsuite/tests/lib-bigarray/fftba.reference new file mode 100644 index 000000000..71017f70f --- /dev/null +++ b/testsuite/tests/lib-bigarray/fftba.reference @@ -0,0 +1,13 @@ +16... ok +32... ok +64... ok +128... ok +256... ok +512... ok +1024... ok +2048... ok +4096... ok +8192... ok +16384... ok +32768... ok +65536... ok |