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

to remove spaces from begin and end attribute value (which is wrong for
delimiters as WebPAC uses them)

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@278 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/test_parse_format.pl b/test_parse_format.pl
deleted file mode 100755 (executable)
index 579ad9f..0000000
--- a/test_parse_format.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use OpenIsis;
-use parse_format;
-use Text::Iconv;
-use Data::Dumper;
-
-Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
-my $codepage = Text::Iconv->new('852','iso-8859-2');
-
-my $row = {
-          '981' => [ '^aSlu§bena dokumentacija RH' ],
-          '225' => [ '^aSjednice Sabora' ],
-          '712' => [ '^3011492^aHrvatski sabor' ],
-          '710' => [ '^3011801^aHrvatska narodna banka' ],
-          '210' => [ '^aZagreb^cHrvatski sabor^d2000' ],
-          '102' => [ '^aHR' ],
-          '607' => [ '^3025257^aHrvatska' ],
-          '606' => [ '^3000916^abankarski sustav', '^3001926^adevizne pri\9fuve' ],
-          '990' => [ '^aH10.0=Sabor.sjd-M:004317' ],
-          '200' => [ '^aIzvjeç\86e o stanju financijskog i bankarskog sustava Republike Hrvatske u 1990. godini s osvrtom na devizne pri\9fuve NBJ, dug SFRJ i "staru" deviznu çtednju^f[Hrvatska narodna banka]' ],
-          '900' => [ '004317' ],
-          'mfn' => 1,
-         '101' => [ '^ahrv' ],
-          '300' => [ '^aIzvjeç\86e podneseno na 8. sjednici Zastupni\9fkog doma Hrvatskog dr§avnog sabora' ]
-};
-
-my $fmt = 'eval{"225a" eq "pero"}900 101a';
-$fmt = 'eval{v102^a eq "HR" && v607^3 == "025257"}900 101a';
-
-my ($d,$s) = parse_format('isis', $fmt ,$row, 0, $codepage);
-
-print "d: $d s: $s\n";

diff --git a/tests/test_charset.pl b/tests/test_charset.pl
new file mode 100755 (executable)
index 0000000..27abd73
--- /dev/null
+++ b/tests/test_charset.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl -w
+
+use strict;
+use OpenIsis;
+use Text::Iconv;
+use XML::Simple;
+use Data::Dumper;
+
+Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
+
+#my $to = "UTF-8";
+my $to = "ISO-8859-2";
+
+my $isis_codepage = Text::Iconv->new('852',$to);
+
+my $isis_db="/data/isis_data/small/ps/PERI/PERI";
+my $row_id = 11;
+
+my $db = OpenIsis::open( $isis_db );
+
+my $row = OpenIsis::read( $db, $row_id );
+
+use isis_sf;
+
+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";
+

diff --git a/tests/test_isis.pl b/tests/test_isis.pl
new file mode 100755 (executable)
index 0000000..10b2e8f
--- /dev/null
+++ b/tests/test_isis.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+
+use strict;
+use OpenIsis;
+use Data::Dumper;
+
+my @mfns = @ARGV || ( 1 );
+
+my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );
+
+#my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
+foreach my $mfn (@mfns) {
+       print "mfn: $mfn\n";
+
+       my $row = OpenIsis::read( $db, $mfn );
+
+       print Dumper($row);
+}
+

diff --git a/tests/test_parse_format.pl b/tests/test_parse_format.pl
new file mode 100755 (executable)
index 0000000..579ad9f
--- /dev/null
+++ b/tests/test_parse_format.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+
+use strict;
+use OpenIsis;
+use parse_format;
+use Text::Iconv;
+use Data::Dumper;
+
+Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
+my $codepage = Text::Iconv->new('852','iso-8859-2');
+
+my $row = {
+          '981' => [ '^aSlu§bena dokumentacija RH' ],
+          '225' => [ '^aSjednice Sabora' ],
+          '712' => [ '^3011492^aHrvatski sabor' ],
+          '710' => [ '^3011801^aHrvatska narodna banka' ],
+          '210' => [ '^aZagreb^cHrvatski sabor^d2000' ],
+          '102' => [ '^aHR' ],
+          '607' => [ '^3025257^aHrvatska' ],
+          '606' => [ '^3000916^abankarski sustav', '^3001926^adevizne pri\9fuve' ],
+          '990' => [ '^aH10.0=Sabor.sjd-M:004317' ],
+          '200' => [ '^aIzvjeç\86e o stanju financijskog i bankarskog sustava Republike Hrvatske u 1990. godini s osvrtom na devizne pri\9fuve NBJ, dug SFRJ i "staru" deviznu çtednju^f[Hrvatska narodna banka]' ],
+          '900' => [ '004317' ],
+          'mfn' => 1,
+         '101' => [ '^ahrv' ],
+          '300' => [ '^aIzvjeç\86e podneseno na 8. sjednici Zastupni\9fkog doma Hrvatskog dr§avnog sabora' ]
+};
+
+my $fmt = 'eval{"225a" eq "pero"}900 101a';
+$fmt = 'eval{v102^a eq "HR" && v607^3 == "025257"}900 101a';
+
+my ($d,$s) = parse_format('isis', $fmt ,$row, 0, $codepage);
+
+print "d: $d s: $s\n";

diff --git a/tests/test_xml_simple.pl b/tests/test_xml_simple.pl
new file mode 100755 (executable)
index 0000000..285b73e
--- /dev/null
+++ b/tests/test_xml_simple.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+use XML::Simple;
+use IO::File;
+use Data::Dumper;
+
+my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?><xml foo="a" foo_a=" a" foo_a_=" a " fooa_="a ">truæ</xml>';
+
+my $xml_file = shift @ARGV;
+
+if ($xml_file) {
+       my $fh = new IO::File($xml_file) || die "can't open $xml_file: $!";
+       $xml = XMLin($fh);
+} else {
+       $xml = XMLin($xml);
+}
+
+print Dumper($xml),"\n";
+

diff --git a/tools/test_charset.pl b/tools/test_charset.pl
deleted file mode 100755 (executable)
index 27abd73..0000000
--- a/tools/test_charset.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use OpenIsis;
-use Text::Iconv;
-use XML::Simple;
-use Data::Dumper;
-
-Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
-
-#my $to = "UTF-8";
-my $to = "ISO-8859-2";
-
-my $isis_codepage = Text::Iconv->new('852',$to);
-
-my $isis_db="/data/isis_data/small/ps/PERI/PERI";
-my $row_id = 11;
-
-my $db = OpenIsis::open( $isis_db );
-
-my $row = OpenIsis::read( $db, $row_id );
-
-use isis_sf;
-
-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";
-

diff --git a/tools/test_isis.pl b/tools/test_isis.pl
deleted file mode 100755 (executable)
index 10b2e8f..0000000
--- a/tools/test_isis.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use OpenIsis;
-use Data::Dumper;
-
-my @mfns = @ARGV || ( 1 );
-
-my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );
-
-#my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
-foreach my $mfn (@mfns) {
-       print "mfn: $mfn\n";
-
-       my $row = OpenIsis::read( $db, $mfn );
-
-       print Dumper($row);
-}
-