Issue #404 - Added unit tests

tests/base.scm

@@ -31,6 +31,21 @@
   (test 2.0 (denominator (/ 6 4)))
 )
 
+(test-group
+  "records"
+  (define-record-type employee
+     (make-employee name title)
+     employee?
+     (name get-name)
+     (title get-title)
+     (test get-test set-test!)) ;; Uninitialized by constructor
+  (define e (make-employee "test-name" "job 1"))
+
+  (test #f (get-test e))
+  (set-test! e 'test-field)
+  (test 'test-field (get-test e))
+)
+
 (test-group
   "I/O"
   (define p (open-input-string "one\ntwo\n"))