factor/extra/tnetstrings/tnetstrings-tests.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