From 51df2210347dcdb87c867b6d3aaee57d3833deb9 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 12 Feb 2012 13:40:16 +0900 Subject: [PATCH] Adding make-rtd test. --- tests/record-tests.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/record-tests.scm b/tests/record-tests.scm index 91671e82..22f30e57 100644 --- a/tests/record-tests.scm +++ b/tests/record-tests.scm @@ -172,4 +172,9 @@ ;; (test-assert (not (rtd-field-mutable? foo 'x))) +(define point (make-rtd "point" #(x y))) +(define make-point (rtd-constructor point #(x y))) +(define point-x (rtd-accessor point 'x)) +(test 3 (point-x (make-point 3 2))) + (test-end)