vocabs.metadata: Fix test so it stops trying to load the wrong platfo…

…rm vocabulary forever. Fixes factor#1463.
slavapestov · Aug 28, 2015 · 2a52019 · 2a52019
1 parent bb16ef8
commit 2a52019
Showing 1 changed file with 11 additions and 2 deletions.
diff --git 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