Sha256: 042b5daa6a63450a13280b8e0dd185af4f5e07055cac984539493c275bb32e7c
Contents?: true
Size: 815 Bytes
Versions: 53
Compression:
Stored size: 815 Bytes
Contents
(ql:quickload "lisp-unit")
(defpackage #:triangle-test
(:use #:cl #:lisp-unit))
#-xlisp-test (load "triangle")
(in-package #:triangle-test)
(define-test equilateral-1
(assert-equal :equilateral (triangle:triangle 2 2 2)))
(define-test equilateral-2
(assert-equal :equilateral (triangle:triangle 10 10 10)))
(define-test isoceles-1
(assert-equal :isosceles (triangle:triangle 3 4 4)))
(define-test isoceles-2
(assert-equal :isosceles (triangle:triangle 4 3 4)))
(define-test scalene
(assert-equal :scalene (triangle:triangle 3 4 5)))
(define-test invalid-1
(assert-equal :illogical (triangle:triangle 1 1 50)))
(define-test invalid-2
(assert-equal :illogical (triangle:triangle 1 2 1)))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :triangle-test))
Version data entries
53 entries across 53 versions & 1 rubygems