view release on metacpan or  search on metacpan

t/00_compile.t  view on Meta::CPAN

imported_ok qw[adjective insult];
#
subtest 'adjective' => sub {
    ok adjective(),               'generate random adjective';
    ok adjective('en_corporate'), 'generate random corpo-jargon adjective';
    is my $adjective = adjective(), hash {
        field args => hash {
            field lang => string 'en';
            field template => string '<adjective>'
        };
        field error  => F();
        field insult => D();
    }, 'adjective is a hash';
    isa_ok $adjective, ['Acme::Insult::Glax'], 'adjective is a *blessed* hash';
    $adjective->{insult} = 'Just a test';
    is $adjective,           'Just a test', 'stringify';
    is adjective('garbage'), U(),           'fail to generate random garbage lang adjective';
};
subtest 'insult' => sub {
    is insult(), D(), 'totally random';
    is my $adjective = insult(), hash {
        field args => hash {
            field lang => string 'en';
            field template => D()    # template subject to change
        };
        field error  => F();
        field insult => D();
    }, 'insult is a hash';
    isa_ok $adjective, ['Acme::Insult::Glax'], 'insult is a *blessed* hash';
    $adjective->{insult} = 'Just a test';
    is $adjective, 'Just a test', 'stringify';
    like insult( who => 'Alex' ),                               qr[^Alex is],                   'provide a name';
    like insult( who => 'Peter, Paul, and Mary', plural => 1 ), qr[^Peter, Paul, and Mary are], 'plural';
    is insult( lang => 'en' ),           D(), 'english';
    is insult( lang => 'en_corporate' ), D(), 'corperate lingo';
    like insult( template => 'Jake the <adjective> dog and Finn the <adjective min=1 max=3 id=adj1> <animal>.' ),