view release on metacpan or  search on metacpan

t/walker.t  view on Meta::CPAN

use strict;
use Test::More;
use Pandoc::Walker;
use Pandoc::Filter;
use Pandoc::Elements qw(Str Space pandoc_json);

sub load {
    local (@ARGV, $/) = ('t/documents/example.json'); 
    pandoc_json(<>);
}

my $doc = load();

my $LINKS = [qw(
    http://example.org/
    image.png
    http://example.com/
)];

sub urls {
    return unless ($_->name eq 'Link' or $_->name eq 'Image');
    return $_->target->[0];
};

my $links = query $doc, \&urls;
is_deeply $links, $LINKS, 'query( action )';
is_deeply $doc->query(\&urls), $LINKS, '->query';

$links = query $doc, 'Link|Image' => sub { $_->target->[0] };
is_deeply $links, $LINKS, 'query( name => action )';

sub links {
    return unless ($_->name eq 'Link' or $_->name eq 'Image');
    push @$links, $_->url;
}

{
    $links = [ ];
    walk $doc, \&links;
    is_deeply $links, $LINKS, 'walk(sub)';
}

{
    $links = [ ];
    $doc->walk(\&links);
    is_deeply $links, $LINKS, '->walk';
}

{
    $links = [ ];
    walk $doc, Pandoc::Filter->new(\&links);
    is_deeply $links, $LINKS, 'walk(Filter)';
}

transform $doc, sub {
    return ($_->name eq 'Link' ? [] : ());
};

is_deeply query($doc,\&urls), ['image.png'], 'transform, remove elements';

sub escape_links {
    my ($e) = @_;
    return unless $e->name eq 'Link';
    my $a = [ Str "<", @{$e->content}, Str ">" ];
    return $a;
}

$doc = load();