From 5372e0b9a589357472dd92e75b8b1bf93a9221ec Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 19 Jun 2012 17:13:45 -0700 Subject: [PATCH] tools.deploy: delete all cached staging images in deploy tests. --- basis/tools/deploy/deploy-tests.factor | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor index ac33c08011..e749095636 100644 --- a/basis/tools/deploy/deploy-tests.factor +++ b/basis/tools/deploy/deploy-tests.factor @@ -6,6 +6,15 @@ urls math.parser io.directories tools.deploy tools.deploy.test vocabs ; IN: tools.deploy.tests +! Delete all cached staging images in case syntax or +! other core vocabularies have changed and staging +! images are stale. +cache-directory [ + [ "staging." head? ] filter + my-arch ".image" append [ tail? ] curry filter + [ delete-file ] each +] with-directory-files + [ "nosuchvocab" deploy ] [ no-vocab? ] must-fail-with [ "no such vocab, fool!" deploy ] [ bad-vocab-name? ] must-fail-with