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

Fixes and part of new test.

Browse Source
This commit is contained in:
lotodore
2007-10-28 20:45:47 +00:00
parent 3ea61381ef
commit 08ab159bc0
2 changed files with 52 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/pkth.scm
+4 -3
View File
@@ -381,7 +381,8 @@
!#
(define pkth-is-valid-type?
(lambda (type)
(lambda (message)
(let ((type (pkth-get-type message)))
(or
(= type pkth-type-init)
(= type pkth-type-init-ack)
@@ -426,7 +427,7 @@
(= type pkth-type-removed-from-game)
(= type pkth-type-send-chat-text)
(= type pkth-type-chat-text)
(= type pkth-type-error))))
(= type pkth-type-error)))))
;;;
;;; Packet getter functions
@@ -695,7 +696,7 @@
(let ((packet (string-copy (substring helper-var-recv-buf 0 packetlen))))
(set! helper-var-recv-buf (string-drop helper-var-recv-buf packetlen))
(set! ret (string->bytes packet))
(test-assert (pkth-is-valid-type? (pkth-get-type ret)) "Invalid PKTH message type.")
(test-assert (pkth-is-valid-type? ret) "Invalid PKTH message type.")
(msg-display ret helper-direction-recv)
)))))))
(if (not abort)