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 );

my $power = Intel::AMT::RemoteControl::SystemPowerState;
ok( defined $power, 'SystemPowerState' );
diag 'power ',$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	dpavlin	21	my $power = Intel::AMT::RemoteControl::SystemPowerState;
16	dpavlin	15	ok( defined $power, 'SystemPowerState' );
17			diag 'power ',$power;
18	dpavlin	6
19			#ok( Intel::AMT::RemoteControl::run( $_ ), $_ ) foreach ( 'PowerUp', 'Reset', 'PowerCycleReset', 'PowerDown' );