From 38b1c4bafdc0dbbcd01f14c415410751cf98c24b Mon Sep 17 00:00:00 2001 From: lotodore Date: Mon, 29 Oct 2007 09:34:28 +0000 Subject: [PATCH] Use more graceful timeouts. --- tests/pkth_tests.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/pkth_tests.scm b/tests/pkth_tests.scm index 1eb70de1..b5985d30 100644 --- a/tests/pkth_tests.scm +++ b/tests/pkth_tests.scm @@ -162,7 +162,7 @@ (let ((sock (pkth-connect))) (pkth-send-message sock (pkth-create-init '() "" (pkth-create-random-name))) (display "Waiting for Init-Ack...\n") - (wait-for-message sock pkth-recv-message (list pkth-is-type-init-ack?) '() 5000) + (wait-for-message sock pkth-recv-message (list pkth-is-type-init-ack?) '() 20000) (display "Starting and leaving loads of games...\n") (dotimes (n 512) (pkth-send-message sock @@ -184,18 +184,18 @@ "test password" )) (display "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?) 5000) + (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)) (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?) 5000) + (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?) 5000) + (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 End Of Game...\n") (wait-for-message sock pkth-recv-message (list pkth-is-type-end-of-game?) (list pkth-is-valid-type?) 5000000) (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-player-left? pkth-is-type-game-list-all?) 5000) + (wait-for-message sock pkth-recv-message (list pkth-is-type-removed-from-game?) (list pkth-is-type-statistics-changed? pkth-is-type-player-left? pkth-is-type-game-list-all?) 20000) ) (sock-close sock) ))