steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Doug Coleman 2015-08-27 18:51:40 -07:00
parent bb16ef8a86
commit 2a520191e1
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/vocabs/metadata/metadata-tests.factor
View File

@ -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 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 [ 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