From e3aed9b884aff00e6924a166fc86628d8dfd1187 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 30 Jun 2011 16:14:47 -0400 Subject: [PATCH] motivating the need for make-struct-type --- tests/more-tests/run-more-tests.rkt | 3 ++- tests/more-tests/simple-structs.expected | 2 ++ tests/more-tests/simple-structs.rkt | 6 ++++++ 3 files changed, 10 insertions(+), 1 deletion(-) create mode 100644 tests/more-tests/simple-structs.expected create mode 100644 tests/more-tests/simple-structs.rkt diff --git a/tests/more-tests/run-more-tests.rkt b/tests/more-tests/run-more-tests.rkt index 460ca52..95d2da9 100644 --- a/tests/more-tests/run-more-tests.rkt +++ b/tests/more-tests/run-more-tests.rkt @@ -2,4 +2,5 @@ (require "../browser-harness.rkt") -(test "hello.rkt" "hello.expected") \ No newline at end of file +(test "hello.rkt" "hello.expected") +(test "simple-structs.rkt" "simple-structs.expected") \ No newline at end of file diff --git a/tests/more-tests/simple-structs.expected b/tests/more-tests/simple-structs.expected new file mode 100644 index 0000000..b944734 --- /dev/null +++ b/tests/more-tests/simple-structs.expected @@ -0,0 +1,2 @@ +3 +4 diff --git a/tests/more-tests/simple-structs.rkt b/tests/more-tests/simple-structs.rkt new file mode 100644 index 0000000..35f21dc --- /dev/null +++ b/tests/more-tests/simple-structs.rkt @@ -0,0 +1,6 @@ +#lang planet dyoo/whalesong +(define-struct p (f r)) + +(define p1 (make-p 3 4)) +(p-f p1) +(p-r p1)