@@ -71,7 +71,7 @@ main = do
7171 if errors tcounts + failures tcounts > 0 then exitFailure else exitSuccess
7272
7373testList :: 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]
7575
7676
7777-- test some basic data types like int, day, etc.
@@ -170,8 +170,8 @@ testNonPrimitiveValues = TestCase $ do
170170--test both odd and even product types with more than 2 fields
171171testManyFields :: Test
172172testManyFields = TestCase $ do
173− let example4 = Test9_4T 1 2 3 4
173+ let example4 = Test9_4C 1 2 3 4
174174 assertEqual "four fields product type" example4 (fromAtom (toAtom example4))
175175
176− let example5 = Test9_5T 1 2 3 4 5
176+ let example5 = Test9_5C 1 2 3 4 5
177177 assertEqual "five fields product type" example5 (fromAtom (toAtom example5))