trunk/t/RemoteControl.t

#!/usr/bin/perl -T

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

use lib 'lib';

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

ok( my $capabilities = Intel::AMT::RemoteControl::Capabilities, 'Capabilities' );
diag dump( $capabilities );

ok( my $power = Intel::AMT::RemoteControl::SystemPowerState, 'SystemPowerState' );
diag $power;

#ok( Intel::AMT::RemoteControl::run( $_ ), $_ ) foreach ( 'PowerUp', 'Reset', 'PowerCycleReset', 'PowerDown' );
1	dpavlin	6	#!/usr/bin/perl -T
2
3			use Test::More tests => 3;
4			use Data::Dump qw/dump/;
5
6			use lib 'lib';
7
8			BEGIN {
9			use_ok( 'Intel::AMT::RemoteControl' );
10			}
11
12			ok( my $capabilities = Intel::AMT::RemoteControl::Capabilities, 'Capabilities' );
13			diag dump( $capabilities );
14
15			ok( my $power = Intel::AMT::RemoteControl::SystemPowerState, 'SystemPowerState' );
16			diag $power;
17
18			#ok( Intel::AMT::RemoteControl::run( $_ ), $_ ) foreach ( 'PowerUp', 'Reset', 'PowerCycleReset', 'PowerDown' );