view release on metacpan or  search on metacpan

t/interesting.t  view on Meta::CPAN

    $arv->in_file('t/pms/UseUninstalled.pm');
    cmp_deeply($arv->failed,[],'no failed');
    cmp_deeply($arv->bad,[],'no bad');
    
    my $data = $arv->interesting->[0];
    is($data->{package},'UseUninstalled','package');
    is($data->{value},q|'ha!'|,'value');
}

{
    my $arv=Acme::ReturnValue->new;
    $arv->in_file('t/pms/MockTime.pm');
    cmp_deeply($arv->failed,[],'no failed');
    cmp_deeply($arv->interesting,[],'no interesting');
    
    my $data = $arv->bad->[0];
    is($data->{package},'Test::MockTime','package');
    is($data->{bad},q|*restore_time = \\&restore|,'value');
}

{
    my $arv=Acme::ReturnValue->new;
    $arv->in_file('t/pms/RT83963_encoding.pm');
    cmp_deeply($arv->failed,[],'no failed');
    cmp_deeply($arv->bad,[],'no bad');

    my $data = $arv->interesting->[0];
    is($data->{package},'Acme::CPANAuthors::French','package');
    is($data->{value},'q<
    listen to 「陽の当たる月曜日」 by サエキけんぞう
    » http://www.myspace.com/cloclomadeinjapan
>','utf8 value');
}

{
    my $arv=Acme::ReturnValue->new;
    $arv->in_file('t/pms/Envolve.pm');
    cmp_deeply($arv->failed,[],'no failed');
    cmp_deeply($arv->bad,[],'no bad');
    cmp_deeply($arv->interesting,[],'no interesting');

    my $data = $arv->interesting->[0];
}

{
    my $arv=Acme::ReturnValue->new;
    $arv->in_file('t/pms/TinyClick.pm');
    cmp_deeply($arv->failed,[],'no failed');
    cmp_deeply($arv->bad,[],'no bad');
    my $data = $arv->interesting->[0];
    is($data->{package},'WWW::Shorten::TinyClick','package');
    is($data->{value},'0','interesting: 0');
}

done_testing();

# invalid returns:
# Test::MockTime
# SpamMonkey::Config

# wrong postives
# RayApp