Sha256: 23c89743986e86af0004d378aced988f710591f56a7adfceb5ff517ff4a1ae9e
Contents?: true
Size: 1.13 KB
Versions: 127
Compression:
Stored size: 1.13 KB
Contents
(ql:quickload "lisp-unit")
#-xlisp-test (load "isogram")
(defpackage #:isogram-test
(:use #:common-lisp #:lisp-unit))
(in-package #:isogram-test)
(define-test empty-string
(assert-true (isogram:is-isogram "")))
(define-test isogram-with-only-lower-case-characters
(assert-true (isogram:is-isogram "isogram")))
(define-test word-with-one-duplicated-character
(assert-false (isogram:is-isogram "eleven")))
(define-test longest-reported-english-isogram
(assert-true (isogram:is-isogram "subdermatoglyphic")))
(define-test word-with-duplicated-character-in-mixed-case
(assert-false (isogram:is-isogram "Alphabet")))
(define-test hypothetical-isogrammic-word-with-hyphen
(assert-true (isogram:is-isogram "thumbscrew-japingly")))
(define-test isogram-with-duplicated-hyphen
(assert-true (isogram:is-isogram "six-year-old")))
(define-test made-up-name-that-is-an-isogam
(assert-true (isogram:is-isogram "Emily Jung Schwartzkopf")))
(define-test duplicated-character-in-the-middle
(assert-false (isogram:is-isogram "accentor")))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :isogram-test))
Version data entries
127 entries across 127 versions & 1 rubygems