main :: IO ()
main = defaultMain $ testGroup "tests" [testCase "should compile" testcase
                                       ,testCase "writer impl" writecase]
  where testcase  = assertEqual "correct results" opresults (exec op)
        writecase = assertEqual "correct writes"  opresults (exec opw)
        opresults = [RRes "bar", LRes "foo"]
main :: IO ()
main = defaultMain $ testGroup "tests" [testCase "should compile" testcase
                                       ,testCase "writer impl" writecase]
  where testcase  = assertEqual "correct results" opresults (exec op)
        writecase = assertEqual "correct writes"  opresults (exec opw)
        opresults = [RRes "bar", LRes "foo"]
main = defaultMain $ testGroup "tests" [testCase "should compile" testcase
                                       ,testCase "writer impl" writecase]
  where testcase  = assertEqual "correct results" opresults (exec op)
        writecase = assertEqual "correct writes"  opresults (exec opw)
        opresults = [RRes "bar", LRes "foo"]