1 files changed, 25 insertions, 0 deletions
diff --git a/cpp/sca/modules/http/httpd-client.scm b/cpp/sca/modules/http/httpd-client.scm
new file mode 100644
index 0000000000..12275693f4
--- /dev/null
+++ b/cpp/sca/modules/http/httpd-client.scm
@@ -0,0 +1,25 @@
+; 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)
+)