Sha256: 10a75570f6c89ce9888546332e9c7fcc2aa769e603386581e880b3161b027392
Contents?: true
Size: 785 Bytes
Versions: 53
Compression:
Stored size: 785 Bytes
Contents
(ql:quickload "lisp-unit")
(defpackage #:grains-test
(:use #:cl #:lisp-unit))
#-xlisp-test (load "grains")
(in-package #:grains-test)
(define-test square-1
(assert-equal 1 (grains:square 1)))
(define-test square-2
(assert-equal 2 (grains:square 2)))
(define-test square-3
(assert-equal 4 (grains:square 3)))
(define-test square-4
(assert-equal 8 (grains:square 4)))
(define-test square-16
(assert-equal 32768 (grains:square 16)))
(define-test square-32
(assert-equal 2147483648 (grains:square 32)))
(define-test square-64
(assert-equal 9223372036854775808 (grains:square 64)))
(define-test total-grains
(assert-equal 18446744073709551615 (grains:total)))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :grains-test))
Version data entries
53 entries across 53 versions & 1 rubygems