diff options
Diffstat (limited to '')
-rw-r--r-- | cpp/sca/modules/http/httpd-test.scm | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/cpp/sca/modules/http/httpd-test.scm b/cpp/sca/modules/http/httpd-test.scm index a3ddf8dda8..0566eaf36f 100644 --- a/cpp/sca/modules/http/httpd-test.scm +++ b/cpp/sca/modules/http/httpd-test.scm @@ -1,33 +1,29 @@ -(; "JSON-RPC test case") +; JSON-RPC test case (define (echo x) x) -(; "ATOMPub test case") +; ATOMPub test case (define (getall) '("Sample Feed" "123456789" - ("Item" "111" (javaClass "services.Item") (name "Apple") (currency "USD") (symbol "$") (price 2.99)) - ("Item" "222" (javaClass "services.Item") (name "Orange") (currency "USD") (symbol "$") (price 3.55)) - ("Item" "333" (javaClass "services.Item") (name "Pear") (currency "USD") (symbol "$") (price 1.55))) + ("Item" "111" ((javaClass "services.Item") (name "Apple") (currencyCode "USD") (currencySymbol "$") (price 2.99))) + ("Item" "222" ((javaClass "services.Item") (name "Orange") (currencyCode "USD") (currencySymbol "$") (price 3.55))) + ("Item" "333" ((javaClass "services.Item") (name "Pear") (currencyCode "USD") (currencySymbol "$") (price 1.55)))) ) (define (get id) - (define entry '((javaClass "services.Item") (name "Apple") (currency "USD") (symbol "$") (price 2.99))) + (define entry '((javaClass "services.Item") (name "Apple") (currencyCode "USD") (currencySymbol "$") (price 2.99))) (cons "Item" (list id entry)) ) (define (post entry) - (display entry) "123456789" ) -(define (put entry) - (display entry) +(define (put id entry) true ) -(define (delete . args) - (display args) +(define (delete id) true ) - |