70 lines
1.2 KiB
Plaintext
70 lines
1.2 KiB
Plaintext
|
<testcase>
|
||
|
<info>
|
||
|
<keywords>
|
||
|
HTTP
|
||
|
progressbar
|
||
|
</keywords>
|
||
|
</info>
|
||
|
|
||
|
#
|
||
|
# Server-side
|
||
|
<reply>
|
||
|
<data>
|
||
|
HTTP/1.1 200 OK
|
||
|
Date: Thu, 09 Nov 2010 14:49:00 GMT
|
||
|
Server: test-server/fake
|
||
|
Last-Modified: Tue, 13 Jun 2000 12:10:00 GMT
|
||
|
ETag: "21025-dc7-39462498"
|
||
|
Accept-Ranges: bytes
|
||
|
Content-Length: 60
|
||
|
Connection: close
|
||
|
Content-Type: text/html
|
||
|
Funny-head: yesyes
|
||
|
|
||
|
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
|
||
|
</data>
|
||
|
</reply>
|
||
|
|
||
|
#
|
||
|
# Client-side
|
||
|
<client>
|
||
|
<server>
|
||
|
http
|
||
|
</server>
|
||
|
<name>
|
||
|
progress-bar
|
||
|
</name>
|
||
|
<command>
|
||
|
http://%HOSTIP:%HTTPPORT/1148 -# --stderr log/stderrlog1148
|
||
|
</command>
|
||
|
<precheck>
|
||
|
perl -e '$ENV{"LC_NUMERIC"} = "en_US.UTF-8"; print "Test requires point as decimal separator" if system("./libtest/chkdecimalpoint");'
|
||
|
</precheck>
|
||
|
<setenv>
|
||
|
LC_ALL=
|
||
|
LC_NUMERIC=en_US.UTF-8
|
||
|
</setenv>
|
||
|
</client>
|
||
|
|
||
|
#
|
||
|
<verify>
|
||
|
<strip>
|
||
|
^User-Agent:.*
|
||
|
</strip>
|
||
|
<protocol>
|
||
|
GET /1148 HTTP/1.1
|
||
|
Host: %HOSTIP:%HTTPPORT
|
||
|
Accept: */*
|
||
|
|
||
|
</protocol>
|
||
|
# This allows the last 4 letters of the bar to get updated without it
|
||
|
# matters. We're mostly checking the width of it anyway.
|
||
|
<file name="log/stderrlog1148" mode="text">
|
||
|
bar 100.0%
|
||
|
</file>
|
||
|
<stripfile>
|
||
|
s/####################################################################..../bar/
|
||
|
</stripfile>
|
||
|
</verify>
|
||
|
</testcase>
|