#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;


unless ($#ARGV == 0) {
  print STDERR <<"EOT";
usage: $0 [sessionfile] [...]
EOT
  exit 1;
}


my $agent = WWW::Mechanize->new(
  keep_alive  => 1,
  agent       => 'SIBot/1.2',
  autocheck   => 1,
);

$agent->env_proxy;


print "starting\n";
local *IS;
local $\ = undef;
foreach (@ARGV) {
  print "  $_ ... ";
  open(IS, "< $_") or die $!;
  eval <IS>;
  close IS;
  print $@ ? 'error' : 'passed';
  print "\n";
}
print "all done\n";
