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@ 291

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

* empty log message *
File size: 658 bytes
RevLine 
[286]1(load "~/quicklisp/setup")
2(ql:quickload :fiveam)
[291]3(asdf:load-system :ngrobner)
[286]4
[287]5(defpackage :it.bese.fiveam.utils-tests
6 (:use :common-lisp
7 :it.bese.fiveam))
[286]8
[288]9(in-package :it.bese.fiveam.utils-tests)
[287]10
11(def-suite utils-suite
[282]12 :description "Utils Suite")
[281]13
[287]14(in-suite utils-suite)
15
[290]16#+nil
[289]17(test dummy-test
[281]18 "Makelist"
19 (is (= (+ 2 2)) "2 plus 2 wasn't equal to 4 (using #'= to test equality)")
20 (is (= 0 (+ -1 1)))
21 (signals
22 (error "Trying to add 4 to FOO didn't signal an error")
23 (+ 'foo 4))
24 (is (= 0 (+ 1 1)) "this should have failed"))
[289]25
[290]26(test makelist
27 (is (equal (makelist-1 (* 2 i) i 0 10) (0 2 4 6 8 10 12 14 16 18 20)))
28 )
29
[289]30(run!)
Note: See TracBrowser for help on using the repository browser.