The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 4;

BEGIN {
use_ok( 'Sub::Todo' );
}

diag( "Testing Sub::Todo $Sub::Todo::VERSION" );

ok(!Sub::Todo::todo(), 'returns false');

ok(!Sub::Todo::todo_carp(), 'carps ok');

ok($! == Sub::Todo::get_errno_func_not_impl, 'sets $! properly');