shell of unwritten blobstore tester script

This commit is contained in:
Brad Fitzpatrick 2010-06-20 23:07:47 -07:00
parent 0d9195a8ea
commit f02a87a61a
1 changed files with 23 additions and 0 deletions

23
blobserver/tester/bs-test.pl Executable file
View File

@ -0,0 +1,23 @@
#!/usr/bin/perl
#
# Test script to run against a Camli blobserver to test its compliance
# with the spec.
use strict;
use Getopt::Long;
use LWP;
use Test::More;
my $user;
my $password;
GetOptions("user" => \$user,
"password" => \$password) or usage();
usage() unless @ARGV == 1;
my $hostport = shift;
sub usage {
die "Usage: bs-test.pl [--user= --password=] <host:port>\n";
}
die "TODO: implement";