summaryrefslogtreecommitdiff
path: root/test-suite/vm/t-records.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/vm/t-records.scm')
-rw-r--r--test-suite/vm/t-records.scm14
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/vm/t-records.scm b/test-suite/vm/t-records.scm
new file mode 100644
index 000000000..9aa4daac6
--- /dev/null
+++ b/test-suite/vm/t-records.scm
@@ -0,0 +1,14 @@
+;;; SRFI-9 Records.
+;;;
+
+(use-modules (srfi srfi-9))
+
+(define-record-type <stuff>
+ (%make-stuff chbouib)
+ stuff?
+ (chbouib stuff:chbouib stuff:set-chbouib!))
+
+
+(and (stuff? (%make-stuff 12))
+ (= 7 (stuff:chbouib (%make-stuff 7)))
+ (not (stuff? 12)))