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 < 6?"); 21testEscape("A&B\nIs 5 < 6?", "A&B\nIs 5 < 6?"); 22testEscape("&'quo\"ted&'", "&'quo"ted&'"); 23