#!/usr/bin/perl
use lib ('../lib', 'lib');
use Test::More 'no_plan';
use strict;
use warnings;
use MKDoc::XML::Tagger::Preserve;
use MKDoc::XML::Tagger;
{
my $text = MKDoc::XML::Tagger->process_data (
"<p>stuff</p>",
{ _expr => 'stuff', _tag => 'a', href => 'http://example.com/foo.cgi?a=b&c=d' }
);
like ($text, qr|<p><a href="http://example\.com/foo\.cgi\?a=b&c=d">stuff</a></p>|, '& double escaped');
};
{
my $text = MKDoc::XML::Tagger->process_data (
"<p>stuff</p>",
{ _expr => 'stuff', _tag => 'foo', bar => '<zzz>' }
);
like ($text, qr|<p><foo bar="<zzz>">stuff</foo></p>|, '<> double escaped');
};
{
my $text = MKDoc::XML::Tagger->process_data (
"<p>stuff</p>",
{ _expr => 'stuff', _tag => 'foo', bar => '"hello world"' }
);
like ($text, qr|<p><foo bar=""hello world"">stuff</foo></p>|, '" double escaped');
};
1;
__END__