1#!/usr/bin/perl
2use strict;
3use warnings;
4use Test::More tests => 6;
5BEGIN { push(@INC, "lib", "t"); }
6use Net::Amazon::MechanicalTurk::Command::LoadHITs;
7use Net::Amazon::MechanicalTurk::XMLParser;
8
9sub testEscape {
10    my ($text, $expected) = @_;
11    my $actual = Net::Amazon::MechanicalTurk::Command::LoadHITs::xmlEntityEscape($text);
12    is($actual, $expected);
13    my $parser = Net::Amazon::MechanicalTurk::XMLParser->new;
14    my $xml = $parser->parse("<data>$actual</data>");
15    is($text, $xml->{_value});
16    return $actual;
17}
18
19
20testEscape("Is 5 < 6?", "Is 5 &lt; 6?");
21testEscape("A&B\nIs 5 < 6?", "A&amp;B\nIs 5 &lt; 6?");
22testEscape("&'quo\"ted&'", "&amp;&apos;quo&quot;ted&amp;&apos;");
23