#!perl
# SVN Id $Id: 005-basic.t 3 2015-03-12 01:07:32Z Mark Dootson $
use Test::More tests => 2;
use HiPi::Wiring;
use HiPi::RaspberryPi;
use HiPi::Utils;
{
my $fixedrev = (exists($ENV{HIPI_FORCE_BOARD_REVISION})) ? $ENV{HIPI_FORCE_BOARD_REVISION} : HiPi::Wiring::piBoardRev();
is( HiPi::RaspberryPi::get_cpuinfo->{'GPIO Revision'}, $fixedrev, 'GPIO Revision');
ok( defined(&HiPi::Utils::drop_permissions_id), 'HiPi Utils XS Loaded' );
}
1;