for (-1, 4096){
    is
        eval { $e->read($_); 1; },
        undef,
        "read() with $_ as addr param fails";

    like $@, qr/address parameter out of range/, "...and error is sane";
}

##</code><code>##

plan skip_all => "i2c bus currently disabled for other purposes";

##</code><code>##

if (! $ENV{SERIAL_ATTACHED}){
    plan skip_all => "The damned serial port shorted out!";
}

##</code><code>##

my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;