Add comments to typeclass test cases

ober

65b3b45a9bc5c3d5815637aa155330c1a70e2194

diff --git a/tests/test-typeclass.ss b/tests/test-typeclass.ss
index c29b83b..c733dea 100644
--- a/tests/test-typeclass.ss
+++ b/tests/test-typeclass.ss
@@ -232,11 +232,13 @@
 
 (test "user-defined typeclass with superclass: inherits Show"
   (lambda ()
+    ;; Printable number should have ->string from Show
     (assert-equal (tc-apply 'Printable '->string 'number 7) "7"
                   "inherited ->string")))
 
 (test "user-defined typeclass with superclass: own method"
   (lambda ()
+    ;; print! should work
     (let ([proc (tc-ref 'Printable 'number 'print!)])
       (assert-true (procedure? proc) "print! is procedure"))))