Sha256: ec68699a85c5470e15af51d018857eb01f3edb10adf5845d89d5c9ea29c0d312
Contents?: true
Size: 1.6 KB
Versions: 53
Compression:
Stored size: 1.6 KB
Contents
(ql:quickload "lisp-unit")
(defpackage #:raindrops-test
(:use #:common-lisp #:lisp-unit))
#-xlisp-test (load "raindrops")
(in-package #:raindrops-test)
(define-test test-1
(assert-equal "1"
(raindrops:convert 1)))
(define-test test-3
(assert-equal "Pling"
(raindrops:convert 3)))
(define-test test-5
(assert-equal "Plang"
(raindrops:convert 5)))
(define-test test-7
(assert-equal "Plong"
(raindrops:convert 7)))
(define-test test-6
(assert-equal "Pling"
(raindrops:convert 6)))
(define-test test-9
(assert-equal "Pling"
(raindrops:convert 9)))
(define-test test-10
(assert-equal "Plang"
(raindrops:convert 10)))
(define-test test-15
(assert-equal "PlingPlang"
(raindrops:convert 15)))
(define-test test-21
(assert-equal "PlingPlong"
(raindrops:convert 21)))
(define-test test-25
(assert-equal "Plang"
(raindrops:convert 25)))
(define-test test-35
(assert-equal "PlangPlong"
(raindrops:convert 35)))
(define-test test-49
(assert-equal "Plong"
(raindrops:convert 49)))
(define-test test-52
(assert-equal "52"
(raindrops:convert 52)))
(define-test test-105
(assert-equal "PlingPlangPlong"
(raindrops:convert 105)))
(define-test test-12121
(assert-equal "12121"
(raindrops:convert 12121)))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :raindrops-test))
Version data entries
53 entries across 53 versions & 1 rubygems