view release on metacpan or  search on metacpan

t/deploy_config.t  view on Meta::CPAN

    my $output = capture_stdout {
        $target->deploy;
    };

    is $output, '';

    my $path = File::Spec->catfile( $pods_dir, 'first.pod.html' );
    ok -f $path;

    my $html = do { local (@ARGV, $/) = $path; <> };

    like_string $html, qr/<h1 id="Unittest">Unittest/;

    like_string $html, qr/<a href="http/;
    like_string $html, qr/feature-addons/;
    like_string $html, qr/>Link</;

    like_string $html, qr/<p><code class="code">/;
    like_string $html, qr/with some code/;

t/deploy_create_dir.t  view on Meta::CPAN

    my $output = capture_stdout {
        $target->deploy;
    };

    is $output, '';

    my $path = File::Spec->catfile( $pods_dir, 'Test' . $$, 'first.pod.html' );
    ok -f $path;

    my $html = do { local (@ARGV, $/) = $path; <> };

    like_string $html, qr/<h1 id="Unittest">Unittest/;

    like_string $html, qr/<a href="http/;
    like_string $html, qr/feature-addons/;
    like_string $html, qr/>Link</;

    like_string $html, qr/<p><code class="code">/;
    like_string $html, qr/with some code/;