From b266d489abe544056d24fa21e82d67cf0606f23b Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 9 Jan 2012 12:38:20 -0500 Subject: [PATCH] adding the test case that exposes Whalesong's non-implementation of parsing inline variants --- tests/more-tests/simple.expected | 1 + tests/more-tests/simple.rkt | 5 +++++ tests/run-more-tests.rkt | 1 + version.rkt | 2 +- 4 files changed, 8 insertions(+), 1 deletion(-) create mode 100644 tests/more-tests/simple.expected create mode 100644 tests/more-tests/simple.rkt diff --git a/tests/more-tests/simple.expected b/tests/more-tests/simple.expected new file mode 100644 index 0000000..0cfbf08 --- /dev/null +++ b/tests/more-tests/simple.expected @@ -0,0 +1 @@ +2 diff --git a/tests/more-tests/simple.rkt b/tests/more-tests/simple.rkt new file mode 100644 index 0000000..abc0e22 --- /dev/null +++ b/tests/more-tests/simple.rkt @@ -0,0 +1,5 @@ + #lang planet dyoo/whalesong +;; This should invoke the use of inline-variant from 5.2.1 +(provide f) +(define (f x) x) +(f 2) \ No newline at end of file diff --git a/tests/run-more-tests.rkt b/tests/run-more-tests.rkt index 5c0bc7e..ebb6649 100644 --- a/tests/run-more-tests.rkt +++ b/tests/run-more-tests.rkt @@ -6,6 +6,7 @@ ;; content vs. a text file with the same name, but with the .rkt file ;; type replaced with .expected. +(test "more-tests/simple.rkt") (test "more-tests/booleans.rkt") (test "more-tests/checking.rkt") (test "more-tests/string-tests.rkt") diff --git a/version.rkt b/version.rkt index 6b087ca..fd7bc77 100644 --- a/version.rkt +++ b/version.rkt @@ -7,4 +7,4 @@ (provide version) (: version String) -(define version "1.104") +(define version "1.106")