1 files changed, 15 insertions(+), 15 deletions(-)

M tests/bare-tests.lisp

@@ 26,7 26,7 @@
                (cons (first result) `(value)))))
          (ok (= ,bytes bytes-read))))))
 
-(deftest read-uint
+(deftest uint-test
   (test-binary-type uint
     :stream (buf #(#x7F #xB7 #x26))
     :result (ok (= #x7f))


@@ 48,31 48,31 @@
     :result (ok (= #x3FFFFFFFFFFFFFFF))
     :bytes 9))
 
-(deftest read-u8
+(deftest u8-test
   (test-binary-type u8
     :stream (buf #(#x42))
     :result (ok (= #x42))
     :bytes 1))
 
-(deftest read-u16
+(deftest u16-test
   (test-binary-type u16
     :stream (buf #(#xFE #xCA))
     :result (ok (= #xCAFE))
     :bytes 2))
 
-(deftest read-u32
+(deftest u32-test
   (test-binary-type u32
     :stream (buf #(#xEF #xBE #xAD #xDE))
     :result (ok (= #xDEADBEEF))
     :bytes 4))
 
-(deftest read-u64
+(deftest u64-test
   (test-binary-type u64
     :stream (buf #(#xEF #xBE #xAD #xDE #xBE #xBA #xFE #xCA))
     :result (ok (= #xcafebabedeadbeef))
     :bytes 8))
 
-(deftest read-int
+(deftest int-test
   (test-binary-type int
     :stream (buf #(#x54 #xF1 #x14))
     :result (ok (= 42))


@@ 82,43 82,43 @@
     :result (ok (= -1337))
     :bytes 2))
 
-(deftest read-i8
+(deftest i8-test
   (test-binary-type i8
     :stream (buf #(#xD6))
     :result (ok (= -42))
     :bytes 1))
 
-(deftest read-i16
+(deftest i16-test
   (test-binary-type i16
     :stream (buf #(#x2E #xFB))
     :result (ok (= -1234))
     :bytes 2))
 
-(deftest read-i32
+(deftest i32-test
   (test-binary-type i32
     :stream (buf #(#xB2 #x9E #x43 #xFF))
     :result (ok (= -12345678))
     :bytes 4))
 
-(deftest read-i64
+(deftest i64-test
   (test-binary-type i64
     :stream (buf #(#x4F #x0B #x6E #x9D #xAB #x23 #xD4 #xFF))
     :result (ok (= -12345678987654321))
     :bytes 8))
 
-(deftest read-f32
+(deftest f32-test
   (test-binary-type f32
     :stream (buf #(#x71 #x2D #xA7 #x44))
     :result (ok (= 1337.42f0))
     :bytes 4))
 
-(deftest read-f64
+(deftest f64-test
   (test-binary-type f64
     :stream (buf #(#x9B #x6C #xC9 #x20 #xF0 #x21 #x3F #x42))
     :result (ok (= 133713371337.42424242d0))
     :bytes 8))
 
-(deftest read-bool
+(deftest bool-test
   (test-binary-type bool
     :stream (buf #(#x00 #x01))
     :result (ng nil)


@@ 132,13 132,13 @@
     :result (ok t)
     :bytes 1))
 
-(deftest read-enum-value
+(deftest enum-value-test
   (test-binary-type enum
     :stream (buf #(#x01))
     :result (ok (= 1) (slot-value value 'value))
     :bytes 1))
 
-(deftest read-str
+(deftest str-test
   (test-binary-type str
     :stream (buf #(#x1B #xE3 #x81 #x93 #xE3 #x82 #x93 #xE3
 		                  #x81 #xAB #xE3 #x81 #xA1 #xE3 #x81 #xAF