udp test: avoid 0 as TTL, because that's not always allowed by the OS

This commit is contained in:
Matthew Flatt 2019-10-30 10:06:28 -06:00
parent 87551667c9
commit 6073602c8e

View File

@ -59,10 +59,10 @@
(test #t byte? original-ttl) (test #t byte? original-ttl)
(test (void) udp-set-ttl! udp1 255) (test (void) udp-set-ttl! udp1 255)
(test 255 udp-ttl udp1) (test 255 udp-ttl udp1)
(test (void) udp-set-ttl! udp1 0) (test (void) udp-set-ttl! udp1 1)
(test 0 udp-ttl udp1) (test 1 udp-ttl udp1)
(test (void) udp-set-ttl! udp1 original-ttl) (test (void) udp-set-ttl! udp1 original-ttl)
(err/rt-test (udp-ttl 0)) (err/rt-test (udp-ttl 1))
(err/rt-test (udp-ttl 'no)) (err/rt-test (udp-ttl 'no))
(err/rt-test (udp-set-ttl! 0 64)) (err/rt-test (udp-set-ttl! 0 64))
(err/rt-test (udp-set-ttl! udp1 -1)) (err/rt-test (udp-set-ttl! udp1 -1))