27 lines
674 B
Factor
27 lines
674 B
Factor
|
! Copyright (C) 2011 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
|
||
|
|
USING: kernel tnetstrings sequences tools.test ;
|
||
|
|
|
||
|
|
[ t ] [
|
||
|
|
{
|
||
|
|
{ H{ } "0:}" }
|
||
|
|
{ { } "0:]" }
|
||
|
|
{ "" "0:\"" }
|
||
|
|
{ t "4:true!" }
|
||
|
|
{ f "5:false!" }
|
||
|
|
{ 12345 "5:12345#" }
|
||
|
|
{ "this is cool" "12:this is cool\"" }
|
||
|
|
{
|
||
|
|
H{ { "hello" { 12345678901 "this" } } }
|
||
|
|
"34:5:hello\"22:11:12345678901#4:this\"]}"
|
||
|
|
}
|
||
|
|
{
|
||
|
|
{ 12345 67890 "xxxxx" }
|
||
|
|
"24:5:12345#5:67890#5:xxxxx\"]"
|
||
|
|
}
|
||
|
|
} [
|
||
|
|
first2 [ tnetstring> = ] [ swap >tnetstring = ] 2bi and
|
||
|
|
] all?
|
||
|
|
] unit-test
|