#!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;
