<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>
</client>

#
# Verify data after the test has been "shot"
<verify>
<errorcode>
23
</errorcode>
<file name="%LOGDIR/exist%TESTNUMBER">
to stay the same
</file>
<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>
</verify>
</testcase>
