vocabs.metadata: Fix test so it stops trying to load the wrong platform vocabulary...

diff --git a/basis/vocabs/metadata/metadata-tests.factor b/basis/vocabs/metadata/metadata-tests.factor
index 3f19f45f04eb60ff643d44f7baef13cc29472248..0f248b63771176546bc190a63723547af12a0e3e 100644 (file)
--- 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