--- trunk/test_charset.pl	2003/03/15 19:16:31	36
+++ trunk/test_charset.pl	2003/03/15 21:33:36	40
@@ -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 @@
 
 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";