fix ames tests

This commit is contained in:
Philip Monk 2019-08-06 00:24:05 -07:00
parent 08e4990fea
commit b7aa7f54c4
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
4 changed files with 34 additions and 7 deletions

View File

@ -0,0 +1,9 @@
/+ pill
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
arg=~
~
==
:- %pill
.^(pill:pill %gx /(scot %p p.bec)/aqua/(scot %da now)/pill/noun)

View File

@ -1,7 +1,7 @@
=> |% => |%
+$ src +$ src
$% [%ship =ship ~] $% [%ship =ship ~]
[%node url=@t ~] [%app =term ~]
== ==
-- --
:- %say :- %say
@ -9,6 +9,6 @@
=/ =source:kale =/ =source:kale
?- -.src ?- -.src
%ship [%& ship.src] %ship [%& ship.src]
%node [%| ~|(%parsing-url (need (de-purl:html url.src))) *@ud *@da] %app [%| term.src]
== ==
[%azimuth-tracker-poke %listen whos source] [%azimuth-tracker-poke %listen whos source]

View File

@ -18,7 +18,7 @@
ames-gate ames-gate
now=~1234.5.6 now=~1234.5.6
call-args=[duct type=*type %soft %init ~nul] call-args=[duct type=*type %soft %init ~nul]
expected-moves=[[duct %pass wire %j %vein ~] [duct %pass / %j %turf ~] ~] expected-moves=[[duct %pass wire %k %private-keys ~] [duct %pass / %k %turf ~] ~]
== ==
:: ::
results1 results1
@ -56,7 +56,7 @@
%: ames-take %: ames-take
ames-gate ames-gate
now now
take-args=[wire duct -:!>([%j %vein vein-data]) [%j %vein vein-data]] take-args=[wire duct -:!>([%k %private-keys vein-data]) [%k %private-keys vein-data]]
expected-moves=~ expected-moves=~
== ==
:: ::
@ -67,7 +67,7 @@
ames-gate ames-gate
now now
call-args=[duct type=*type %soft [%want ~nul /foo 1]] call-args=[duct type=*type %soft [%want ~nul /foo 1]]
:~ [duct %pass /pubs/~nul %j %pubs ~nul] :~ [duct %pass /pubs/~nul %k %public-keys (silt ~nul ~)]
[duct %give %send *lane:ames pact1] [duct %give %send *lane:ames pact1]
:: XX why ~s4 ?? :: XX why ~s4 ??
:: ::

View File

@ -116,16 +116,34 @@
'3defb87516f42ce4327820b588002aa53e52527af8d23bee4aa215fa296bdf5f' '3defb87516f42ce4327820b588002aa53e52527af8d23bee4aa215fa296bdf5f'
'0000000000000000000000000000000000000000000000000000000000000001' '0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000001' '0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000002'
'"},{"id":"gal-1","jsonrpc":"2.0","result":"' '"},{"id":"gal-1","jsonrpc":"2.0","result":"'
'0xb727e38d031162e50913b2e37a2e29d4ba457eff4f7fd4ac47dc68fcb54260d3' '0xb727e38d031162e50913b2e37a2e29d4ba457eff4f7fd4ac47dc68fcb54260d3'
'b8bfe4789483c171f7fa359438cdcc8d268d40fe08d6c1d8b36267748d2139f8' 'b8bfe4789483c171f7fa359438cdcc8d268d40fe08d6c1d8b36267748d2139f8'
'0000000000000000000000000000000000000000000000000000000000000001' '0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000001' '0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000003'
'"},{"id":"gal-2","jsonrpc":"2.0","result":"' '"},{"id":"gal-2","jsonrpc":"2.0","result":"'
'0x0000000000000000000000000000000000000000000000000000000000000000' '0x0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000000' '0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000000' '0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000000' '0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000000'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000001'
'0000000000000000000000000000000000000000000000000000000000000004'
'"}]' '"}]'
== ==
=/ kyz =/ kyz
@ -139,8 +157,8 @@
823.313.739.767.009.446.819.531.923.255.637.798.148.055.143.938.146 823.313.739.767.009.446.819.531.923.255.637.798.148.055.143.938.146
%+ expect-eq %+ expect-eq
!> :- ~ !> :- ~
%- ~(gas by *(map ship [=life =pass])) %- ~(gas by *(map ship [=rift =life =pass]))
[[~zod 1 zod.kyz] [~nec 1 nec.kyz] [~bud 0 'b'] ~] [[~zod 2 1 zod.kyz] [~nec 3 1 nec.kyz] [~bud 4 1 'b'] ~]
!> (czar:take:dawn oct) !> (czar:take:dawn oct)
:: ::
++ test-take-point ++ test-take-point