view release on metacpan or  search on metacpan

t/01_passthrough.t  view on Meta::CPAN

use strict;
use Test::More 0.98;

use File::Spec ();

use Pod::Markdown::Passthrough;

my $parser = Pod::Markdown::Passthrough->new();

ok($parser->isa('Pod::Markdown::Passthrough'), "Constructor works and object isa 'Pod::Markdown::Passthrough'");
ok($parser->isa('Pod::Markdown'), "Object also isa 'Pod::Markdown'");

my $testfile = File::Spec->catfile(
      ( File::Spec->splitpath(__FILE__) )[1]
    ? ( File::Spec->splitpath(__FILE__) )[1]
    : (),
    'testfile.md'
);
my $expected = do { local ( @ARGV, $/ ) = $testfile; <> };

$parser->parse_from_file($testfile);
my $parsed = $parser->as_markdown();

is( $parsed, $expected, 'parse_from_file() then as_markdown() return the raw markdown');

done_testing;