develooper Front page | perl.perl5.porters | Postings from October 2007

lib/Pod/Simple/t/search10.t,search20.t,search22.t,search26.t and search28.tfailed on EBCDIC platform

From:
Chun Bing Ge
Date:
October 23, 2007 22:43
Subject:
lib/Pod/Simple/t/search10.t,search20.t,search22.t,search26.t and search28.tfailed on EBCDIC platform
Message ID:
OF9039C7F8.B7E2A6D3-ON4825737E.001EF23B-4825737E.001F721B@IBMCN
Hi,

Here is the patch below. Any question, pls let me know, thanks.

--- /home/spring/perl/perl-current/lib/Pod/Simple/t/search10.t  2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search10.t      2007-09-10 
17:00:46.000000000 +0800
@@ -68,13 +68,21 @@
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik|Blorm|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
+}
 
 {
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik|Blorm|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
+}
 
 ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
 


--- /home/spring/perl/perl-current/lib/Pod/Simple/t/search20.t  2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search20.t      2007-09-10 
17:05:49.000000000 +0800
@@ -69,13 +69,21 @@
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik|Blorm|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
+}
 
 {
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik|Blorm|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
+}
 
 ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
 



--- /home/spring/perl/perl-current/lib/Pod/Simple/t/search22.t  2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search22.t      2007-09-10 
17:09:28.000000000 +0800
@@ -71,13 +71,21 @@
 {
 print "# won't show any shadows, since we're just looking at the 
name2where keys\n";
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik|Blorm|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
+}
 
 {
 print "# but here we'll see shadowing:\n";
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik|Blorm|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik";
+}
 
 my %count;
 for(values %$where2name) { ++$count{$_} };



--- /home/spring/perl/perl-current/lib/Pod/Simple/t/search26.t  2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search26.t      2007-09-10 
17:12:02.000000000 +0800
@@ -80,13 +80,21 @@
 
 {
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names, "hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik|Zonk::Pronk";
+} else {
 ok $names, "Zonk::Pronk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik";
 }
+}
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik|Zonk::Pronk";
+} else {
 ok $names, 
"Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik";
 }
+}
 
 print "# OK, bye from ", __FILE__, "\n";
 ok 1;



--- /home/spring/perl/perl-current/lib/Pod/Simple/t/search28.t  2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search28.t      2007-09-10 
17:13:14.000000000 +0800
@@ -74,8 +74,12 @@
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, "perlzuk|zikzik|Zonk::Pronk";
+} else {
 ok $names, "Zonk::Pronk|perlzuk|zikzik";
 }
+}
 
 
 print "# OK, bye from ", __FILE__, "\n";




Ge, Chun Bing
空山新雨后,天气晚来秋



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About