view release on metacpan or  search on metacpan

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);