Updated tests for Haskell's record syntax

test/HaskellRecords.curry

-module HaskellRecords (R (C)) where
+module HaskellRecords (R (C), getL) where
 
 data R a = C { l :: Int, x :: a }
 
 -- 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

test/RecordTest.curry

-{-# LANGUAGE Records #-}
 module RecordTest where
 
-type Record =
-  { intField  :: Int
-  , boolField :: Bool
-  }
+import HaskellRecords
 
-empty = { intField := 0, boolField := False }
-
+r = C 73 False
\ No newline at end of file
-full = { intField := 1, boolField := True }
-
-expr = empty :> intField + 1 == 0
-
-match { intField = i | _ } = i
-
--- int :: { intField :: Int | a }
--- int = { intField := 0 }
-
-type Record2 =
-  { intField2  :: Int
-  , boolField2 :: Bool
-  }
-
-test = { intField2 := 0, boolField2 := True }