# Enter the output of the following:
use strict;
use warnings;
my %hash = ("Zero","0","One","1","Two","2");
my @array = keys %hash;
print "$array[0]\n";
__END__
####
$ cat foo.t
use strict;
use warnings;
use Test::More;
plan tests => 10_000;
sub get {
my %hash = ("Zero","0","One","1","Two","2");
my @array = keys %hash;
return $array[0];
}
for (1 .. 10_000) {
ok(get() eq 'Zero', q{Expect Zero});
}
__END__
$ /usr/bin/prove foo.t
foo....ok
All tests successful.
Files=1, Tests=10000, 5 wallclock secs ( 2.18 cusr + 0.06 csys = 2.24 CPU)
##
##
This is perl, v5.8.5 built for i386-linux-thread-multi