steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

interval-sets: change tests to use constant literals.

db4
John Benediktsson 2012-05-04 17:40:45 -07:00
parent 1d8449115c
commit 4cd54bdf9c
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
basis/interval-sets/interval-sets-tests.factor
View File

@ -1,14 +1,14 @@
! Copyright (C) 2009 Daniel Ehrenberg. ! Copyright (C) 2009 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: tools.test interval-sets math grouping sequences accessors USING: tools.test interval-sets math grouping sequences accessors
combinators.short-circuit ; combinators.short-circuit literals ;
IN: interval-sets.tests IN: interval-sets.tests
[ f ] [ 0 T{ interval-set } in? ] unit-test [ f ] [ 0 T{ interval-set } in? ] unit-test
[ f ] [ 2 T{ interval-set } in? ] unit-test [ f ] [ 2 T{ interval-set } in? ] unit-test
: i1 ( -- set ) CONSTANT: i1 $[
{ { 3 4 } } <interval-set> ; { { 3 4 } } <interval-set> ]
[ f ] [ 2 i1 in? ] unit-test [ f ] [ 2 i1 in? ] unit-test
[ t ] [ 3 i1 in? ] unit-test [ t ] [ 3 i1 in? ] unit-test
@ -17,19 +17,19 @@ IN: interval-sets.tests
CONSTANT: unicode-max 0x10FFFF CONSTANT: unicode-max 0x10FFFF
: i2 ( -- set ) CONSTANT: i2 $[
{ { 3 4 } } <interval-set> { { 3 4 } } <interval-set>
unicode-max <interval-not> ; unicode-max <interval-not> ]
[ t ] [ 2 i2 in? ] unit-test [ t ] [ 2 i2 in? ] unit-test
[ f ] [ 3 i2 in? ] unit-test [ f ] [ 3 i2 in? ] unit-test
[ f ] [ 4 i2 in? ] unit-test [ f ] [ 4 i2 in? ] unit-test
[ t ] [ 5 i2 in? ] unit-test [ t ] [ 5 i2 in? ] unit-test
: i3 ( -- set ) CONSTANT: i3 $[
{ { 2 4 } } <interval-set> { { 2 4 } } <interval-set>
{ { 6 8 } } <interval-set> { { 6 8 } } <interval-set>
<interval-or> ; <interval-or> ]
[ f ] [ 1 i3 in? ] unit-test [ f ] [ 1 i3 in? ] unit-test
[ t ] [ 2 i3 in? ] unit-test [ t ] [ 2 i3 in? ] unit-test
@ -41,10 +41,10 @@ CONSTANT: unicode-max 0x10FFFF
[ t ] [ 8 i3 in? ] unit-test [ t ] [ 8 i3 in? ] unit-test
[ f ] [ 9 i3 in? ] unit-test [ f ] [ 9 i3 in? ] unit-test
: i4 ( -- set ) CONSTANT: i4 $[
{ { 2 4 } } <interval-set> { { 2 4 } } <interval-set>
{ { 6 8 } } <interval-set> { { 6 8 } } <interval-set>
<interval-and> ; <interval-and> ]
[ f ] [ 1 i4 in? ] unit-test [ f ] [ 1 i4 in? ] unit-test
[ f ] [ 2 i4 in? ] unit-test [ f ] [ 2 i4 in? ] unit-test
@ -56,10 +56,10 @@ CONSTANT: unicode-max 0x10FFFF
[ f ] [ 8 i4 in? ] unit-test [ f ] [ 8 i4 in? ] unit-test
[ f ] [ 9 i4 in? ] unit-test [ f ] [ 9 i4 in? ] unit-test
: i5 ( -- set ) CONSTANT: i5 $[
{ { 2 5 } } <interval-set> { { 2 5 } } <interval-set>
{ { 4 8 } } <interval-set> { { 4 8 } } <interval-set>
<interval-or> ; <interval-or> ]
[ f ] [ 1 i5 in? ] unit-test [ f ] [ 1 i5 in? ] unit-test
[ t ] [ 2 i5 in? ] unit-test [ t ] [ 2 i5 in? ] unit-test
@ -71,10 +71,10 @@ CONSTANT: unicode-max 0x10FFFF
[ t ] [ 8 i5 in? ] unit-test [ t ] [ 8 i5 in? ] unit-test
[ f ] [ 9 i5 in? ] unit-test [ f ] [ 9 i5 in? ] unit-test
: i6 ( -- set ) CONSTANT: i6 $[
{ { 2 5 } } <interval-set> { { 2 5 } } <interval-set>
{ { 4 8 } } <interval-set> { { 4 8 } } <interval-set>
<interval-and> ; <interval-and> ]
[ f ] [ 1 i6 in? ] unit-test [ f ] [ 1 i6 in? ] unit-test
[ f ] [ 2 i6 in? ] unit-test [ f ] [ 2 i6 in? ] unit-test