From f9b37470f840a6f318f015dec5c8c98a895ae251 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 31 Aug 2011 18:39:16 -0400
Subject: [PATCH] adding test case for check-expect

---
 js-assembler/runtime-src/baselib-paths.js   | 2 +-
 tests/more-tests/checking.expected          | 6 ++++++
 {examples => tests/more-tests}/checking.rkt | 0
 tests/run-more-tests.rkt                    | 1 +
 4 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 tests/more-tests/checking.expected
 rename {examples => tests/more-tests}/checking.rkt (100%)

diff --git a/js-assembler/runtime-src/baselib-paths.js b/js-assembler/runtime-src/baselib-paths.js
index e2ab302..02ebfd8 100644
--- a/js-assembler/runtime-src/baselib-paths.js
+++ b/js-assembler/runtime-src/baselib-paths.js
@@ -13,7 +13,7 @@
     };
 
     Path.prototype.toString = function () {
-        return String(this.path);
+        return "#<path:" + String(this.path) + ">";
     };
 
     //////////////////////////////////////////////////////////////////////
diff --git a/tests/more-tests/checking.expected b/tests/more-tests/checking.expected
new file mode 100644
index 0000000..e90f180
--- /dev/null
+++ b/tests/more-tests/checking.expected
@@ -0,0 +1,6 @@
+Running tests...
+check-expect: actual value "hello huh" differs from "this should fail", the expected value
+  at: #<path:/gpfs/main/home/dyoo/work/whalesong/tests/more-tests/checking.rkt>, line 7, column 0
+Ran 3 tests.
+2 tests passed.
+One test failed.
diff --git a/examples/checking.rkt b/tests/more-tests/checking.rkt
similarity index 100%
rename from examples/checking.rkt
rename to tests/more-tests/checking.rkt
diff --git a/tests/run-more-tests.rkt b/tests/run-more-tests.rkt
index 05e0949..c52459a 100644
--- a/tests/run-more-tests.rkt
+++ b/tests/run-more-tests.rkt
@@ -7,6 +7,7 @@
 ;; type replaced with .expected.
 
 (test "more-tests/booleans.rkt")
+(test "more-tests/checking.rkt")
 (test "more-tests/string-tests.rkt")
 (test "more-tests/chars.rkt")
 (test "more-tests/numbers.rkt")