changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/std/tests/num.lisp

changeset 563: 8b10eabe89dd
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 28 Jul 2024 20:49:47 -0400
permissions: -rw-r--r--
description: std/tests, clap tweaks 
     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)))))))