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
 )
-