From 47b45ccad343f7ef7732b063d48a3205c079679c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 25 Jul 2017 11:26:50 -0700 Subject: [PATCH] tools.test: better errors when unit-test-~/v~ fail. --- basis/tools/test/test.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor index 821458cea5..939f6d191b 100644 --- a/basis/tools/test/test.factor +++ b/basis/tools/test/test.factor @@ -71,10 +71,10 @@ SYMBOL: current-test-file ] [ t ] recover t ; inline : (unit-test~) ( output input -- error/f failed? tested? ) - [ ~ ] (unit-test-comparator) ; + [ 3dup ~ [ 3drop t ] [ drop assert ] if ] (unit-test-comparator) ; : (unit-test-v~) ( output input -- error/f failed? tested? ) - [ v~ ] (unit-test-comparator) ; + [ 3dup v~ [ 3drop t ] [ drop assert ] if ] (unit-test-comparator) ; : short-effect ( effect -- pair ) [ in>> length ] [ out>> length ] bi 2array ;