#!/usr/bin/env perl
use strict;
use warnings;
use lib 't/lib';
use MyTest::PPG ':all';
use Test::Most 'no_plan'; #tests => 1;
use Pod::Parser::Groffmom;
my $pod = <<'END';
=head1 NAME
E<ntilde> eq E<241>
=head2 Some stuff
L<Net::Ping>
L<Net::Ping|Net::Ping>
L<the Net::Ping module|Net::Ping>
L<support section|PPI/SUPPORT>
L<http://www.example.com/>
L<perlsyn/"For Loops">
L<perlsyn/For Loops>
This is a line which breaks. I recommend you look at Salvador FandiE<ntilde>o's S<Language::Prolog::Yaswi>.
END
my $mom = get_mom($pod);
is head( $mom, 1 ), q{.TITLE "\\N'241' eq \\N'241'"},
'E<> sequences should be parsed correctly';
my $expected_body = <<'END';
.SUBHEAD "Some stuff"
\f[C]Net::Ping\f[P]
\f[C]Net::Ping\f[P]
the Net::Ping module (\f[C]Net::Ping\f[P])
support section (\f[C]PPI/SUPPORT\f[P])
(\f[C]http://www.example.com\f[P])
\[dq]For Loops\[dq] (\f[C]perlsyn\f[P])
For Loops (\f[C]perlsyn\f[P])
This is a line which breaks. I recommend you look at Salvador Fandi\N'241'o's \c
.HYPHENATE OFF
Language::Prolog::Yaswi\c
.HYPHENATE
\N'46'
END
eq_or_diff body($mom), $expected_body,
'... and L<> seqeunces should be parsed correctly';