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

fix unit test

db4
Doug Coleman 2009-12-08 17:05:11 -06:00
parent 0d75418048
commit 5c9ce929c7
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/poker/poker-tests.factor
View File

@ -1,4 +1,5 @@
USING: accessors kernel math.order poker poker.private tools.test ; USING: accessors kernel math math.order poker poker.private
tools.test ;
IN: poker.tests IN: poker.tests
[ 134236965 ] [ "KD" >ckf ] unit-test [ 134236965 ] [ "KD" >ckf ] unit-test

3
extra/poker/poker.factor
View File

@ -260,5 +260,8 @@ ERROR: bad-suit-symbol ch ;
: value>hand-name ( value -- string ) : value>hand-name ( value -- string )
value>rank VALUE_STR nth ; value>rank VALUE_STR nth ;
: string>hand-name ( string -- string' )
string>value value>hand-name ;
SYNTAX: HAND{ SYNTAX: HAND{
"}" parse-tokens [ card> ] { } map-as suffix! ; "}" parse-tokens [ card> ] { } map-as suffix! ;