accounts regression in server

Author: Stuart Popejoy

examples/accounts/accounts.pact

@@ -1,6 +1,6 @@
 ;; accounts module, admin keyset, and table
 
-(enforce-pact-version "2.2.4")
+(enforce-pact-version "2.3")
 
 (define-keyset 'accounts-admin-keyset
   (read-keyset "accounts-admin-keyset"))

examples/accounts/scripts/01-system.yaml

@@ -0,0 +1,13 @@
+# Provides mock system module for 'accounts'
+code: |-
+  (define-keyset 'k (read-keyset "accounts-admin-keyset"))
+  (module system 'k
+    (defun get-system-time ()
+      (time "2017-10-31T12:00:00Z")))
+  (get-system-time)
+data:
+  accounts-admin-keyset: ["ba54b224d1924dd98403f5c751abdd10de6cd81b0121800bf7bdbdcfaec7388d"]
+keyPairs:
+  - public: ba54b224d1924dd98403f5c751abdd10de6cd81b0121800bf7bdbdcfaec7388d
+    secret: 8693e641ae2bbe9ea802c736f42027b03f86afe63cae315e7169c9c496c17332
+nonce: step01

examples/accounts/scripts/02-accounts.yaml

@@ -0,0 +1,13 @@
+# To use, first load mock system module, then load accounts.
+# Command line:
+# $ pact -a examples/accounts/mock-system.yaml | curl -d @- http://localhost:8080/api/v1/send
+# $ pact -a examples/accounts/accounts.yaml | curl -d @- http://localhost:8080/api/v1/send
+
+
+codeFile: ../accounts.pact
+data:
+  accounts-admin-keyset: ["ba54b224d1924dd98403f5c751abdd10de6cd81b0121800bf7bdbdcfaec7388d"]
+keyPairs:
+  - public: ba54b224d1924dd98403f5c751abdd10de6cd81b0121800bf7bdbdcfaec7388d
+    secret: 8693e641ae2bbe9ea802c736f42027b03f86afe63cae315e7169c9c496c17332
+nonce: step02

examples/accounts/scripts/03-create.yaml

@@ -0,0 +1,16 @@
+# Provides mock system module for 'accounts'
+
+code: |-
+  (use 'accounts)
+  (use 'system)
+  (create-account "Alice" (read-keyset "alice-keyset") "USD" (get-system-time))
+  (create-account "Bob" (read-keyset "bob-keyset") "USD" (get-system-time))
+  (fund-account "Alice" 100.0 (get-system-time))
+  (read-all)
+data:
+  alice-keyset: ["7d0c9ba189927df85c8c54f8b5c8acd76c1d27e923abbf25a957afdf25550804"]
+  bob-keyset: ["ac69d9856821f11b8e6ca5cdd84a98ec3086493fd6407e74ea9038407ec9eba9"]
+keyPairs:
+  - public: ba54b224d1924dd98403f5c751abdd10de6cd81b0121800bf7bdbdcfaec7388d
+    secret: 8693e641ae2bbe9ea802c736f42027b03f86afe63cae315e7169c9c496c17332
+nonce: step03

examples/accounts/scripts/04-alice.yaml

@@ -0,0 +1,8 @@
+code: |-
+  (use 'accounts)
+  (transfer "Alice" "Bob" 12.50 (system.get-system-time))
+  (read-account-user "Alice")
+keyPairs:
+  - public: 7d0c9ba189927df85c8c54f8b5c8acd76c1d27e923abbf25a957afdf25550804
+    secret: 2e8c91521479537221576a7c3c80c46d0fa3fc663804117f0c7011366dec35de
+nonce: step04

examples/accounts/scripts/05-bob.yaml

@@ -0,0 +1,8 @@
+
+code: |-
+  (let ((bob-bal (at 'balance (accounts.read-account-user "Bob"))))
+    (enforce (= 12.50 bob-bal) "Bob got paid 12.50"))
+keyPairs:
+  - public: ac69d9856821f11b8e6ca5cdd84a98ec3086493fd6407e74ea9038407ec9eba9
+    secret: 756f0d270d3ed42594529817e89ffa311b4bd5359d76cbcbb135fb178071faaa
+nonce: step05

examples/accounts/scripts/run.sh

@@ -0,0 +1,23 @@
+#!/bin/sh
+
+set -e
+
+echo ""; echo "Step 1"; echo ""
+pact -a examples/accounts/scripts/01-system.yaml | curl -d @- http://localhost:8080/api/v1/send
+curl -d '{"requestKeys":["221b1ea8687ca43da7eacdedfffe5a590215c334482b1148d5166e9847ead25e4d3a9c711c85c0b5ab9b739f151b562f37e1e21f2c8bc1004a5765575069cd91"]}' -X POST http://localhost:8080/api/v1/poll
+
+echo ""; echo "Step 2"; echo ""
+pact -a examples/accounts/scripts/02-accounts.yaml | curl -d @- http://localhost:8080/api/v1/send
+curl -d '{"requestKeys":["1d1d4043dc194c616573895a5ebec0d1ea9898a719651d30e6be5bff386b94e4703afaf998c295a5181ef2eee844a79bdd3466072c30eb4004adf5108addaeee"]}' -X POST http://localhost:8080/api/v1/poll
+
+echo ""; echo "Step 3"; echo ""
+pact -a examples/accounts/scripts/03-create.yaml | curl -d @- http://localhost:8080/api/v1/send
+curl -d '{"requestKeys":["5f8f4c71413d1b112892c0ae45a72f47d87c0811b97acf244e61b1ee667e85d0a599506db5774364c6e7577e5f48faa2ae323d38749a650bf4f59e8222eaf83e"]}' -X POST http://localhost:8080/api/v1/poll
+
+echo ""; echo "Step 4"; echo ""
+pact -a examples/accounts/scripts/04-alice.yaml | curl -d @- http://localhost:8080/api/v1/send
+curl -d '{"requestKeys":["e0e26fb33bb20ff48f2c7378ed1f22cbe775f16e67de5f4b6e91de9ce83d13010f1d1da6633d8c0dd7050d4960b2d04dc11f9375ece36f6e66c60f9af5c69ed5"]}' -X POST http://localhost:8080/api/v1/poll
+
+echo ""; echo "Step 5"; echo ""
+pact -l -a examples/accounts/scripts/05-bob.yaml | curl -d @- http://localhost:8080/api/v1/local
+echo ""