Sha256: 53dfa57feb7b171da2e3fef962f9205ab7f2e3a0e9e048dd9109c15ec45df49b
Contents?: true
Size: 1.06 KB
Versions: 343
Compression:
Stored size: 1.06 KB
Contents
(ql:quickload "lisp-unit")
#-xlisp-test (load "scrabble-score")
(defpackage #:scrabble-score-test
(:use #:cl #:lisp-unit))
(in-package #:scrabble-score-test)
(define-test no-word-has-zero-score
(assert-equal 0 (scrabble-score:score-word "")))
(define-test whitespace-only-also-has-zero-score
(assert-equal 0 (scrabble-score:score-word
(concatenate 'string '(#\Space #\Newline)))))
(define-test scores-small-word
(assert-equal 1 (scrabble-score:score-word "a")))
(define-test is-case-insensitive
(assert-equal 1 (scrabble-score:score-word "A")))
(define-test scores-a-slightly-bigger-word
(assert-equal 2 (scrabble-score:score-word "at")))
(define-test scores-a-middle-of-the-road-word
(assert-equal 6 (scrabble-score:score-word "street")))
(define-test scores-a-peculiar-word
(assert-equal 22 (scrabble-score:score-word "quirky")))
(define-test scores-a-very-long-word
(assert-equal 27 (scrabble-score:score-word "UNEXCLUSIVENESS")))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :scrabble-score-test))
Version data entries
343 entries across 343 versions & 1 rubygems