diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2009-11-16 06:01:41 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2009-11-16 06:01:41 +0000 |
commit | 51a97b5d9350b37f95d6f0c00d013b886e64fcd3 (patch) | |
tree | 480092faac7c7deb40265fb070d1b4b059638814 /cpp/sca/test/store-script/currency-converter.scm | |
parent | ada8802640aa232d34b1fe2793b9f52cd62b41f1 (diff) |
Added test cases and scripts to test the HTTP binding support. Refactored httpd module and added a wiring httpd module. Implementation of the store demo prepared for ApacheCon.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@880601 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'cpp/sca/test/store-script/currency-converter.scm')
-rw-r--r-- | cpp/sca/test/store-script/currency-converter.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/cpp/sca/test/store-script/currency-converter.scm b/cpp/sca/test/store-script/currency-converter.scm new file mode 100644 index 0000000000..7f58335951 --- /dev/null +++ b/cpp/sca/test/store-script/currency-converter.scm @@ -0,0 +1,9 @@ +; Currency converter implementation + +(define (convert from to amount) + (if (equal? to "EUR") (* amount 0.70) amount) +) + +(define (symbol currency) + (if (equal? currency "EUR") "E" "$") +) |