From 2a520191e11d02d5ef6e7aa8957dd7c1d76057b3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 27 Aug 2015 18:51:40 -0700 Subject: [PATCH] vocabs.metadata: Fix test so it stops trying to load the wrong platform vocabulary forever. Fixes #1463. --- basis/vocabs/metadata/metadata-tests.factor | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/basis/vocabs/metadata/metadata-tests.factor b/basis/vocabs/metadata/metadata-tests.factor index 3f19f45f04e..0f248b63771 100644 --- a/basis/vocabs/metadata/metadata-tests.factor +++ b/basis/vocabs/metadata/metadata-tests.factor @@ -1,5 +1,14 @@ -USING: accessors kernel system tools.test vocabs.parser ; +USING: accessors debugger kernel system tools.test vocabs +vocabs.parser ; IN: vocabs.metadata -[ os windows? "unix" "windows" ? use-vocab ] +: wrong-platform-vocab-name ( -- name ) + os windows? "unix" "windows" ? ; + +[ wrong-platform-vocab-name use-vocab ] [ error>> unsupported-platform? ] must-fail-with + +! Factor remembers that we tried to load the wrong vocab +! and this breaks f2 until we forget the vocab. +! See issue #1463. +[ wrong-platform-vocab-name forget-vocab ] try