blob: 64b62e34c1bc6795eb132c86f3b41da08909f02e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
; JSON-RPC test case
(define (echo x ref) (ref "echo" x))
; ATOMPub test case
(define (getall ref)
(ref "getall")
)
(define (get id ref)
(ref "get" id)
)
(define (post entry ref)
(ref "post" entry)
)
(define (put id entry ref)
(ref "put" id entry)
)
(define (deleteall ref)
(ref deleteall)
)
(define (delete id ref)
(ref "delete" id)
)
|
