diff options
Diffstat (limited to 'testsuite/tests/programs/north_array')
| -rw-r--r-- | testsuite/tests/programs/north_array/Main.hs | 10 | ||||
| -rw-r--r-- | testsuite/tests/programs/north_array/Makefile | 3 | ||||
| -rw-r--r-- | testsuite/tests/programs/north_array/north_array.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/programs/north_array/test.T | 6 |
4 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/tests/programs/north_array/Main.hs b/testsuite/tests/programs/north_array/Main.hs new file mode 100644 index 0000000000..b6ceb706d6 --- /dev/null +++ b/testsuite/tests/programs/north_array/Main.hs @@ -0,0 +1,10 @@ +import Data.Array -- 1.3 + +val1, val2 :: Array (Int,Int) Int +val1 = array ((1,2), (2,1)) [] +val2 = array ((2,1), (1,2)) [] + +val3 :: Array Integer Double +val3 = array (4, -3) [] + +main = print ((val1 == val1) && (val2 == val2) && (val3 == val3)) diff --git a/testsuite/tests/programs/north_array/Makefile b/testsuite/tests/programs/north_array/Makefile new file mode 100644 index 0000000000..9101fbd40a --- /dev/null +++ b/testsuite/tests/programs/north_array/Makefile @@ -0,0 +1,3 @@ +TOP=../../.. +include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/test.mk diff --git a/testsuite/tests/programs/north_array/north_array.stdout b/testsuite/tests/programs/north_array/north_array.stdout new file mode 100644 index 0000000000..0ca95142bb --- /dev/null +++ b/testsuite/tests/programs/north_array/north_array.stdout @@ -0,0 +1 @@ +True diff --git a/testsuite/tests/programs/north_array/test.T b/testsuite/tests/programs/north_array/test.T new file mode 100644 index 0000000000..e2b89b4501 --- /dev/null +++ b/testsuite/tests/programs/north_array/test.T @@ -0,0 +1,6 @@ + +test('north_array', + [skip_if_fast, extra_clean(['Main.hi', 'Main.o'])], + multimod_compile_and_run, + ['Main', '']) + |