First, Isolate The Untestable Part

sub should_i_sleep {
    my($power_remaining) = @_;

    snooze if $power_remaining < $Min_Power;
    return 1;
}

sub snooze {
    system("/sbin/snooze");
}

Test snooze() by hand once.

• It's small, so you can get away with it

Prev | toc | Next