ff12404062
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@885349 13f79535-47bb-0310-9956-ffa450edef68
25 lines
311 B
Scheme
25 lines
311 B
Scheme
; 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 (delete id ref)
|
|
(ref "delete" id)
|
|
)
|