Move ix001 to base/tests
authorIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:33:50 +0000 (23:33 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:33:50 +0000 (23:33 +0000)
tests/all.T
tests/ix001.hs [new file with mode: 0644]
tests/ix001.stdout [new file with mode: 0644]

index dc3483d..b96722a 100644 (file)
@@ -22,4 +22,5 @@ test('hash001', normal, compile_and_run, [''])
 test('lexNum', normal, compile_and_run, [''])
 test('take001', extra_run_opts('1'), compile_and_run, [''])
 test('genericNegative001', extra_run_opts('-1'), compile_and_run, [''])
+test('ix001', normal, compile_and_run, [''])
 
diff --git a/tests/ix001.hs b/tests/ix001.hs
new file mode 100644 (file)
index 0000000..c723472
--- /dev/null
@@ -0,0 +1,4 @@
+import Data.Ix
+import Data.Int
+
+main = print (index (minBound::Int16,maxBound) maxBound)
diff --git a/tests/ix001.stdout b/tests/ix001.stdout
new file mode 100644 (file)
index 0000000..7a53b35
--- /dev/null
@@ -0,0 +1 @@
+65535