From: simonpj <unknown>
Date: Thu, 9 Mar 2000 13:31:54 +0000 (+0000)
Subject: [project @ 2000-03-09 13:31:54 by simonpj]
X-Git-Tag: Approximately_9120_patches~5030
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7f2cd04d9c32fb445e2a4513f6bfc34ffc143cee;p=ghc-hetmet.git

[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
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
index 0000000..b4de394
--- /dev/null
+++ b/ghc/tests/numeric/should_run/num010.stdout
@@ -0,0 +1 @@
+11