testsuite: Add test for #14828
authorBen Gamari <ben@smart-cactus.org>
Tue, 22 Jan 2019 21:58:04 +0000 (16:58 -0500)
committerBen Gamari <ben@smart-cactus.org>
Thu, 31 Jan 2019 17:46:51 +0000 (12:46 -0500)
testsuite/tests/ghci/scripts/T14828.script [new file with mode: 0644]
testsuite/tests/ghci/scripts/all.T

diff --git a/testsuite/tests/ghci/scripts/T14828.script b/testsuite/tests/ghci/scripts/T14828.script
new file mode 100644 (file)
index 0000000..bb0650f
--- /dev/null
@@ -0,0 +1,18 @@
+:t foldl
+:print foldl
+
+:t fmap
+:print fmap
+
+:t return
+:print return
+
+:t pure
+:print pure
+
+:m + Data.Monoid
+:p mempty
+:p mappend
+
+:m + Data.List
+:p foldl'
\ No newline at end of file
index 2cb93b8..575d9eb 100755 (executable)
@@ -291,3 +291,4 @@ test('T15941', normal, ghci_script, ['T15941.script'])
 test('T16030', normal, ghci_script, ['T16030.script'])
 test('T11606', normal, ghci_script, ['T11606.script'])
 test('T16089', normal, ghci_script, ['T16089.script'])
+test('T14828', expect_broken(14828), ghci_script, ['T14828.script'])