Start highlevel redis test spec; sorted-set-add
[chicken-eggs:redis-name-clash.git] / spec / redis-spec.scm
1 (begin-for-syntax
2  (import chicken)
3  (use srfi-13))
4
5 (define-for-syntax (egg-file file)
6   (if (string-suffix? "behave" (program-name))
7       file
8       (string-append "../" file)))
9
10 (begin-for-syntax
11  (load (egg-file "redis")))
12
13 (define-syntax load-helpers
14   (ir-macro-transformer 
15    (lambda (x i c) 
16      `(include ,(egg-file "spec/helpers.scm")))))
17
18 (load-helpers)
19 (import redis)
20 (use missbehave missbehave-matchers missbehave-stubs)
21
22 (describe "redis"
23   (describe "sorted sets"
24     (describe "sorted-set-add"
25       (it "adds an element into a new set"
26           (expect (redis-sorted-set-add c 'z 1 "uno") (be 1))
27           (expect (redis-sorted-set-add c 'z 1 "one") (be 1))
28           (expect (redis-sorted-set-add c 'z 2 "tri") (be 1))
29           (expect (redis-sorted-set-add c 'z 3 "tri") (be 0))
30           (expect (redis-sorted-set-add c 'z 2 "two") (be 1))))
31
32             )
33           )