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

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

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