Merge pull request #1 from bsene/master

adding symbol assertion

assert-r5rs.scm

@@ -61,6 +61,9 @@
 (define (assert= expected actual)
     (assert-equal number->string = expected actual))
 
+(define (assert-symbol= expected actual)
+    (assert-equal symbol->string symbol=? expected actual))
+
 (define (assert-string= expected actual)
     (assert-equal values string=? expected actual))
 

test/assert-test.scm

@@ -248,3 +248,10 @@
     "3. item expected:<3> but was:<x>"
     (assert-string-list= '("1" ("2") "3" )
                          '("1" ("2") "x" )))
+
+(test-case "(assert-symbol=) equals symbol"
+    (assert-symbol= 'foo 'foo))
+
+(test-failure "(assert-symbol=) fails"
+    "expected:<foo> but was:<bar>"
+    (assert-symbol= 'foo 'bar))