use Test::More tests=>1;
use Test::Exception;

use Sample;
is Sample->bar(), "The best bar none\n", 'bar() works';
is Sample->foo(), "Foo to you too\n", 'foo() works';

local @ARGV; # now undef
dies_ok { Sample->run() } 'no args dies as expected';
like $@, qr/^usage:/, 'got a usage message';