moved tests in own directory, added test to demonstrate XML::Simple feature

[webpac] / test_charset.pl

diff --git a/test_charset.pl b/test_charset.pl
index 99fef6d..27abd73 100755 (executable)
--- a/test_charset.pl
+++ b/test_charset.pl
@@ -3,6 +3,8 @@
 use strict;
 use OpenIsis;
 use Text::Iconv;
+use XML::Simple;
+use Data::Dumper;
 
 Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
 
@@ -20,5 +22,17 @@ my $row = OpenIsis::read( $db, $row_id );
 
 use isis_sf;
 
-print $isis_codepage->convert(isis_sf($row,'200')),"\n";
+print isis_sf($row,'200'),"\n";
+
+my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?><xml>truæ</xml>';
+#my $xml_codepage = Text::Iconv->new('ISO-8859-2','UTF-8');
+#$xml = XMLin($xml_codepage->convert($xml));
+
+$xml = XMLin($xml);
+
+#undef $xml_codepage;
+my $xml_codepage = Text::Iconv->new('UTF-8','iso-8859-2');
+$xml = $xml_codepage->convert($xml),"\n";
+
+print Dumper($xml),"$xml\n";