trunk/t/Redir.t

#!/usr/bin/perl

use Test::More tests => 4;
use Data::Dump qw/dump/;

use lib 'lib';

BEGIN {
        use_ok( 'Intel::AMT::Redir' );
}

ok( my $status = Intel::AMT::Redir::connect( $ENV{AMT_HOST} ), 'connect' );
diag $status;


1	dpavlin	8	#!/usr/bin/perl
2
3			use Test::More tests => 4;
4			use Data::Dump qw/dump/;
5
6			use lib 'lib';
7
8			BEGIN {
9			use_ok( 'Intel::AMT::Redir' );
10			}
11
12			ok( my $status = Intel::AMT::Redir::connect( $ENV{AMT_HOST} ), 'connect' );
13			diag $status;
14
15
16