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)