close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

source: branches/f4grobner/utils-tests.lisp@ 288

Last change on this file since 288 was 288, checked in by Marek Rychlik, 10 years ago

* empty log message *
File size: 522 bytes
Line 
1(load "~/quicklisp/setup")
2(ql:quickload :fiveam)
3
4(defpackage :it.bese.fiveam.utils-tests
5 (:use :common-lisp
6 :it.bese.fiveam))
7
8(in-package :it.bese.fiveam.utils-tests)
9
10(def-suite utils-suite
11 :description "Utils Suite")
12
13(in-suite utils-suite)
14
15(test utils-tests
16 "Makelist"
17 (is (= (+ 2 2)) "2 plus 2 wasn't equal to 4 (using #'= to test equality)")
18 (is (= 0 (+ -1 1)))
19 (signals
20 (error "Trying to add 4 to FOO didn't signal an error")
21 (+ 'foo 4))
22 (is (= 0 (+ 1 1)) "this should have failed"))
Note: See TracBrowser for help on using the repository browser.