diff options
Diffstat (limited to 'testsuite/tests/parser/prog001')
| -rw-r--r-- | testsuite/tests/parser/prog001/Makefile | 3 | ||||
| -rw-r--r-- | testsuite/tests/parser/prog001/Read006.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/parser/prog001/Read007.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/parser/prog001/test.T | 4 |
4 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/tests/parser/prog001/Makefile b/testsuite/tests/parser/prog001/Makefile new file mode 100644 index 0000000000..9101fbd40a --- /dev/null +++ b/testsuite/tests/parser/prog001/Makefile @@ -0,0 +1,3 @@ +TOP=../../.. +include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/test.mk diff --git a/testsuite/tests/parser/prog001/Read006.hs b/testsuite/tests/parser/prog001/Read006.hs new file mode 100644 index 0000000000..87546cb550 --- /dev/null +++ b/testsuite/tests/parser/prog001/Read006.hs @@ -0,0 +1,5 @@ +-- !!! Testing handling of troublesome constructor name (:::) +module Read006 (MyList(Empty, (:::))) where + +data MyList a = Empty + | (MyList a) ::: (MyList a) diff --git a/testsuite/tests/parser/prog001/Read007.hs b/testsuite/tests/parser/prog001/Read007.hs new file mode 100644 index 0000000000..a0c2ec0f44 --- /dev/null +++ b/testsuite/tests/parser/prog001/Read007.hs @@ -0,0 +1,8 @@ +module ShouldCompile where + +import Read006 + +myLength :: MyList a -> Int +myLength Empty = 0 +myLength (x ::: xs) = 1 + myLength xs + diff --git a/testsuite/tests/parser/prog001/test.T b/testsuite/tests/parser/prog001/test.T new file mode 100644 index 0000000000..b667211196 --- /dev/null +++ b/testsuite/tests/parser/prog001/test.T @@ -0,0 +1,4 @@ +test('parser.prog001', + extra_clean(['Read006.hi', 'Read006.o', 'Read007.hi', 'Read007.o']), + multimod_compile, + ['Read007.hs', '-v0']) |