view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

        ok(
            grep( { /fake release happen/i } @{ $tzil->log_messages } ),
            "we log a fake release when we fake release",
        );

        my $orig = $tzil->slurp_file('source/lib/DZT/Sample.pm');
        my $next_re = _regex_for_version( q['], next_version($version) );
        $next_re = qr/$next_re$/m;

        local $TODO = 'qr/...$/m is broken before 5.10' if $] lt '5.010000';
        if (!$c->{all_matching} || $version eq '0.001') {
            like( $orig, $next_re, "version line updated in single-quoted source file" );
        }
        else {
            unlike( $orig, $next_re, "version line not updated in source file - did not match release version");
        }
        local $TODO;

        $count =()= $orig =~ /$next_re/mg;
        $exp = $c->{global} || ($c->{all_matching} && $version eq '0.001') ? 2 : 1;

t/basic.t  view on Meta::CPAN

          : $c->{all_matching} ? ($version eq '0.001' ? 2 : 0)
          : 1;
        is( $count, $exp, "right number of replacements" )
          or diag $orig;

        like( $orig, qr/1;\s+# last line/,
            "last line correct in single-quoted source file" );

        $orig = $tzil->slurp_file('source/lib/DZT/DQuote.pm');

        local $TODO = 'qr/...$/m is broken before 5.10' if $] lt '5.010000';
        if (!$c->{all_matching} || $version eq '0.001') {
            like( $orig, $next_re, "version line updated from double-quotes to single-quotes in source file");
        }
        else {
            unlike( $orig, $next_re, "version line not updated in source file - did not match release version");
        }
        local $TODO;

        like( $orig, qr/1;\s+# last line/, "last line correct in revised source file" );

        $orig = $tzil->slurp_file('source/lib/DZT/Mismatched.pm');

        local $TODO = 'qr/...$/m is broken before 5.10' if $] lt '5.010000';

        if ($c->{all_matching} && $version ne '0.003' && $version ne '0.004') {
            unlike( $orig, $next_re, "version line not updated in source file - did not match release version");
        }
        else {
            like( $orig, $next_re, "version line updated unconditionally in source file");
        }
        local $TODO;

        $count =()= $orig =~ /$next_re/mg;