Help language development. Donate to The Perl Foundation

PDF::Class cpan:WARRINGD last updated on 2020-08-11

t/00-readme.t
use v6;
use Test;
use PDF::Class;

my $read-me = "README.md".IO.slurp;

$read-me ~~ /^ $<waffle>=.*? +%% ["```" \n? $<code>=.*? "```" \n?] $/
    or die "README.md parse failed";

my $n = 0;

for @<code> {
    my $snippet = ~$_;
    # assume anything else is code.
    $snippet = $snippet.subst('DateTime.now;', 'DateTime.new( :year(2015), :month(12), :day(25) );' );
    # disable say
    sub say(|c) { }
    # ensure consistant document ID generation
    srand(123456);
    if ++$n >= 2 {
        skip "failing from an EVAL";
        next;
    }

    lives-ok {quietly EVAL $snippet}, 'code sample'
	or warn "eval error: $snippet\n$!";
}

done-testing;