From 2d46cfdf9eeba5c3be1e47cb718679790f6493f9 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 8 Sep 2009 13:13:30 -0500 Subject: [PATCH] Improved line number handling for unit test failure errors --- basis/tools/test/test.factor | 2 +- basis/ui/tools/error-list/error-list.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor index 42721bada1..2692c5a8b6 100644 --- a/basis/tools/test/test.factor +++ b/basis/tools/test/test.factor @@ -45,7 +45,7 @@ T{ error-type SYMBOL: file : file-failure ( error -- ) - f file get f failure ; + [ f file get ] keep error-line failure ; :: (unit-test) ( output input -- error ? ) [ { } input with-datastack output assert-sequence= f f ] [ t ] recover ; diff --git a/basis/ui/tools/error-list/error-list.factor b/basis/ui/tools/error-list/error-list.factor index a1da59fe39..34a5221307 100644 --- a/basis/ui/tools/error-list/error-list.factor +++ b/basis/ui/tools/error-list/error-list.factor @@ -97,7 +97,7 @@ M: error-renderer column-titles M: error-renderer column-alignment drop { 0 1 0 0 } ; : sort-errors ( seq -- seq' ) - [ [ [ line#>> ] [ asset>> unparse-short ] bi 2array ] keep ] { } map>assoc + [ [ [ line#>> 0 or ] [ asset>> unparse-short ] bi 2array ] keep ] { } map>assoc sort-keys values ; : file-matches? ( error pathname/f -- ? )