vocabs.parser: add tests to assert that the correct errors get thrown
parent
a716e4cddb
commit
e630102252
|
@ -0,0 +1,10 @@
|
|||
IN: vocabs.parser.tests
|
||||
USING: vocabs.parser tools.test eval kernel accessors ;
|
||||
|
||||
[ "FROM: kernel => doesnotexist ;" eval( -- ) ]
|
||||
[ error>> T{ no-word-in-vocab { word "doesnotexist" } { vocab "kernel" } } = ]
|
||||
must-fail-with
|
||||
|
||||
[ "RENAME: doesnotexist kernel => newname" eval( -- ) ]
|
||||
[ error>> T{ no-word-in-vocab { word "doesnotexist" } { vocab "kernel" } } = ]
|
||||
must-fail-with
|
Loading…
Reference in New Issue