Coverage report: /home/ellis/comp/core/std/tests/num.lisp

KindCoveredAll%
expression04 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; num.lisp --- Number Tests
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :std/tests)
7
 (in-suite :std)
8
 
9
 (deftest leb128 ()
10
   (loop for i from 0 below 1000
11
         do (is (= i (decode-uleb128 (encode-uleb128 i)))))
12
   (signals division-by-zero (decode-uleb128 (encode-uleb128 -1)))
13
   (loop for i from -1000 below 0
14
         do (is (= i (decode-leb128 (encode-leb128 i))))
15
         do (is (= (* i i) (decode-leb128 (encode-leb128 (* i i)))))))
16
 
17
 (deftest parse-numbers ()
18
   (is= 12000 (parse-number "12e3"))
19
   (is= 8 (parse-number "#o10"))
20
   (is= (parse-number "#2r11") 3)
21
   (is= (parse-number "#10r3.2") 3.2)
22
   (signals invalid-number (parse-positive-real-number "-100"))
23
   (is= 100 (parse-positive-real-number "100"))
24
   (destructuring-bind (val . len) (std/num::parse-integer-and-places "1280" 0 4)
25
     (is= val 1280)
26
     (is= len 4)))