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

Game test now with packet output.

Browse Source
This commit is contained in:
lotodore
2007-11-08 22:28:25 +00:00
parent 172a566c79
commit e796eb0980
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/pkth.scm
+2 -2
View File
@@ -696,7 +696,7 @@
(define pkth-send-message
(lambda (socket message)
;(msg-display message helper-direction-send)
(msg-display message helper-direction-send)
(pkth-send-message-nolog socket message)))
; The recv function for PKTH is somewhat more complicated, because
@@ -717,7 +717,7 @@
(set! helper-var-recv-buf (string-drop helper-var-recv-buf packetlen))
(set! ret (string->bytes packet))
(test-assert (pkth-is-valid-type? ret) "Invalid PKTH message type.")
;(msg-display ret helper-direction-recv)
(msg-display ret helper-direction-recv)
)))))))
(if (not abort)
(let ((buf (make-string pkth-buf-length)))
tests/pkth_tests.scm
+11 -11
View File
@@ -138,23 +138,23 @@
))
(display "Waiting for Join Game Ack...\n")
(wait-for-message sock pkth-recv-message (list pkth-is-type-join-game-ack?) (list pkth-is-type-statistics-changed? pkth-is-type-game-list-all?) 20000)
(pkth-send-message sock (pkth-create-start-event pkth-start-flag-fill-with-cpu-players))
; (pkth-send-message sock (pkth-create-start-event pkth-start-flag-fill-with-cpu-players))
(display "Waiting for Start Event...\n")
(wait-for-message sock pkth-recv-message (list pkth-is-type-start-event?) (list pkth-is-type-statistics-changed? pkth-is-type-player-joined? pkth-is-type-game-list-all?) 20000)
(pkth-send-message sock (pkth-create-start-event-ack))
(display "Waiting for Game Start...\n")
(wait-for-message sock pkth-recv-message (list pkth-is-type-game-start?) (list pkth-is-type-statistics-changed? pkth-is-type-game-list-all?) 20000)
(display "Waiting for Hand Start...\n")
(wait-for-message sock pkth-recv-message (list pkth-is-type-hand-start?) (list pkth-is-type-statistics-changed? pkth-is-type-game-list-all?) 20000)
(display "Waiting for Players Turn...\n")
(wait-for-message sock pkth-recv-message (list pkth-is-type-players-turn?) (list pkth-is-type-statistics-changed? pkth-is-type-players-action-done? pkth-is-type-game-list-all?) 20000)
; (wait-for-message sock pkth-recv-message (list pkth-is-type-start-event?) (list pkth-is-type-statistics-changed? pkth-is-type-player-joined? pkth-is-type-game-list-all?) 20000)
; (pkth-send-message sock (pkth-create-start-event-ack))
; (display "Waiting for Game Start...\n")
; (wait-for-message sock pkth-recv-message (list pkth-is-type-game-start?) (list pkth-is-type-statistics-changed? pkth-is-type-game-list-all?) 20000)
; (display "Waiting for Hand Start...\n")
; (wait-for-message sock pkth-recv-message (list pkth-is-type-hand-start?) (list pkth-is-type-statistics-changed? pkth-is-type-game-list-all?) 20000)
; (display "Waiting for Players Turn...\n")
; (wait-for-message sock pkth-recv-message (list pkth-is-type-players-turn?) (list pkth-is-type-statistics-changed? pkth-is-type-players-action-done? pkth-is-type-game-list-all?) 20000)
(pkth-send-message sock (pkth-create-leave-current-game))
(display "Waiting for Removed From Game...\n")
(wait-for-message sock pkth-recv-message (list pkth-is-type-removed-from-game?) (list pkth-is-type-statistics-changed? pkth-is-type-players-action-done? pkth-is-type-players-turn? pkth-is-type-player-left? pkth-is-type-deal-flop-cards? pkth-is-type-end-of-hand-hide-cards? pkth-is-type-game-list-all?) 20000)
)
(sock-close sock)
))
(set! pkth-test-list (test-register pkth-test-list "PKTH Test 3: Starting and leaving games" pkth-test-start-leave-game))
;(set! pkth-test-list (test-register pkth-test-list "PKTH Test 3: Starting and leaving games" pkth-test-start-leave-game))
(define (pkth-test-run-game)
(let ((sock (pkth-connect)))
@@ -197,7 +197,7 @@
)
(sock-close sock)
))
;(set! pkth-test-list (test-register pkth-test-list "PKTH Test 4: Running games" pkth-test-run-game))
(set! pkth-test-list (test-register pkth-test-list "PKTH Test 4: Running games" pkth-test-run-game))
(test-run-all pkth-test-list)