Acme-24
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/001_load.t view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1;
use_ok('Acme::24');
t/002_jack.t view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use_ok('Acme::24');
my $fact = Acme::24->random_jackbauer_fact();
ok(defined $fact && $fact ne '', 'Random Jack Bauer fact: ' . $fact);
t/rt_72808.t view on Meta::CPAN
=head1 DESCRIPTION
Check that RT#72808 is actually fixed.
Should return 24 facts, not 25.
=cut
use strict;
use warnings;
use Acme::24;
use Test::More tests => 1;
use Data::Dumper;
my $facts = Acme::24->random_jackbauer_facts();
ok(
$facts
&& (ref $facts eq 'ARRAY')
&& @{ $facts } == 24,
'Got 24 facts, not 25, dammit!'
);
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.544 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )