From f2b020d412ef847623822061740dafa5b32c3ef0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 31 Jan 2018 13:16:42 -0500
Subject: [PATCH] New file for testing purposes only

---
 test-record-types.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 test-record-types.scm

diff --git a/test-record-types.scm b/test-record-types.scm
new file mode 100644
index 00000000..01b6867e
--- /dev/null
+++ b/test-record-types.scm
@@ -0,0 +1,23 @@
+;; Temporary test file!!
+(import (scheme base) (scheme write))
+      (define-record-type employee
+        (make-employee name title)
+        employee?
+        (name get-name)
+        (title get-title))
+      (define-record-type employee2
+        (make-employee2 name title)
+        employee2?
+        (name get-name2)
+        (title get-title2))
+(let ((e (make-employee "Bob" "Doctor")))
+  (newline)(display (employee? e))
+  (newline)(display (employee2? e))
+  (newline)(display e)
+  (newline)(display (vector-ref e 0))
+  (newline)(display (vector-ref e 1))
+  (newline)(display (vector-ref e 2))
+  ;; Why is name false after this, instead of 'employee??
+  (newline)(display ((make-constructor "make-employee" employee)))
+  (newline)(display employee)
+)