Sha256: 5837549a616a44a6e762ed877cbbb9d4e90d99cdcdb1d772a26b990f8f15c6a9
Contents?: true
Size: 784 Bytes
Versions: 343
Compression:
Stored size: 784 Bytes
Contents
(ql:quickload "lisp-unit")
#-xlisp-test (load "grains")
(defpackage #:grains-test
(:use #:cl #:lisp-unit))
(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
343 entries across 343 versions & 1 rubygems