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

diff --git a/tests.lisp b/tests.lisp
index 9a84a7b..b33befd 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; $Id$
 ;;;;
-;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
+;;;; This file is Copyright (c) 2000-2006 by Kevin M. Rosenberg
 ;;;;
 ;;;; *************************************************************************
 
@@ -64,6 +64,22 @@
 (deftest :sdstl.4 (string-delimited-string-to-list "ab|cd|ef" "ab")
   ("" "|cd|ef"))
 
+(deftest :hexstr.1 (binary-sequence-to-hex-string ())
+  "")
+
+(deftest :hexstr.2 (binary-sequence-to-hex-string #())
+  "")
+
+(deftest :hexstr.3 (binary-sequence-to-hex-string #(165))
+  "a5"
+)
+
+(deftest :hexstr.4 (binary-sequence-to-hex-string (list 165))
+  "a5")
+
+(deftest :hexstr.5 (binary-sequence-to-hex-string #(165 86))
+  "a556")
+
 (deftest :apsl.1 (append-sublists '((a b) (c d))) (a b c d))
 (deftest :apsl.2 (append-sublists nil) nil)
 (deftest :apsl.3 (append-sublists '((a b))) (a b))
@@ -398,13 +414,20 @@
   nil)
 
 (deftest :nwp.1     
-       (number-within-percentage 1. 1.1 9)
+       (numbers-within-percentage 1. 1.1 9)
   nil)
 
 (deftest :nwp.2
-       (number-within-percentage 1. 1.1 11)
+       (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