sco/pokerth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Network test fixes.

Browse Source
This commit is contained in:
lotodore
2007-10-26 10:51:03 +00:00
parent e0f1193963
commit 9368c5f16e
5 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/pkth.scm
+6
View File
@@ -93,6 +93,7 @@
(define pkth-type-end-of-hand-show-cards #x0064)
(define pkth-type-end-of-hand-hide-cards #x0065)
(define pkth-type-end-of-game #x0070)
(define pkth-type-statistics-changed #x0080)
(define pkth-type-removed-from-game #x0100)
@@ -333,6 +334,7 @@
(= type pkth-type-end-of-hand-show-cards)
(= type pkth-type-end-of-hand-hide-cards)
(= type pkth-type-end-of-game)
(= type pkth-type-statistics-changed)
(= type pkth-type-removed-from-game)
(= type pkth-type-send-chat-text)
(= type pkth-type-chat-text)
@@ -523,6 +525,10 @@
(lambda (message)
(= (pkth-get-type message) pkth-type-end-of-game)))
(define pkth-is-type-statistics-changed?
(lambda (message)
(= (pkth-get-type message) pkth-type-statistics-changed)))
(define pkth-is-type-removed-from-game?
(lambda (message)
(= (pkth-get-type message) pkth-type-removed-from-game)))