# $Id: regression.t,v 1.5 2008-04-30 11:45:02 mike Exp $
use strict;
use Test;
use vars qw(@tests);
BEGIN {
use IO::File;
my $fh = new IO::File("<t/regression/Register")
or die "can't open test register";
while (my $line = <$fh>) {
chomp($line);
$line =~ s/#.*//;
$line =~ s/\s+$//;
next if !$line;
last if $line eq "end";
if ($line =~ s/^pass\t//) {
push @tests, $line;
}
}
$fh->close();
plan tests => 1 + scalar(@tests);
};
use Keystone::Resolver::Test;
ok(1); # If we made it this far, we're ok.
$ENV{KRuser} ||= "kr_read";
$ENV{KRpw} ||= "kr_read_3636";
foreach my $test (@tests) {
my $status = Keystone::Resolver::Test::run_test({ xml => 1, nowarn => 1 },
"t/regression/$test", 1);
if ($status == 1) {
ok($status, 0, "generated XML did not match expected");
} elsif ($status == 2) {
ok($status, 0, "fatal error in resolver");
} elsif ($status == 3) {
ok($status, 0, "malformed test-case");
} elsif ($status == 4) {
ok($status, 0, "system error: $!");
} else {
ok($status, 0, "failed with status=$status");
}
}