vocabs.parser: add tests to assert that the correct errors get thrown

db4
Slava Pestov 2009-07-18 07:02:13 -05:00
parent a716e4cddb
commit e630102252
1 changed files with 10 additions and 0 deletions

View File

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