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