Updated tests for new record syntax

test/HaskellRecords.curry

 module HaskellRecords where
 
-data R a = C { l :: Int, x :: a }
-         | D { l :: Int }
+-- data R a = C { l :: Int, x :: a }
+--          | D { l :: Int }
+--
+-- -- construction
+-- r1 :: R Bool
+-- r1 = C { l = 42, x = True }
+--
+-- r2 :: R a
+-- r2 = C {}
+--
+-- -- pattern matching
+-- fun :: R a -> Bool
+-- fun C { l = 42 } = True
+--
+-- fun2 :: R a -> Bool
+-- fun2 C {} = False
+--
+-- -- update
+-- upd :: R Bool -> R Bool
+-- upd r = r { x = False, l = 0 }
+--
+-- -- selection
+-- getL :: R a -> Int
+-- getL r = l r
 
--- construction
-r1 :: R Bool
-r1 = C { l = 42, x = True }
+data R = C { label :: Int, l2 :: Bool }
 
-r2 :: R a
-r2 = C {}
+r :: R
+r = C { label = 42, l2 = True }
 
--- pattern matching
-fun :: R a -> Bool
-fun C { l = 42 } = True
+r' :: R
+r' = r { label = 73 }
 
-fun2 :: R a -> Bool
-fun2 C {} = False
-
--- update
-upd :: R Bool -> R Bool
-upd r = r { x = False, l = 0 }
-
--- selection
-getL :: R a -> Int
-getL r = l r
+unr :: R
+unr = C { l2 = True }
\ No newline at end of file

test/RecordTest.curry

-module RecordTest where
+module RecordTest (Agent, lastName, trueIdentity, mike) where
 
-import HaskellRecords
+data Person = Person { firstName :: String, lastName :: String }
+            | Agent  { lastName :: String, trueIdentity :: Person }
 
-r = C 73 False
+mike :: Person
\ No newline at end of file
+mike = Person { firstName = "Mike", lastName = "Smith" }
\ No newline at end of file

test/RecordTest2.curry

 module RecordTest2 where
 
-import RecursiveRecords
+import RecordTest
+
+updLN = mike { lastName = "Doe" }
 
-showR :: R Int -> String
-showR r = show (r :> f1) ++ (r :> f2)