trunk/t/Redirection.t

#!/usr/bin/perl -T

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

use lib 'lib';

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

ok( my $status = Intel::AMT::Redirection::GetRedirectionListenerState, 'GetRedirectionListenerState' );
diag $status;

ok( my $log = Intel::AMT::Redirection::GetIderSessionLog, 'GetIderSessionLog' );
diag dump( $log );

ok( my $state = Intel::AMT::Redirection::_soap->SetRedirectionListenerState(
        $status ? undef : SOAP::Data->name( 'Enabled' => 'true' )
) );
diag dump( $state->paramsout );

diag Intel::AMT::Redirection::GetRedirectionListenerState;

1	dpavlin	7	#!/usr/bin/perl -T
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::Redirection' );
10			}
11
12			ok( my $status = Intel::AMT::Redirection::GetRedirectionListenerState, 'GetRedirectionListenerState' );
13			diag $status;
14
15			ok( my $log = Intel::AMT::Redirection::GetIderSessionLog, 'GetIderSessionLog' );
16			diag dump( $log );
17
18			ok( my $state = Intel::AMT::Redirection::_soap->SetRedirectionListenerState(
19			$status ? undef : SOAP::Data->name( 'Enabled' => 'true' )
20			) );
21			diag dump( $state->paramsout );
22
23			diag Intel::AMT::Redirection::GetRedirectionListenerState;
24