Sha256: 56d18b66aacc519cfe03f8095a251d85520217565a438030b815be8aa30deeed
Contents?: true
Size: 1.25 KB
Versions: 53
Compression:
Stored size: 1.25 KB
Contents
(ql:quickload "lisp-unit")
#-xlisp-test (load "robot")
(defpackage #:robot-name-test
(:use #:common-lisp #:lisp-unit))
(in-package #:robot-name-test)
(defun is-upper-alpha-p (c) (char<= #\A c #\Z))
(defun is-digit-p (c) (char-not-greaterp #\0 c #\9))
(defparameter *robbie* (robot:build-robot))
(defparameter *clutz* (robot:build-robot))
(define-test name-matches-expected-pattern
(flet ((name-has-correct-pattern (name)
(and (= (length name) 5)
(every #'is-upper-alpha-p (subseq name 0 2))
(every #'is-digit-p (subseq name 2 5)))))
(assert-true (name-has-correct-pattern (robot:robot-name *robbie*)))))
(define-test name-is-persistent
(assert-equal (robot:robot-name *robbie*) (robot:robot-name *robbie*)))
(define-test different-robots-have-different-names
(assert-equality (complement #'equal)
(robot:robot-name *clutz*)
(robot:robot-name *robbie*)))
(define-test name-can-be-reset
(let* ((robot (robot:build-robot))
(original-name (robot:robot-name robot)))
(robot:reset-name robot)
(assert-equality (complement #'equal)
(robot:robot-name robot)
original-name)))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :robot-name-test))
Version data entries
53 entries across 53 versions & 1 rubygems