2008-03-01 17:00:45 -05:00
|
|
|
IN: xmode.catalog.tests
|
2007-11-28 23:34:11 -05:00
|
|
|
USING: xmode.catalog tools.test hashtables assocs
|
|
|
|
|
kernel sequences io ;
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ modes hashtable? ] unit-test
|
2007-11-28 23:34:11 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ } [
|
2007-12-06 01:47:53 -05:00
|
|
|
modes keys [
|
|
|
|
|
dup print flush load-mode drop reset-modes
|
|
|
|
|
] each
|
2007-11-28 23:34:11 -05:00
|
|
|
] unit-test
|
