1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!perl
use Test::More tests => 6;
use_ok( 'HiPi' );
use_ok( 'HiPi::RaspberryPi' );
my $rawisraspberry = 0;
if ( $^O =~ /^linux/i ) {
my $revraw = qx(cat /proc/cpuinfo | grep 'Revision') || '';
chomp($revraw);
$rawisraspberry = ( $revraw =~ /^Revision\s+:\s+[0-9[A-F]+$/i ) ? 1 : 0;
}
SKIP: {
skip 'not on raspberry', 4 unless $rawisraspberry;
diag('Basic tests are running');
TODO: {
local $TODO = 'Not each CPU with a Revision is a Raspberry Pi';
ok( HiPi::is_raspberry_pi(), 'HiPi says Raspberry Pi' );
my $pi = HiPi::RaspberryPi->new();
ok( $pi->is_raspberry(), 'Pi says Raspberry Pi' );
# board info
ok( $pi->hardware =~ /\ABCM2835\Z|\ARP1\Z/, 'hardware check as expected' );
ok( $pi->processor =~ /^BCM(2835|2836|2837|2711|2712)/, 'processor check as expected' );
} # END OF TODO
} # END OF SKIP MAIN
1;
|
