From dd3189ecb6b20fcb878a5534e7d88ada40728005 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 4 Apr 2016 10:31:47 -0700 Subject: [PATCH] tools.test: adding with-test-file and with-test-directory. These provide unique temp files (and directories) that are automatically cleaned up when the quotation exits. Mostly this allows us to simplify some of our test files. --- basis/tools/test/test.factor | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor index aea50b2d4a..0c1d059b1a 100644 --- a/basis/tools/test/test.factor +++ b/basis/tools/test/test.factor @@ -2,11 +2,12 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays assocs combinators command-line compiler.units continuations debugger effects fry -generalizations io kernel lexer locals macros namespaces parser -prettyprint quotations sequences sequences.generalizations -source-files source-files.errors source-files.errors.debugger -splitting stack-checker summary tools.errors unicode vocabs -vocabs.files vocabs.metadata vocabs.parser words ; +generalizations io io.files.temp io.files.unique kernel lexer +locals macros namespaces parser prettyprint quotations sequences +sequences.generalizations source-files source-files.errors +source-files.errors.debugger splitting stack-checker summary +tools.errors unicode vocabs vocabs.files vocabs.metadata +vocabs.parser words ; FROM: vocabs.hierarchy => load ; IN: tools.test @@ -157,6 +158,12 @@ SYMBOL: forget-tests? PRIVATE> +: with-test-file ( ..a quot: ( ..a path -- ..b ) -- ..b ) + '[ "" "" _ cleanup-unique-file ] with-temp-directory ; inline + +: with-test-directory ( ..a quot: ( ..a -- ..b ) -- ..b ) + [ cleanup-unique-directory ] with-temp-directory ; inline + TEST: unit-test TEST: must-infer-as TEST: must-infer