extra/poker/poker-tests.factor

   1 USING: accessors kernel math math.order poker poker.private
   2 tools.test ;
   3
   4 { 134236965 } [ "KD" >ckf ] unit-test
   5 { 529159 } [ "5s" >ckf ] unit-test
   6 { 33589533 } [ "jc" >ckf ] unit-test
   7
   8 { 7462 } [ "7C 5D 4H 3S 2C" string>value ] unit-test
   9 { 1601 } [ "KD QS JC TH 9S" string>value ] unit-test
  10 { 11 } [ "AC AD AH AS KC" string>value ] unit-test
  11 { 9 } [ "6C 5C 4C 3C 2C" string>value ] unit-test
  12 { 1 } [ "AC KC QC JC TC" string>value ] unit-test
  13
  14 { "High Card" } [ "7C 5D 4H 3S 2C" string>hand-name ] unit-test
  15 { "Straight" } [ "KD QS JC TH 9S" string>hand-name ] unit-test
  16 { "Four of a Kind" } [ "AC AD AH AS KC" string>hand-name ] unit-test
  17 { "Straight Flush" } [ "6C 5C 4C 3C 2C" string>hand-name ] unit-test
  18
  19 { t } [ "7C 5D 4H 3S 2C" "KD QS JC TH 9S" [ string>value ] bi@ > ] unit-test
  20 { t } [ "AC AD AH AS KC" "KD QS JC TH 9S" [ string>value ] bi@ < ] unit-test
  21 { t } [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ string>value ] bi@ = ] unit-test
  22
  23 { t } [ "7C 5D 4H 3S 2C" "2C 3S 4H 5D 7C" [ string>value ] bi@ = ] unit-test
  24
  25 { t } [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ string>value ] bi@ = ] unit-test
  26
  27 { 190 } [ "AS KD JC KH 2D 2S KC" string>value ] unit-test