Changeset 37915 in project for release/5/coops-utils/trunk/tests/coops-utils-test.scm

Timestamp:

09/28/19 05:06:19 (16 months ago)

Author:

Kon Lovett

Message:

let the compiler do the work, reflow, add tests

File:

• release/5/coops-utils/trunk/tests/coops-utils-test.scm (modified) (2 diffs)

release/5/coops-utils/trunk/tests/coops-utils-test.scm

@@ -4 +4 @@
 (import test)
 
-(test-begin "Coops Utils")
-
-;;;
-
 (import
   (chicken syntax)
   (srfi 1)
   (srfi 13)
-  coops
-  coops-utils)
+  coops)
 
-;;
+;;;
+
+(import coops-utils)
+
+(test-begin "Coops Utils")
+
+;
 
 (test-assert (class? <standard-class>))
@@ -163 +164 @@
 |#
 
-;;;
+;
 
 (test-end "Coops Utils")
 
+;;
+
+(import coops-describe)
+
+(test-begin "Coops Describe")
+
+(describe-object <third>)
+(newline)
+(describe-object s1xy-inst)
+(newline)
+(describe-object describe-object)
+(newline)
+(print-closure describe-object)
+
+(test-end "Coops Describe")
+
+;;
+
+(import coops-introspection)
+
+(test-begin "Coops Introspection")
+
+(generic-name describe-object)
+
+(test-end "Coops Introspection")
+
+;;;
+
 (test-exit)