add demo code

DEMO.md

@@ -0,0 +1,120 @@
+# Bitcoin Demo/Integration Test
+Dec 9, 2020
+Can use as the base of an integration test.
+
+## Start Services
+Runs the full node API services.
+```
+./local-start.sh
+```
+
+## Start Agents
+On `~zod`
+```
+|start %btc-provider
+|start %btc-wallet-hook
+|start %btc-wallet-store
+
+:btc-provider|command [%set-credentials api-url='http://localhost:50002']
+:btc-wallet-hook|action [%set-provider ~zod]
+```
+
+On `~dopzod`
+```
+|start %btc-wallet-hook
+|start %btc-wallet-store
+```
+
+## Connect to Provider from Another Ship
+On `~dopzod`
+```
+:btc-wallet-hook|action [%set-provider ~zod]
+```
+
+So we whitelist.
+On `~zod`
+```
+:btc-provider|command [%whitelist-clients `(set ship)`(sy ~[~dopzod])]
+```
+
+And try again on `~dopzod`
+```
+:btc-wallet-hook|action [%set-provider ~zod]
+:btc-wallet-hook +dbug [%state 'provider']
+```
+
+## Simulate Loss of Connectivity
+* Shut down BTC services
+* Observe `~zod` sending "not connected" updates
+* dbug on `~dopzod` shows `%.n` for connected
+```
+:btc-wallet-hook +dbug
+```
+
+### Add a Wallet While Disconnected
+`~dopzod`
+XPUB is the "absurd sick..." mnemonic
+```
+=xpubp 'zpub6r8dKyWJ31XF6n69KKeEwLjVC5ruqAbiJ4QCqLsrV36Mvx9WEjUaiPNPGFLHNCCqgCdy6iZC8ZgHsm6a1AUTVBMVbKGemNcWFcwBGSjJKbD'
+=fprint [%4 0xbeef.dead]
+:btc-wallet-store|action [%add-wallet xpubp fprint ~ [~ 8] [~ 6]]
+```
+Lots of `scans` backed up, because we're disconnected.
+
+* start services back up
+* provider will keep re-checking, and once connected, we'll observe address updates
+* re-run `:btc-wallet-store +dbug`; note that the wallet is `scanned`
+
+Key point: provider connectivity doesn't add mental overhead for the client.
+
+## Check Balance
+`~dopzod`
+```
+.^(@ud %gx /=btc-wallet-store=/balance/[xpubp]/noun)
+```
+
+## Pay a Ship
+`~dopzod` will pay `~zod`. Both are acting as clients here (and use `~zod` as the provider).
+
+`~zod` adds a wallet:
+```
+=xpubzod 'zpub6rFR7y4Q2AijBEqTUquhVz398htDFrtymD9xYYfG1m4wAcvPhXNfE3EfH1r1ADqtfSdVCToUG868RvUUkgDKf31mGDtKsAYz2oz2AGutZYs'
+=fprint [%4 0xbeef.dead]
+:btc-wallet-store|action [%add-wallet xpubzod fprint ~ [~ 8] [~ 6]]
+```
+
+`~dopzod`
+```
+:btc-wallet-hook|action [%req-pay-address ~zod 4.000 feyb=[~ 10]]
+```
+
+### Check State on ~zod/~dopzod
+`~dopzod`: outgoing
+```
+:btc-wallet-hook +dbug [%state 'poym']
+```
+
+`~zod`: incoming
+```
+:btc-wallet-hook +dbug [%state 'piym']
+```
+
+### Idempotent
+`~dopzod`
+```
+:btc-wallet-hook|action [%req-pay-address ~zod 4.000 feyb=[~ 10]]
+```
+Or can change amount:
+```
+:btc-wallet-hook|action [%req-pay-address ~zod 3.000 feyb=[~ 10]]
+```
+
+
+## Scan a Real Xpub
+```
+=realxpub 'zpub6qvniDfrk9sRxz7H9Cbr8fccuGNd4RGMmifPVvbQtqtsG7VwCUrNsnNt8DiCH8kxh3vsDuJkfNqZQspVq2xEbE64fgXT5hVJiD8WkRhvuJc'
+=fprint [%4 0xc93d.865c]
+:btc-wallet-store|action [%add-wallet realxpub fprint ~ [~ 6] [~ 6]]
+
+.^(@ud %gx /=btc-wallet-store=/balance/[realxpub]/noun)
+```