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

fix the unit tests

db4
erg 2008-05-21 15:58:55 -05:00
parent 9307bb3b4a
commit 48802aeee6
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
extra/state-tables/state-tables-tests.factor
View File

@ -1,5 +1,5 @@
USING: kernel tables tools.test ; USING: kernel state-tables tools.test ;
IN: tables.tests IN: state-tables.tests
: test-table : test-table
<table> <table>
@ -11,12 +11,17 @@ IN: tables.tests
"b" "s" "u" <entry> over set-entry ; "b" "s" "u" <entry> over set-entry ;
[ [
T{ table f T{
table
f
H{ H{
{ "a" H{ { "l" "x" } { "c" "z" } { "o" "y" } } } { "a" H{ { "l" "x" } { "c" "z" } { "o" "y" } } }
{ "b" H{ { "l" "x" } { "s" "u" } { "o" "y" } } } { "b" H{ { "l" "x" } { "s" "u" } { "o" "y" } } }
} }
H{ { "l" t } { "s" t } { "c" t } { "o" t } } } H{ { "l" t } { "s" t } { "c" t } { "o" t } }
f
H{ }
}
] [ test-table ] unit-test ] [ test-table ] unit-test
[ "x" t ] [ "a" "l" test-table get-entry ] unit-test [ "x" t ] [ "a" "l" test-table get-entry ] unit-test
@ -27,13 +32,13 @@ IN: tables.tests
: vector-test-table : vector-test-table
<vector-table> <vector-table>
"a" "c" "z" <entry> over add-value "a" "c" "z" <entry> over add-entry
"a" "c" "r" <entry> over add-value "a" "c" "r" <entry> over add-entry
"a" "o" "y" <entry> over add-value "a" "o" "y" <entry> over add-entry
"a" "l" "x" <entry> over add-value "a" "l" "x" <entry> over add-entry
"b" "o" "y" <entry> over add-value "b" "o" "y" <entry> over add-entry
"b" "l" "x" <entry> over add-value "b" "l" "x" <entry> over add-entry
"b" "s" "u" <entry> over add-value ; "b" "s" "u" <entry> over add-entry ;
[ [
T{ vector-table f T{ vector-table f
@ -44,6 +49,8 @@ T{ vector-table f
H{ { "l" "x" } { "s" "u" } { "o" "y" } } } H{ { "l" "x" } { "s" "u" } { "o" "y" } } }
} }
H{ { "l" t } { "s" t } { "c" t } { "o" t } } H{ { "l" t } { "s" t } { "c" t } { "o" t } }
f
H{ }
} }
] [ vector-test-table ] unit-test ] [ vector-test-table ] unit-test