mirror of
https://github.com/curl/curl.git
synced 2025-01-24 14:15:18 +08:00
31d96af8b5
Python precheck/postcheck alternatives were included but commented out. Since these are not used and perl is guaranteed to be available to run the perl versions anyway, the Python ones are removed.
60 lines
1.1 KiB
Plaintext
60 lines
1.1 KiB
Plaintext
<testcase>
|
|
<info>
|
|
<keywords>
|
|
HTTP
|
|
HTTP GET
|
|
--no-clobber
|
|
</keywords>
|
|
</info>
|
|
|
|
#
|
|
# Server-side
|
|
<reply>
|
|
<data nocheck="yes">
|
|
HTTP/1.0 200 OK
|
|
Connection: close
|
|
Content-Type: text/plain
|
|
Content-Length: 4
|
|
|
|
foo
|
|
</data>
|
|
</reply>
|
|
|
|
#
|
|
# Client-side
|
|
<client>
|
|
<name>
|
|
HTTP GET without clobber when 100 files already exist
|
|
</name>
|
|
<server>
|
|
http
|
|
</server>
|
|
<features>
|
|
http
|
|
</features>
|
|
<command option="no-output">
|
|
http://%HOSTIP:%HTTPPORT/%TESTNUMBER -o %LOGDIR/exist%TESTNUMBER --no-clobber
|
|
</command>
|
|
<file name="%LOGDIR/exist%TESTNUMBER">
|
|
to stay the same
|
|
</file>
|
|
<precheck>
|
|
perl -e 'for my $i ((1..100)) { my $filename = "%LOGDIR/exist%TESTNUMBER.$i"; open(FH, ">", $filename) or die $!; print FH "to stay the same" ; close(FH) }'
|
|
</precheck>
|
|
<postcheck>
|
|
perl -e 'for my $i ((1..100)) { my $filename = "%LOGDIR/exist%TESTNUMBER.$i"; open(FH, "<", $filename) or die $!; (<FH> eq "to stay the same" and <FH> eq "") or die "incorrect $filename" ; close(FH) }'
|
|
</postcheck>
|
|
</client>
|
|
|
|
#
|
|
# Verify data after the test has been "shot"
|
|
<verify>
|
|
<errorcode>
|
|
23
|
|
</errorcode>
|
|
<file name="%LOGDIR/exist%TESTNUMBER">
|
|
to stay the same
|
|
</file>
|
|
</verify>
|
|
</testcase>
|