Artifact Content
Not logged in

Artifact d95af9f7f0e4ccbc285fcb81eaf204b4decd0fb9:


\ net2o tests - client side

require net2o.fs

+db stat(
+debug

"anonymous" >key \ get our anonymous key

init-client

s" .cache" file-status nip #-514 = [IF]
    s" .cache" $1FF =mkdir throw
[THEN]

!time


?nextarg [IF] net2o-host $@ [THEN] \ default
?nextarg [IF] net2o-port [ELSE] s>number drop [THEN]
insert-ip n2o:new-context "test" dest-key
$8000 $100000 n2o:connect +flow-control +resend

." Connected" cr

net2o-code
expect-reply
data-ivs time-offset!
s" Download test" $, type cr  see-me
$400 blocksize! $400 blockalign! stat( request-stats )
s" data/android-ndk-r8e-linux-x86.tar.bz2" s" ~/Downloads/android-ndk-r8e-linux-x86.tar.bz2" n2o:copy
n2o:done
send-chunks
end-code

1 client-loop .time cr

bye