Acme-24

 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 distribution
 view release on metacpan -  search on metacpan