urbit/tests/lib/keygen.hoon
2018-11-05 17:59:43 -08:00

349 lines
15 KiB
Plaintext

:: tests for keygen-hoon
::
:: largely copied from keygen-js here:
:: https://github.com/urbit/keygen-js/blob/master/test/test.js
::
/+ *test, keygen
=, keygen
::
|%
++ test-child-seed-from-seed-0
%+ expect-eq
!> ;: weld
"forum equal youth afford sketch piece "
"direct room clarify dumb autumn soon "
"capable elegant nest cover lawn drive "
"motion vault river athlete vicious blush"
==
!> %+ from-entropy:bip39 32
%+ seed:ds
^- byts
:- 32
0xb2bd.f8de.8452.b18f.0219.5b6e.7bfc.82b9.
00fb.cc25.681f.07ae.10f3.8f11.e5af.53af
^- meta
["management" 0 `@`10]
::
++ test-child-seed-from-seed-1
%+ expect-eq
!> ;: weld
"crime pistol actress sentence thunder tide "
"consider estate robot lava arena undo "
"nominee baby ladder opinion congress private "
"print tube mango arrange father prison"
==
!> %+ from-entropy:bip39 32
%+ seed:ds
^- byts
:- 32
0xb2bd.f8de.8452.b18f.0219.5b6e.7bfc.82b9.
00fb.cc25.681f.07ae.10f3.8f11.e5af.53af
^- meta
["ownership" 0 `@`10]
::
++ test-urbit-keys-from-seed-0
%+ expect-eq
!> :- :- 0x9a09.b7e8.1646.7b10.ebdc.d47d.7186.1a2d.
0896.189f.2e66.690b.636a.d3bd.f8fc.c343
0x52c8.30cd.009a.4c65.9977.8b25.8fa8.898c.
b8b4.9dd7.1279.c7ca.502c.b04c.2f53.0d7a
:- 0xf718.7602.dff5.e3ee.a27b.4c46.3686.0110.
6916.d704.a2ef.2e45.1838.d4ea.80b3.95e0
0x9c51.3a22.7951.4766.1234.eea1.3ee5.fa5b.
1a8b.9bed.1aa4.b1cf.87f6.bcf3.53af.a8bb
!> %- urbit:ds
0x8835.9ba6.1d76.6e1c.2ec9.5988.3166.8d42.
33b0.f8f5.8b29.da8c.f33d.25b2.590d.62a0
::
++ test-urbit-keys-from-seed-1
%+ expect-eq
!> :- :- 0x76fa.3a85.8dfe.b18f.d7cd.1a63.b2fe.84f9.
5840.e3e5.b19e.0e69.5069.2cbd.c55f.3821
0x2561.9a9c.e945.8f86.9f06.4ca5.6937.8528.
3a20.aa7a.8433.baf5.fccc.bb0a.84f7.6cae
:- 0xfade.a0a3.7e6d.111e.b080.6648.fa66.d689.
f200.f38c.fd1e.3fe6.83fc.148d.76c6.9d27
0x972b.d3bc.056a.c414.a3c3.8bc9.48a7.4506.
120b.2fc8.4ae2.2ba6.05c9.eeef.2b7c.c1db
!> %- urbit:ds
0x52dc.7422.d68c.0209.6105.02e7.1009.d6e9.
f054.da2a.ccaf.b612.180c.853f.3f77.d606
::
++ test-generate-wallet-0
=/ mea=meta ["" 0 `@p`1]
%+ expect-eq
!> ^- vault
:* :: ownership
=- (~(gas by *nodes) ~[who.mea^-])
^- node
:+ mea(typ "ownership")
;: weld
"various quiz first cliff resemble rough "
"priority sibling topple coin copper merit "
"spend demand kite cargo key stone "
"judge dignity beauty boring document actress"
==
:+ :- 0x3.4c55.2c53.cda2.50b7.34eb.a4b9.e54c.97f8.
f81d.95fa.bf88.4ca4.d973.6754.c50b.3b0e
0xbaa6.ef7e.3e47.a255.1100.b12f.f073.e1ef.
b761.361f.ccb6.a134.71ca.8416.36d8.4610
0x2325.342b.e552.bb91.0a33.82c4.318d.c3cc.70db.1604
0x15f0.1ce6.429e.70f1.443a.eacc.3a40.6330.
a009.a641.dbdd.d626.3d97.fead.6105.1e7c
:: voting
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "voting")
;: weld
"load future seven beauty phone admit "
"flight funny couple chicken differ drum "
"club raise average shove address dune "
"point true sense pioneer finger buyer"
==
:+ :- 0x3.139a.fb22.8bc0.6286.6167.82f7.9a7e.767c.
d013.b572.65c9.4f34.9a39.90a6.74d3.c431
0xe60a.675a.64ea.1bcd.e43c.0fef.b006.d913.
67f2.b8d0.e33c.6203.bda5.0a58.9e40.8e2f
0x20c8.e4b8.fef4.ddea.7256.8430.2553.c92b.72df.d394
0x481b.f89a.7e25.7de0.6626.314a.b6e8.e505.
6352.e6f7.4c6f.eff2.ec77.0f35.7c15.f53b
:: management
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "management")
;: weld
"speed stick feel purse camera breeze "
"quiz inject whale connect cheap crop "
"ranch walk neck merry giggle limb "
"second bike hope riot glad reject"
==
:+ :- 0x3.0ef9.784b.a4a9.803e.9c7c.f351.3cda.51be.
e475.4235.9def.78c8.4263.5a89.2f18.8d13
0xc88b.a959.acc0.6ffe.7e3f.035b.8e06.9ea3.
0211.ca2e.d69b.7f2a.b306.b5cb.4a78.1595
0x3365.318e.7689.21c4.00ec.0110.e72a.97e4.deb1.4df9
0x2a48.b639.7b90.15e0.0dbb.bb12.e499.f3fa.
9432.738b.68db.3a01.d39b.89f1.5153.c651
:: transfer
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "transfer")
;: weld
"wine foil elbow mail wreck peasant "
"inner scheme viable foil thing elder "
"slim obvious soldier parent version derive "
"imitate tissue palm trick clean increase"
==
:+ :- 0x2.4b87.f9d9.8441.3dda.c213.8081.884b.35ae.
c3e3.617d.8620.fabe.0506.29ee.cab9.025f
0xfde2.52d2.bace.6bac.5eeb.d8ef.ef3d.9f8c.
5d90.d725.6f89.79bf.5c72.4cf8.9f51.3c5f
0x7b99.8e3c.2ff2.c97f.167d.c7c8.afe6.80ca.231f.26be
0x520f.6f12.41bc.a8ef.c349.d5c6.4740.eeee.
b69e.5d2f.9db2.0798.c794.fff2.5da5.4ae3
:: spawn
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "spawn")
;: weld
"attitude entire between school lawsuit wisdom "
"barely false symbol nose weasel donkey "
"artist blue noble gown worry notable "
"farm crush glimpse gain merge police"
==
:+ :- 0x3.544f.172c.b777.a6ff.3847.0d91.8212.ad24.
8c34.8334.4699.e921.c673.955c.e053.d8b3
0xa0e1.5b48.6283.954d.2fe5.776e.f7a2.05e9.
bdff.6f83.e8d1.20ad.b83a.0bf5.b0e6.d26c
0x2984.164d.d3be.3a07.acf1.8537.db9b.1034.3c40.92c1
0x2fbd.49a6.3ec4.ec58.1ead.7c09.e820.fad6.
47de.6561.5549.7fdb.be68.0dc0.90d1.7fed
:: network
~
==
!> =- -(network *uodes)
%+ full-wallet-from-ticket
4^0x1.0102 ::TODO .~doznec-marbud
:+ [who.mea ~ ~]
*revisions
~
::
++ test-generate-wallet-1
=/ mea=meta ["" 0 `@p`65.012]
%+ expect-eq
!> ^- vault
:* :: ownership
=- (~(gas by *nodes) ~[who.mea^-])
^- node
:+ mea(typ "ownership")
;: weld
"flame nothing issue first fine pottery "
"save before guitar twist guard round "
"burst actual mesh wrestle spirit disagree "
"then green grid hole lobster local"
==
:+ :- 0x3.90f0.a6c8.0ed8.b397.15e5.6e4e.24ed.0d3a.
92e5.425d.3863.c40b.4764.59ec.9b5d.4d7b
0x9162.3b57.60c5.0437.639e.c92e.9bb8.8ac7.
7144.420e.3a9c.2e91.81a5.614b.3484.e097
0x7544.42e3.bb87.4777.2572.7dc0.db1d.f693.630d.bac9
0xd685.6120.aad8.1367.63ef.6ff8.de9c.010f.
c345.b424.38c2.106e.2dfc.6aec.fd26.0cc4
:: voting
~
:: management
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "management")
;: weld
"enough federal present expire setup obtain "
"taste above chronic tuition spike gas "
"middle muscle mail vicious muffin employ "
"silver ten about shiver purchase service"
==
:+ :- 0x2.ffd4.fdbf.2cf7.8bbf.707b.d0c1.c84d.aac8.
e51f.7e1f.242d.fb27.f7c0.bdf0.96c3.bbf0
0x6aea.d877.7076.de3a.4d3e.92db.a1a8.91df.
b986.98bd.4539.99d2.5668.f085.1eaf.3cb3
0xa20b.c714.38ff.0bb7.7b96.9af9.690b.74ca.0d73.452c
0xc509.6fca.b714.0e32.8cda.8a79.d18b.1096.
ac3c.b39e.1cec.17ed.b0a1.6964.6b56.1e8b
:: transfer
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "transfer")
;: weld
"page wild bread settle news around "
"reduce receive urban shrug coffee acid "
"unknown crisp million also grass volume "
"summer apology meadow poem slab sure"
==
:+ :- 0x3.45ba.e5dc.335f.0a19.86cd.4213.5e30.f98c.
0708.1651.8685.9ec4.7c15.be67.debd.3930
0xc111.2499.bab5.45a4.112d.a3de.3590.eee9.
2a62.c9c1.a949.0c89.bd94.47fd.06d6.3c87
0x2602.34db.9947.50a4.6965.a2d0.949a.c4e1.4d6e.975e
0xf7b9.3a65.885d.0f6d.ff88.cd9e.cc30.ae43.
b3a1.cc74.77b8.0bc4.2863.5601.8bdd.82b7
:: spawn
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "spawn")
;: weld
"false sort bomb damage govern exclude "
"that unknown away display kit attract "
"toilet brick delay useless squirrel garment "
"sunset awake easy wage arrow warrior"
==
:+ :- 0x2.ea8b.99eb.99b9.c041.c019.0e77.0db8.db99.
4695.6509.867b.c158.8078.b2cd.c56a.2bc8
0xf879.648c.8139.0d94.d9ae.c849.5324.e4f0.
186c.d446.aaea.e77f.7a25.8d9c.99aa.30cd
0x7b73.ce24.5268.5d4c.58d5.f2c6.9000.5847.7547.f6d1
0xd2e8.599c.158c.de70.0e2e.6cef.d0c0.6cf4.
7bf2.f636.c460.fd8e.1ef3.6764.67d7.d295
:: network
=- (~(gas by *uodes) ~[who.mea^-])
:+ mea(typ "network")
0xebd5.6c6d.ee34.e9b7.b2bc.7701.9fa5.85c7.
0194.5f0f.e28d.aa27.78d2.9146.4c03.6345
:- :- 0xa08c.526d.af6c.5fce.b5e2.9d9a.5c26.251a.
b9b8.b01f.9339.cb9d.3dc4.6cb4.239e.3113
0x817c.a3f9.16f3.5554.e931.2de4.4ed5.e32e.
3ef8.ea0b.222f.c81d.74c2.f502.d053.b58c
:- 0x1141.254e.602a.cae0.def1.a799.bbb8.3bb2.
f6ab.c992.78c4.ebcf.6671.ed57.ff4e.ef64
0x8f2b.14e5.5eed.db75.90f4.c6a5.6c84.faff.
0444.a647.4bde.9082.8733.b7b0.395e.a2fa
==
!> ^- vault
=- -(voting ~)
%+ full-wallet-from-ticket
8^0x102.af04.0506.0798 ::TODO .~marbud-tidsev-litsut-hidfep
:+ [who.mea ~ ~]
*revisions
~
::
++ test-generate-wallet-2
=/ mea=meta ["" 6 `@p`~]
%+ expect-eq
!> ^- vault
:* :: ownership
=- (~(gas by *nodes) ~[who.mea^-])
^- node
:+ mea(typ "ownership")
;: weld
"thought story peasant will layer street "
"genius become interest country erupt crater "
"still stone pupil vessel wink second "
"habit sell spray rate spend size"
==
:+ :- 0x2.c87a.89ac.fdbe.1379.24d6.59f9.f9c5.b10f.
7606.7130.bafe.5aba.9510.7ab6.c6c4.0f3b
0xc8c5.3b8c.70d2.f465.5eb5.8a7d.66e4.ca38.
6dcc.262b.43e8.63ff.5f8a.5bee.7172.08b5
0xcbe5.5640.b324.0fae.d26f.ae0f.c7a4.5c99.d999.fae1
0x65fd.9ac0.04de.3e37.530e.ea3c.8b24.ec40.
441e.5403.6e02.fd67.5d54.0108.828c.1700
:: voting
~
:: management
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "management")
;: weld
"effort police leader fish glare decide "
"gaze jacket law forest area call "
"away tooth extend sick setup trouble "
"scene equip visa nothing bonus say"
==
:+ :- 0x2.004e.f41a.81ef.fa4b.6d3a.378d.c289.94a6.
0577.0a50.903f.cdd6.7d86.dae8.7096.d804
0x67d1.34d6.e0f8.b92e.b4c4.ed4e.3bf1.82cc.
18fd.9adb.3d50.de3a.3b59.f29d.582d.f058
0xce6c.beee.1912.7323.d546.df6d.d7f1.04bf.a540.4536
0x6f3.47ff.8e62.fdc9.b0fc.286d.1a7f.02fe.
97b7.b922.9a4e.6f84.b82b.de53.d2e6.f896
:: transfer
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "transfer")
;: weld
"miracle purpose soccer require brand egg "
"grocery rough eternal drip finish truck "
"lend invest draw viable kid useless "
"kick dish ensure equal tobacco devote"
==
:+ :- 0x3.fa3e.883d.03b8.1839.572d.adab.dba4.4905.
98a0.c98b.00d3.22bd.5eb8.f5c0.4320.b44e
0x7331.d92c.bc15.166b.57c6.7ea4.dbd6.bb6d.
5e01.4533.90f3.ab5d.7fd2.0d5c.8034.5afe
0xcbb0.0675.f8c6.e1eb.7971.efd2.22f5.3d4e.7e47.723b
0x8462.5f52.4497.b121.d181.70c2.64bc.1b2e.
b417.975c.2d7e.d6f9.7912.0a24.d51d.e508
:: spawn
=- (~(gas by *nodes) ~[who.mea^-])
:+ mea(typ "spawn")
;: weld
"good wealth crystal convince sing above "
"like bag second oval lucky tell "
"icon jazz neck ivory dragon prevent "
"book love blood edit machine example"
==
:+ :- 0x2.c647.f064.55aa.3a5c.eecd.bee2.93d4.9c78.
64e2.ca68.de28.ada6.c4fe.d23f.db5d.da81
0x9196.6df3.16f6.5eb2.712d.5860.5c29.5cd7.
fd3d.627f.084b.05e0.d358.27e6.90ae.8a51
0x34f1.1d21.9c19.0a9f.6983.2be5.402d.4aef.b8e4.1e9b
0xbb36.4194.fd30.3707.786f.2e85.11ae.2123.
77c6.ed07.a3b1.21b6.2b43.5953.534e.ef52
:: network
~
==
!> ^- vault
=- -(voting ~, network ~)
%+ full-wallet-from-ticket
:- 48
0xc5a.b5ba.ea8e.e798.21d3.fc9f.8876.6da1.
95bd.d4a6.3375.32fe.8f7f.d92f.d5f4.446a.
f9bf.0006.a211.823b.fbc9.a701.01e6.6f1f
::TODO .~wacfus-dabpex-danted-mosfep-pasrud-lavmer-
:: nodtex-taslus-pactyp-milpub-pildeg-fornev-
:: ralmed-dinfeb-fopbyr-sanbet-sovmyl-dozsut-
:: mogsyx-mapwyc-sorrup-ricnec-marnys-lignex
:+ [who.mea ~ ~]
[. . . . . .]:rev.mea
`'froot loops'
--