Add regress tests for fusion rules. Makes sure they fire, and rewrite to correct result

b6995a5e · Don Stewart · bb214739 · b6995a5e · b6995a5e · b6995a5e
Commit b6995a5e authored Jul 02, 2006 by Don Stewart
--- a/testsuite/tests/ghc-regress/lib/Data.ByteString/all.T
+++ b/testsuite/tests/ghc-regress/lib/Data.ByteString/all.T
 test('bytestring001', normal, compile_and_run, ['-package QuickCheck'])
 test('bytestring002', normal, compile_and_run, [''])
 test('bytestring003', normal, compile_and_run, [''])
+test('bytestring004', normal, compile_and_run, ['-package QuickCheck'])
--- a/testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring004.hs
+++ b/testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring004.hs
--- a/testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring004.stdout
+++ b/testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring004.stdout
+down/down     list       : OK, 100 tests.
+down/filter   list       : OK, 100 tests.
+down/map      list       : OK, 100 tests.
+filter/down   lazy       : OK, 100 tests.
+filter/down   list       : OK, 100 tests.
+filter/filter lazy       : OK, 100 tests.
+filter/filter list       : OK, 100 tests.
+filter/map    lazy       : OK, 100 tests.
+filter/map    list       : OK, 100 tests.
+filter/up     lazy       : OK, 100 tests.
+filter/up     list       : OK, 100 tests.
+map/down      lazy       : OK, 100 tests.
+map/down      list       : OK, 100 tests.
+map/filter    lazy       : OK, 100 tests.
+map/filter    list       : OK, 100 tests.
+map/map       lazy       : OK, 100 tests.
+map/map       list       : OK, 100 tests.
+map/up        lazy       : OK, 100 tests.
+map/up        list       : OK, 100 tests.
+up/filter     lazy       : OK, 100 tests.
+up/filter     list       : OK, 100 tests.
+up/map        lazy       : OK, 100 tests.
+up/map        list       : OK, 100 tests.
+up/up         lazy       : OK, 100 tests.
+up/up         list       : OK, 100 tests.
+noacc/noacc   lazy       : OK, 100 tests.
+noacc/noacc   list       : OK, 100 tests.
+noacc/up      lazy       : OK, 100 tests.
+noacc/up      list       : OK, 100 tests.
+up/noacc      lazy       : OK, 100 tests.
+up/noacc      list       : OK, 100 tests.
+map/noacc     lazy       : OK, 100 tests.
+map/noacc     list       : OK, 100 tests.
+noacc/map     lazy       : OK, 100 tests.
+noacc/map     list       : OK, 100 tests.
+filter/noacc  lazy       : OK, 100 tests.
+filter/noacc  list       : OK, 100 tests.
+noacc/filter  lazy       : OK, 100 tests.
+noacc/filter  list       : OK, 100 tests.
+noacc/down    lazy       : OK, 100 tests.
+noacc/down    list       : OK, 100 tests.
+down/noacc    list       : OK, 100 tests.
+length/loop   list       : OK, 100 tests.
+maximum/loop  list       : OK, 100 tests.
+minimum/loop  list       : OK, 100 tests.