r11092: add clisp mop support; prefixed-number-string macro

[kmrcl.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index d78aba3f890c5fbbe445f61e86bb075a73cae23f..b33befd2bb140d1a3fc51bd086e2eb48f9869c96 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -420,7 +420,14 @@
 (deftest :nwp.2
        (numbers-within-percentage 1. 1.1 11)
   t)
-  
+
+(deftest :pfs.1 (prefixed-fixnum-string 0 #\A 5) "A00000")
+
+(deftest :pfs.2 (prefixed-fixnum-string 1 #\A 5) "A00001")
+
+(deftest :pfs.3 (prefixed-fixnum-string 21 #\B 3) "B021")
+          
+(deftest :pis.4 (prefixed-integer-string 234134 #\C 7) "C0234134")
           
  ;;; MOP Testing