X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=tests.lisp;h=b33befd2bb140d1a3fc51bd086e2eb48f9869c96;hp=d78aba3f890c5fbbe445f61e86bb075a73cae23f;hb=68c8a7d41640b4b26c0e088c752fb53703f3c548;hpb=bd0b965c86c90251e9e9554be1fdbdffbfb2daf0

diff --git a/tests.lisp b/tests.lisp
index d78aba3..b33befd 100644
--- 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