add ability to cancel test

This commit is contained in:
Philip Monk 2019-03-20 17:45:36 -07:00
parent e8c7c16934
commit 7edcbf71f3
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -343,8 +343,11 @@
=. test-qeu (~(put to test-qeu) lab.arg)
run-test
::
%cancel-test
!!
%cancel
=^ moves-1 this (finish-test %last |)
=. test-qeu ~
=^ moves-2 this run-test
[:(weld moves-1 moves-2) this]
::
%print
=/ log effect-log:(need test-core)