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