trunk/t/SOAP.t

#!/usr/bin/perl -T

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

use lib 'lib';

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

ok( Intel::AMT::SOAP::soap_init, 'soap_init' );
ok( my $remote_info = Intel::AMT::SOAP::print_remote_info, 'remote_info' );
diag dump( $remote_info );

ok( Intel::AMT::SOAP::command( 'info' ), 'info' );

1	dpavlin	2	#!/usr/bin/perl -T
2
3	dpavlin	6	use Test::More tests => 4;
4			use Data::Dump qw/dump/;
5	dpavlin	2
6			use lib 'lib';
7
8			BEGIN {
9			use_ok( 'Intel::AMT::SOAP' );
10			}
11
12	dpavlin	6	ok( Intel::AMT::SOAP::soap_init, 'soap_init' );
13			ok( my $remote_info = Intel::AMT::SOAP::print_remote_info, 'remote_info' );
14			diag dump( $remote_info );
15
16	dpavlin	2	ok( Intel::AMT::SOAP::command( 'info' ), 'info' );
17	dpavlin	6