@@ -71,7 +71,7 @@ main = do
71 if errors tcounts + failures tcounts > 0 then exitFailure else exitSuccess
71 if errors tcounts + failures tcounts > 0 then exitFailure else exitSuccess
73testList :: Test
73testList :: Test
74−testList = TestList [testHaskell2DB, testADT1, testADT2, testADT3, testADT4, testADT5, testBasicMarshaling, testListInstance, testNonEmptyInstance, testADT6Maybe, testADT7Either, testNonPrimitiveValues]
74+testList = TestList [testHaskell2DB, testADT1, testADT2, testADT3, testADT4, testADT5, testBasicMarshaling, testListInstance, testNonEmptyInstance, testADT6Maybe, testADT7Either, testNonPrimitiveValues, testManyFields]
77-- test some basic data types like int, day, etc.
77-- test some basic data types like int, day, etc.
@@ -170,8 +170,8 @@ testNonPrimitiveValues = TestCase $ do
170--test both odd and even product types with more than 2 fields
170--test both odd and even product types with more than 2 fields
171testManyFields :: Test
171testManyFields :: Test
172testManyFields = TestCase $ do
172testManyFields = TestCase $ do
173− let example4 = Test9_4T 1 2 3 4
173+ let example4 = Test9_4C 1 2 3 4
174 assertEqual "four fields product type" example4 (fromAtom (toAtom example4))
174 assertEqual "four fields product type" example4 (fromAtom (toAtom example4))
176− let example5 = Test9_5T 1 2 3 4 5
176+ let example5 = Test9_5C 1 2 3 4 5
177 assertEqual "five fields product type" example5 (fromAtom (toAtom example5))
177 assertEqual "five fields product type" example5 (fromAtom (toAtom example5))