use warnings;
use strict;

use Test::More;
use Test::Exception;

BEGIN {
  plan tests => 1,
  todo => []
}

# ------ load script with arg - expect ok
ok( require 'luckynumber.pl', 'script loaded ok');

##</code><code>##


use strict;
use warnings;

use Getopt::Long;
my $luckynumber = undef;

sub main {
	GetOptions("luckynumber=i" => \$luckynumber) or die("GetOptions failed");
	die "missing argument luckynumber" unless defined($luckynumber);
	print "Lucky number is " . $luckynumber . "\n";
}

# See also perldoc -f caller
main() if! caller();

1;

##</code><code>##

$ prove luckynumber.t
luckynumber....ok
All tests successful.
Files=1, Tests=1,  0 wallclock secs ( 0.06 cusr +  0.01 csys =  0.07 CPU)