mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 11:08:45 +03:00
print before each test
This commit is contained in:
Ted Blackman
parent
c0b4146803
commit
a6497ad061
@ -96,7 +96,7 @@
|
|||||||
test-bunt
|
test-bunt
|
||||||
==
|
==
|
||||||
++ test-tear
|
++ test-tear
|
||||||
~& %test-tear
|
:- `tank`leaf+"test-tear"
|
||||||
::
|
::
|
||||||
;: welp
|
;: welp
|
||||||
%- expect-eq !>
|
%- expect-eq !>
|
||||||
@ -113,7 +113,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-is-schematic-live
|
++ test-is-schematic-live
|
||||||
~& %test-is-schematic-live
|
:- `tank`leaf+"test-is-schematic-live"
|
||||||
::
|
::
|
||||||
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
||||||
:: pinned-schematic shows a once build
|
:: pinned-schematic shows a once build
|
||||||
@ -146,7 +146,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-date-from-schematic
|
++ test-date-from-schematic
|
||||||
~& %test-date-from-schematic
|
:- `tank`leaf+"test-date-from-schematic"
|
||||||
::
|
::
|
||||||
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
||||||
::
|
::
|
||||||
@ -165,7 +165,7 @@
|
|||||||
[six-schematic [%alts ~[three-schematic nine-schematic]]]
|
[six-schematic [%alts ~[three-schematic nine-schematic]]]
|
||||||
::
|
::
|
||||||
++ test-unify-jugs
|
++ test-unify-jugs
|
||||||
~& %test-unify-jugs
|
:- `tank`leaf+"test-unify-jugs"
|
||||||
::
|
::
|
||||||
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
||||||
::
|
::
|
||||||
@ -178,7 +178,7 @@
|
|||||||
`(jug @tas @ud)`(my ~[[%b (sy 5 6 ~)] [%c (sy 7 8 ~)]])
|
`(jug @tas @ud)`(my ~[[%b (sy 5 6 ~)] [%c (sy 7 8 ~)]])
|
||||||
::
|
::
|
||||||
++ test-resource-wire-encoding
|
++ test-resource-wire-encoding
|
||||||
~& %test-resource-wire-encoding
|
:- `tank`leaf+"test-resource-wire-encoding"
|
||||||
::
|
::
|
||||||
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
||||||
::
|
::
|
||||||
@ -206,7 +206,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-direct
|
++ test-parse-scaffold-direct
|
||||||
~& %test-parse-scaffold-direct
|
:- `tank`leaf+"test-parse-scaffold-direct"
|
||||||
::
|
::
|
||||||
%- expect-eq !>
|
%- expect-eq !>
|
||||||
:- :- [1 19]
|
:- :- [1 19]
|
||||||
@ -229,7 +229,7 @@
|
|||||||
"!. |=(a=@ud +(a))"
|
"!. |=(a=@ud +(a))"
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-indirect
|
++ test-parse-scaffold-indirect
|
||||||
~& %test-parse-scaffold-indirect
|
:- `tank`leaf+"test-parse-scaffold-indirect"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -252,7 +252,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-sur-lib
|
++ test-parse-scaffold-sur-lib
|
||||||
~& %test-parse-scaffold-sur-lib
|
:- `tank`leaf+"test-parse-scaffold-sur-lib"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -280,7 +280,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-zuse-version
|
++ test-parse-scaffold-zuse-version
|
||||||
~& %test-parse-scaffold-zuse-version
|
:- `tank`leaf+"test-parse-scaffold-zuse-version"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -307,7 +307,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fssg
|
++ test-parse-scaffold-crane-fssg
|
||||||
~& %test-parse-scaffold-crane-fssg
|
:- `tank`leaf+"test-parse-scaffold-crane-fssg"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -339,7 +339,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fsbc
|
++ test-parse-scaffold-crane-fsbc
|
||||||
~& %test-parse-scaffold-crane-fsbc
|
:- `tank`leaf+"test-parse-scaffold-crane-fsbc"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -371,7 +371,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fsbr
|
++ test-parse-scaffold-crane-fsbr
|
||||||
~& %test-parse-scaffold-crane-fsbr
|
:- `tank`leaf+"test-parse-scaffold-crane-fsbr"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -406,7 +406,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fsts
|
++ test-parse-scaffold-crane-fsts
|
||||||
~& %test-parse-scaffold-crane-fsts
|
:- `tank`leaf+"test-parse-scaffold-crane-fsts"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -434,7 +434,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fsdt
|
++ test-parse-scaffold-crane-fsdt
|
||||||
~& %test-parse-scaffold-crane-fsdt
|
:- `tank`leaf+"test-parse-scaffold-crane-fsdt"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -469,7 +469,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fscm
|
++ test-parse-scaffold-crane-fscm
|
||||||
~& %test-parse-scaffold-crane-fscm
|
:- `tank`leaf+"test-parse-scaffold-crane-fscm"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -510,7 +510,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fscn
|
++ test-parse-scaffold-crane-fscn
|
||||||
~& %test-parse-scaffold-crane-fscn
|
:- `tank`leaf+"test-parse-scaffold-crane-fscn"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -538,7 +538,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fspm
|
++ test-parse-scaffold-crane-fspm
|
||||||
~& %test-parse-scaffold-crane-fspm
|
:- `tank`leaf+"test-parse-scaffold-crane-fspm"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -568,7 +568,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fscb
|
++ test-parse-scaffold-crane-fscb
|
||||||
~& %test-parse-scaffold-crane-fscb
|
:- `tank`leaf+"test-parse-scaffold-crane-fscb"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -594,7 +594,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fssm
|
++ test-parse-scaffold-crane-fssm
|
||||||
~& %test-parse-scaffold-crane-fssm
|
:- `tank`leaf+"test-parse-scaffold-crane-fssm"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -631,7 +631,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fscl
|
++ test-parse-scaffold-crane-fscl
|
||||||
~& %test-parse-scaffold-crane-fscl
|
:- `tank`leaf+"test-parse-scaffold-crane-fscl"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -661,7 +661,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fskt
|
++ test-parse-scaffold-crane-fskt
|
||||||
~& %test-parse-scaffold-crane-fskt
|
:- `tank`leaf+"test-parse-scaffold-crane-fskt"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -704,7 +704,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fszp
|
++ test-parse-scaffold-crane-fszp
|
||||||
~& %test-parse-scaffold-crane-fszp
|
:- `tank`leaf+"test-parse-scaffold-crane-fszp"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -731,7 +731,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-parse-scaffold-crane-fszy
|
++ test-parse-scaffold-crane-fszy
|
||||||
~& %test-parse-scaffold-crane-fszy
|
:- `tank`leaf+"test-parse-scaffold-crane-fszy"
|
||||||
::
|
::
|
||||||
=/ parsed
|
=/ parsed
|
||||||
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
%+ (full (parse-scaffold:ford-gate [[~nul %desk %da ~1234.5.6] /bar/foo]))
|
||||||
@ -758,7 +758,7 @@
|
|||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
++ test-literal
|
++ test-literal
|
||||||
~& %test-literal
|
:- `tank`leaf+"test-literal"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -782,7 +782,7 @@
|
|||||||
(expect-ford-empty ford ~nul)
|
(expect-ford-empty ford ~nul)
|
||||||
::
|
::
|
||||||
++ test-autocons-same
|
++ test-autocons-same
|
||||||
~& %test-autocons-same
|
:- `tank`leaf+"test-autocons-same"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -809,7 +809,7 @@
|
|||||||
(expect-ford-empty ford ~nul)
|
(expect-ford-empty ford ~nul)
|
||||||
::
|
::
|
||||||
++ test-autocons-different
|
++ test-autocons-different
|
||||||
~& %test-autocons-different
|
:- `tank`leaf+"test-autocons-different"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -836,7 +836,7 @@
|
|||||||
(expect-ford-empty ford ~nul)
|
(expect-ford-empty ford ~nul)
|
||||||
::
|
::
|
||||||
++ test-scry-clay-succeed
|
++ test-scry-clay-succeed
|
||||||
~& %test-scry-clay-succeed
|
:- `tank`leaf+"test-scry-clay-succeed"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -861,7 +861,7 @@
|
|||||||
(expect-ford-empty ford ~nul)
|
(expect-ford-empty ford ~nul)
|
||||||
::
|
::
|
||||||
++ test-scry-clay-fail
|
++ test-scry-clay-fail
|
||||||
~& %test-scry-clay-fail
|
:- `tank`leaf+"test-scry-clay-fail"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -888,7 +888,7 @@
|
|||||||
(expect-ford-empty ford ~nul)
|
(expect-ford-empty ford ~nul)
|
||||||
::
|
::
|
||||||
++ test-scry-clay-block
|
++ test-scry-clay-block
|
||||||
~& %test-scry-clay-block
|
:- `tank`leaf+"test-scry-clay-block"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -935,7 +935,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-scry-clay-live
|
++ test-scry-clay-live
|
||||||
~& %test-scry-clay-live
|
:- `tank`leaf+"test-scry-clay-live"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -1000,7 +1000,8 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-scry-clay-live-again
|
++ test-scry-clay-live-again
|
||||||
~& %test-scry-clay-live-again
|
:- `tank`leaf+"test-scry-clay-live-again"
|
||||||
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
%- test-ford-call :*
|
%- test-ford-call :*
|
||||||
@ -1077,7 +1078,7 @@
|
|||||||
:: same time.
|
:: same time.
|
||||||
::
|
::
|
||||||
++ test-scry-clay-same-path
|
++ test-scry-clay-same-path
|
||||||
~& %test-scry-clay-same-path
|
:- `tank`leaf+"test-scry-clay-same-path"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -1170,7 +1171,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-pinned-in-past
|
++ test-pinned-in-past
|
||||||
~& %test-pinned-in-past
|
:- `tank`leaf+"test-pinned-in-past"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=/ schematic [%pin ~1234.5.5 [%$ %noun !>(42)]]
|
=/ schematic [%pin ~1234.5.5 [%$ %noun !>(42)]]
|
||||||
@ -1190,7 +1191,7 @@
|
|||||||
results1
|
results1
|
||||||
::
|
::
|
||||||
++ test-pinned-in-future
|
++ test-pinned-in-future
|
||||||
~& %test-pinned-in-future
|
:- `tank`leaf+"test-pinned-in-future"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=/ schematic [%pin ~1234.5.7 [%$ %noun !>(42)]]
|
=/ schematic [%pin ~1234.5.7 [%$ %noun !>(42)]]
|
||||||
@ -1210,7 +1211,7 @@
|
|||||||
results1
|
results1
|
||||||
::
|
::
|
||||||
++ test-pinned-in-pin
|
++ test-pinned-in-pin
|
||||||
~& %test-pinned-in-pin
|
:- `tank`leaf+"test-pinned-in-pin"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -1241,7 +1242,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-pinned-in-live
|
++ test-pinned-in-live
|
||||||
~& %test-pinned-in-live
|
:- `tank`leaf+"test-pinned-in-live"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -1305,7 +1306,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-live-build-that-blocks
|
++ test-live-build-that-blocks
|
||||||
~& %test-live-build-that-blocks
|
:- `tank`leaf+"test-live-build-that-blocks"
|
||||||
::
|
::
|
||||||
=/ scry-blocked (scry-block ~1234.5.6)
|
=/ scry-blocked (scry-block ~1234.5.6)
|
||||||
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
||||||
@ -1395,7 +1396,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-live-and-once
|
++ test-live-and-once
|
||||||
~& %test-live-and-once
|
:- `tank`leaf+"test-live-and-once"
|
||||||
::
|
::
|
||||||
=/ scry-blocked (scry-block ~1234.5.6)
|
=/ scry-blocked (scry-block ~1234.5.6)
|
||||||
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
||||||
@ -1481,7 +1482,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-live-two-deep
|
++ test-live-two-deep
|
||||||
~& %test-live-two-deep
|
:- `tank`leaf+"test-live-two-deep"
|
||||||
::
|
::
|
||||||
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
||||||
=/ scry-43 (scry-succeed ~1234.5.7 [%noun !>(43)])
|
=/ scry-43 (scry-succeed ~1234.5.7 [%noun !>(43)])
|
||||||
@ -1549,7 +1550,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-live-three-deep
|
++ test-live-three-deep
|
||||||
~& %test-live-three-deep
|
:- `tank`leaf+"test-live-three-deep"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -1627,7 +1628,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-live-triangle
|
++ test-live-triangle
|
||||||
~& %test-live-triangle
|
:- `tank`leaf+"test-live-triangle"
|
||||||
::
|
::
|
||||||
=/ scry-results=(map [term beam] cage)
|
=/ scry-results=(map [term beam] cage)
|
||||||
%- my :~
|
%- my :~
|
||||||
@ -1713,7 +1714,7 @@
|
|||||||
:: were partially pinned and their interaction with other live builds.
|
:: were partially pinned and their interaction with other live builds.
|
||||||
::
|
::
|
||||||
++ test-live-and-pinned-triangle
|
++ test-live-and-pinned-triangle
|
||||||
~& %test-live-and-pinned-triangle
|
:- `tank`leaf+"test-live-and-pinned-triangle"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -1804,7 +1805,8 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-call
|
++ test-call
|
||||||
~& %test-call
|
:- `tank`leaf+"test-call"
|
||||||
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
=/ sample-schematic=schematic:ford [%$ %noun !>(5)]
|
=/ sample-schematic=schematic:ford [%$ %noun !>(5)]
|
||||||
@ -1856,7 +1858,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-call-scry-succeed
|
++ test-call-scry-succeed
|
||||||
~& %test-call-scry-succeed
|
:- `tank`leaf+"test-call-scry-succeed"
|
||||||
::
|
::
|
||||||
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
=/ scry-42 (scry-succeed ~1234.5.6 [%noun !>(42)])
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
@ -1910,7 +1912,7 @@
|
|||||||
(expect-ford-empty ford ~nul)
|
(expect-ford-empty ford ~nul)
|
||||||
==
|
==
|
||||||
++ test-call-scry-fail
|
++ test-call-scry-fail
|
||||||
~& %test-call-scry-fail
|
:- `tank`leaf+"test-call-scry-fail"
|
||||||
::
|
::
|
||||||
=/ scry-failed (scry-fail ~1234.5.6)
|
=/ scry-failed (scry-fail ~1234.5.6)
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
@ -1963,7 +1965,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
++ test-call-scry-block
|
++ test-call-scry-block
|
||||||
~& %test-call-scry-block
|
:- `tank`leaf+"test-call-scry-block"
|
||||||
::
|
::
|
||||||
=/ scry-blocked (scry-block ~1234.5.6)
|
=/ scry-blocked (scry-block ~1234.5.6)
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
@ -2049,7 +2051,7 @@
|
|||||||
:: passed in sample date.
|
:: passed in sample date.
|
||||||
::
|
::
|
||||||
++ test-call-scry-varies
|
++ test-call-scry-varies
|
||||||
~& %test-call-scry-varies
|
:- `tank`leaf+"test-call-scry-varies"
|
||||||
::
|
::
|
||||||
=/ date-type=type [%atom %da ~]
|
=/ date-type=type [%atom %da ~]
|
||||||
=/ term-type=type [%atom %tas ~]
|
=/ term-type=type [%atom %tas ~]
|
||||||
@ -2178,7 +2180,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-dude
|
++ test-dude
|
||||||
~& %test-dude
|
:- `tank`leaf+"test-dude"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -2209,7 +2211,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-dude-error
|
++ test-dude-error
|
||||||
~& %test-dude-error
|
:- `tank`leaf+"test-dude-error"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -2243,7 +2245,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-hood
|
++ test-hood
|
||||||
~& %test-hood
|
:- `tank`leaf+"test-hood"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -2289,7 +2291,7 @@
|
|||||||
results1
|
results1
|
||||||
::
|
::
|
||||||
++ test-slim
|
++ test-slim
|
||||||
~& %test-slim
|
:- `tank`leaf+"test-slim"
|
||||||
::
|
::
|
||||||
=/ formula=hoon (ream '(add 2 2)')
|
=/ formula=hoon (ream '(add 2 2)')
|
||||||
=/ subject-type=type -:!>(.)
|
=/ subject-type=type -:!>(.)
|
||||||
@ -2326,7 +2328,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-slit
|
++ test-slit
|
||||||
~& %test-slit
|
:- `tank`leaf+"test-slit"
|
||||||
::
|
::
|
||||||
=/ gate=vase (ride %noun '|=(a=@ud ["one" a])')
|
=/ gate=vase (ride %noun '|=(a=@ud ["one" a])')
|
||||||
=/ sample=vase !>(42)
|
=/ sample=vase !>(42)
|
||||||
@ -2375,7 +2377,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-slit-error
|
++ test-slit-error
|
||||||
~& %test-slit-error
|
:- `tank`leaf+"test-slit-error"
|
||||||
::
|
::
|
||||||
=/ gate=vase (ride %noun '|=(a=@ud ["one" a])')
|
=/ gate=vase (ride %noun '|=(a=@ud ["one" a])')
|
||||||
=/ sample=vase !>("a tape instead of @ud")
|
=/ sample=vase !>("a tape instead of @ud")
|
||||||
@ -2430,7 +2432,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-ride
|
++ test-ride
|
||||||
~& %test-ride
|
:- `tank`leaf+"test-ride"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -2553,7 +2555,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-ride-scry-fail
|
++ test-ride-scry-fail
|
||||||
~& %test-ride-scry-fail
|
:- `tank`leaf+"test-ride-scry-fail"
|
||||||
::
|
::
|
||||||
=/ scry-failed (scry-fail ~1234.5.6)
|
=/ scry-failed (scry-fail ~1234.5.6)
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
@ -2605,7 +2607,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-ride-scry-block
|
++ test-ride-scry-block
|
||||||
~& %test-ride-scry-block
|
:- `tank`leaf+"test-ride-scry-block"
|
||||||
::
|
::
|
||||||
=/ scry-blocked (scry-block ~1234.5.6)
|
=/ scry-blocked (scry-block ~1234.5.6)
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
@ -2687,7 +2689,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-ride-scry-promote
|
++ test-ride-scry-promote
|
||||||
~& %test-ride-scry-promote
|
:- `tank`leaf+"test-ride-scry-promote"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -2764,7 +2766,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-five-oh-fora
|
++ test-five-oh-fora
|
||||||
~& %test-five-oh-fora
|
:- `tank`leaf+"test-five-oh-fora"
|
||||||
::
|
::
|
||||||
=/ scry-type=type
|
=/ scry-type=type
|
||||||
[%cell [%face [~ %title] [%atom %tas ~]] [%face [~ %contents] -:!>("")]]
|
[%cell [%face [~ %title] [%atom %tas ~]] [%face [~ %contents] -:!>("")]]
|
||||||
@ -2906,7 +2908,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-alts
|
++ test-alts
|
||||||
~& %test-alts
|
:- `tank`leaf+"test-alts"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -3023,7 +3025,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-alts-and-live
|
++ test-alts-and-live
|
||||||
~& %test-alts-and-live
|
:- `tank`leaf+"test-alts-and-live"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -3160,7 +3162,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-double-alts
|
++ test-double-alts
|
||||||
~& %test-double-alts
|
:- `tank`leaf+"test-double-alts"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -3321,7 +3323,7 @@
|
|||||||
:: +test-cache-reclamation-trivial: reclaim cache on a blank slate ford
|
:: +test-cache-reclamation-trivial: reclaim cache on a blank slate ford
|
||||||
::
|
::
|
||||||
++ test-cache-reclamation-trivial
|
++ test-cache-reclamation-trivial
|
||||||
~& %test-cache-reclamation-trivial
|
:- `tank`leaf+"test-cache-reclamation-trivial"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -3361,7 +3363,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-cache-reclamation-live-rebuild
|
++ test-cache-reclamation-live-rebuild
|
||||||
~& %test-cache-reclamation-live-rebuild
|
:- `tank`leaf+"test-cache-reclamation-live-rebuild"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=^ results1 ford
|
=^ results1 ford
|
||||||
@ -3440,7 +3442,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-cache-reclamation-live-promote
|
++ test-cache-reclamation-live-promote
|
||||||
~& %test-cache-reclamation-live-promote
|
:- `tank`leaf+"test-cache-reclamation-live-promote"
|
||||||
::
|
::
|
||||||
=/ scry-type=type [%atom %tas ~]
|
=/ scry-type=type [%atom %tas ~]
|
||||||
::
|
::
|
||||||
@ -3533,7 +3535,7 @@
|
|||||||
:: tests that doing a cache reclamation during the five-oh-fora rebuild works
|
:: tests that doing a cache reclamation during the five-oh-fora rebuild works
|
||||||
::
|
::
|
||||||
++ test-five-oh-cache-reclamation
|
++ test-five-oh-cache-reclamation
|
||||||
~& %test-five-oh-cache-reclamation
|
:- `tank`leaf+"test-five-oh-cache-reclamation"
|
||||||
::
|
::
|
||||||
=/ scry-type=type
|
=/ scry-type=type
|
||||||
[%cell [%face [~ %title] [%atom %tas ~]] [%face [~ %contents] -:!>("")]]
|
[%cell [%face [~ %title] [%atom %tas ~]] [%face [~ %contents] -:!>("")]]
|
||||||
@ -3755,7 +3757,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-reef
|
++ test-reef
|
||||||
~& %test-reef
|
:- `tank`leaf+"test-reef"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
=/ hoon-beam-path=path (en-beam:format [bek /hoon/hoon/sys])
|
=/ hoon-beam-path=path (en-beam:format [bek /hoon/hoon/sys])
|
||||||
@ -3833,7 +3835,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-reef-short-circuit
|
++ test-reef-short-circuit
|
||||||
~& %test-reef-short-circuit
|
:- `tank`leaf+"test-reef-short-circuit"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -3886,7 +3888,7 @@
|
|||||||
|
|
||||||
::
|
::
|
||||||
++ test-path
|
++ test-path
|
||||||
~& %test-path
|
:- `tank`leaf+"test-path"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -3923,7 +3925,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-plan-direct-hoon
|
++ test-plan-direct-hoon
|
||||||
~& %test-plan-direct-hoon
|
:- `tank`leaf+"test-plan-direct-hoon"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -3977,7 +3979,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core
|
++ test-core
|
||||||
~& %test-core
|
:- `tank`leaf+"test-core"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4014,7 +4016,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-linker
|
++ test-core-linker
|
||||||
~& %test-core-linker
|
:- `tank`leaf+"test-core-linker"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4094,7 +4096,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-multi-hoon
|
++ test-core-multi-hoon
|
||||||
~& %test-core-multi-hoon
|
:- `tank`leaf+"test-core-multi-hoon"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4158,7 +4160,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-fsts-fssg
|
++ test-core-fsts-fssg
|
||||||
~& %test-core-fsts-fssg
|
:- `tank`leaf+"test-core-fsts-fssg"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4215,7 +4217,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-fsdt-fskt
|
++ test-core-fsdt-fskt
|
||||||
~& %test-core-fsdt-fskt
|
:- `tank`leaf+"test-core-fsdt-fskt"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4275,7 +4277,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-fskt-nest-fail
|
++ test-core-fskt-nest-fail
|
||||||
~& %test-core-fskt-nest-fail
|
:- `tank`leaf+"test-core-fskt-nest-fail"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4317,7 +4319,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-fssm
|
++ test-core-fssm
|
||||||
~& %test-core-fssm
|
:- `tank`leaf+"test-core-fssm"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4374,7 +4376,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-fsbr
|
++ test-core-fsbr
|
||||||
~& %test-core-fsbr
|
:- `tank`leaf+"test-core-fsbr"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4435,7 +4437,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-fsbr-out-of-options
|
++ test-core-fsbr-out-of-options
|
||||||
~& %test-core-fsbr-out-of-options
|
:- `tank`leaf+"test-core-fsbr-out-of-options"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4481,7 +4483,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-plan-fszp-as-noun
|
++ test-plan-fszp-as-noun
|
||||||
~& %test-plan-fszp-as-noun
|
:- `tank`leaf+"test-plan-fszp-as-noun"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4550,7 +4552,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-core-fscl-fszp
|
++ test-core-fscl-fszp
|
||||||
~& %test-core-fscl-fszp
|
:- `tank`leaf+"test-core-fscl-fszp"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
@ -4615,7 +4617,7 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-bunt
|
++ test-bunt
|
||||||
~& %test-bunt
|
:- `tank`leaf+"test-bunt"
|
||||||
::
|
::
|
||||||
=/ ford *ford-gate
|
=/ ford *ford-gate
|
||||||
::
|
::
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user