add conversion test

thephoeron · Jun 27, 2015 · 0594acc · 0594acc
1 parent 6125018
commit 0594acc
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/t/bit-smasher.lisp b/t/bit-smasher.lisp
@@ -9,7 +9,7 @@
 
 ;; NOTE: To run this test file, execute `(asdf:test-system :bit-smasher)' in your Lisp.
 
-(plan 2)
+(plan 3)
 
 (deftest sanity-check
   (pass "PROVE is loaded and ready to go.")
@@ -22,6 +22,16 @@
       4
       "Multiplication: (* 2 2) => 4."))
 
+;; Conversion test
+
+(deftest conversion
+  (is (hex<- (expt 10 64))
+      "184f03e93ff9f4daa797ed6e38ed64bf6a1f010000000000000000"
+      "Integer to Hex-String conversion.")
+  (is (bits<- (expt 10 64))
+      #*000110000100111100000011111010010011111111111001111101001101101010100111100101111110110101101110001110001110110101100100101111110110101000011111000000010000000000000000000000000000000000000000000000000000000000000000
+      "Integer to Bit-Vector conversion."))
+
 ;; Two's Complement Test
 
 (deftest twos-complement