t/lib/Test/clive.pm

   1 package Test::clive;
   2
   3 use Test::More;
   4
   5 my $clive = "perl -I./blib/lib blib/script/clive -n";
   6
   7 sub host {
   8     my $url    = shift;
   9     my $cmd    = "$clive $url @_ 2>&1";
  10     my $output = qx($cmd);
  11     ok( $output !~ /error:/ )
  12       or diag "$cmd\n$output";
  13 }
  14
  15 1;