2009-02-12 21:42:32 -05:00
|
|
|
USING: assocs xmode.utilities tools.test ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: xmode.utilities.tests
|
2009-02-12 21:42:32 -05:00
|
|
|
|
2007-12-10 02:20:36 -05:00
|
|
|
[ "hi" 3 ] [
|
2007-11-28 23:34:11 -05:00
|
|
|
{ 1 2 3 4 5 6 7 8 } [ H{ { 3 "hi" } } at ] map-find
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f f ] [
|
|
|
|
|
{ 1 2 3 4 5 6 7 8 } [ H{ { 11 "hi" } } at ] map-find
|
|
|
|
|
] unit-test
|