#===============================================================================
#
# DESCRIPTION: Test I<> implementation
#
# AUTHOR: Aliaksandr P. Zahatski, <zahatski@gmail.com>
#===============================================================================
#$Id$
package T::FormattingCode::X;
use strict;
use warnings;
use Test::More;
use Data::Dumper;
use base 'TBase';
sub x0000_process_index_string : Test(4) {
my $t = shift;
my $str = "hash";
my @r1 = &Perl6::Pod::FormattingCode::X::process_index( undef, $str );
is_deeply \@r1, [ 'hash', ['hash'] ], 'X<hash>';
$str = "scalar|variables";
my @r2 = &Perl6::Pod::FormattingCode::X::process_index( undef, $str );
is_deeply \@r2, [ 'scalar', ['variables'] ], "X<$str>";
$str = "scalar|variables, definition of";
my @r3 = &Perl6::Pod::FormattingCode::X::process_index( undef, $str );
is_deeply \@r3, [ 'scalar', ['variables, definition of'] ], "X<$str>";
$str = "hash|hashes, definition of; associative arrays";
my @r4 = &Perl6::Pod::FormattingCode::X::process_index( undef, $str );
is_deeply \@r4,
[ 'hash', [ 'hashes, definition of', 'associative arrays' ] ], "X<$str>";
}
sub x001_xml : Test {
my $t = shift;
my $x = $t->parse_to_xml( <<T);
=begin pod
test X< variable >
test X< scalar | variable >
test X< scalar | variable , define of; array>
test X< | variable , define of; array>
=end pod
T
$t->is_deeply_xml(
$x,
q%<pod pod:type='block' xmlns:pod='http://perlcabal.org/syn/S26.html'><para pod:type='block'>test <X pod:index_text='variable' pod:type='code' pod:index_entry='variable'>variable</X>test <X pod:index_text='scalar' pod:type='code' pod:index_entry='variable'>scalar</X>test <X pod:index_text='scalar' pod:type='code' pod:index_entry='variable , define of; array'>scalar</X>test <X pod:index_text='' pod:type='code' pod:index_entry='variable , define of; array' /></para></pod>
%
);
}
sub x002_xhml : Test {
my $t = shift;
my $x = $t->parse_to_xhtml( <<T);
=begin pod
test X< variable >
test X< scalar | variable >
test X< scalar | variable , define of; array>
=end pod
T
$t->is_deeply_xml(
$x,
q#<xhtml xmlns='http://www.w3.org/1999/xhtml'><p>test variable
test scalar
test scalar
</p></xhtml>#
);
}
sub x003_docbook : Test {
my $t = shift;
my $x = $t->parse_to_docbook( <<T);
=begin pod
test X< variable >
test X< scalar | variable >
test X< scalar | variable , define of; array>
test1 X<| variable , define of; array>
=end pod
T
$t->is_deeply_xml( $x,
q#<chapter><para>test variable<indexterm><primary>variable</primary></indexterm>
test scalar<indexterm><primary>variable</primary></indexterm>
test scalar<indexterm><primary>variable</primary><secondary>define of</secondary></indexterm><indexterm><primary>array</primary></indexterm>
test1 <indexterm><primary>variable</primary><secondary>define of</secondary></indexterm><indexterm><primary>array</primary></indexterm>
</para></chapter>#
);
}
1;