11 lines
225 B
Factor
11 lines
225 B
Factor
|
|
||
|
|
USING: make sequences tools.test ;
|
||
|
|
IN: make
|
||
|
|
|
||
|
|
{ "ABCD" } [ [ "ABCD" [ , ] each ] "" make ] unit-test
|
||
|
|
|
||
|
|
{ H{ { "key" "value" } } }
|
||
|
|
[ [ "value" "key" ,, ] H{ } make ] unit-test
|
||
|
|
|
||
|
|
{ { { 1 2 } } } [ [ 2 1 ,, ] { } make ] unit-test
|