From e796eb09806740217044b56c8bd120d77d76b3a9 Mon Sep 17 00:00:00 2001 From: lotodore Date: Thu, 8 Nov 2007 22:28:25 +0000 Subject: [PATCH] Game test now with packet output. --- tests/pkth.scm | 4 ++-- tests/pkth_tests.scm | 22 +++++++++++----------- 2 files changed, 13 insertions(+), 13 deletions(-) diff --git a/tests/pkth.scm b/tests/pkth.scm index ac0aa043..ec988599 100644 --- a/tests/pkth.scm +++ b/tests/pkth.scm @@ -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))) diff --git a/tests/pkth_tests.scm b/tests/pkth_tests.scm index f9f7a5de..8ac732e8 100644 --- a/tests/pkth_tests.scm +++ b/tests/pkth_tests.scm @@ -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)