Permalink
Browse files

convert defcall.t to use test-by-example, and to test the code in a s…

…eparate runtime
  • Loading branch information...
1 parent e6c7d8d commit 03a7315e33e5f30f4c47db527534ca390ba806a9 @awwx committed Jun 7, 2011
Showing with 10 additions and 4 deletions.
  1. +10 −4 defcall.t
View
@@ -1,6 +1,12 @@
-(use defcall test)
+(use test-by-example)
-(defcall char (c n)
- (string (n-of n c)))
+(example-test (runtime '(defcall)) #<<.
-(testis (#\A 6) "AAAAAA")
+> (defcall char (c n)
+ (string (n-of n c)))
+
+> (#\A 6)
+"AAAAAA"
+
+.
+)

0 comments on commit 03a7315

Please sign in to comment.