Mercurial > core / lisp/std/tests/num.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
8b10eabe89dd
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; num.lisp --- Number Tests 6 (in-package :std/tests) 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)))))))