[project @ 2000-03-09 13:31:54 by simonpj]

Add fixity tests

diff --git a/ghc/tests/numeric/should_run/num010.hs b/ghc/tests/numeric/should_run/num010.hs
new file mode 100644 (file)
index 0000000..027b5e8
--- /dev/null
+++ b/ghc/tests/numeric/should_run/num010.hs
@@ -0,0 +1,13 @@
+-- !!! tests that local fixity declarations work
+
+-- If local fixity decls don't work you get "14"
+-- The right answer is "11"
+
+val = 3 +! 4 *! 2
+    where (+!) = (+)
+          (*!) = (*)
+          infixl 6 +!
+          infixl 7 *!
+
+main = print val
+

diff --git a/ghc/tests/numeric/should_run/num010.stdout b/ghc/tests/numeric/should_run/num010.stdout
new file mode 100644 (file)
index 0000000..b4de394
--- /dev/null
+++ b/ghc/tests/numeric/should_run/num010.stdout
@@ -0,0 +1 @@
+11