| Subject: | tests fixes |
Hi H.Merijn,
71_csv-ext.t, 72_csv-schema.t and 80_rt.t end in failure under MSWIN32.
Those failures relate to getpwuid, but getpwuid returns only the empty.
May I ask you a favour? Could you apply the attached patches?
Best regards,
Taro Nishino
| Subject: | 72_csv-schema.t.diff.txt |
--- 72_csv-schema.t.orig Fri Oct 16 10:25:29 2009
+++ 72_csv-schema.t Fri Oct 16 10:57:41 2009
@@ -24,8 +24,14 @@
my $usr = eval { getpwuid $< };
$usr and $usr = qq{"$usr"};
+if ($usr) {
is_deeply ([ $dbh->tables () ],
[ qq{$usr.$tbl} ], "tables");
+}
+else {
+ is_deeply ([ $dbh->tables () ],
+ [ qq{$tbl} ], "tables");
+}
ok ($dbh->disconnect, "disconnect");
undef $dbh;
| Subject: | 80_rt.t.diff.txt |
--- 80_rt.t.orig Fri Oct 16 10:51:21 2009
+++ 80_rt.t Fri Oct 16 10:52:15 2009
@@ -194,6 +194,7 @@
ok ($sth->finish, "finish");
open my $fh, "<", DbFile ("RT$rt.csv");
+ binmode $fh;
is (scalar <$fh>, qq{name,id\r\n}, "Field names");
is (scalar <$fh>, qq{Tim,1\r\n}, "Record 1");
is (scalar <$fh>, qq{Tux,2\r\n}, "Record 2");
| Subject: | 71_csv-ext.t.diff.txt |
--- 71_csv-ext.t.orig Thu Oct 15 19:58:18 2009
+++ 71_csv-ext.t Fri Oct 16 11:00:57 2009
@@ -23,9 +23,7 @@
if ($usr) {
s/^['"]*$usr["']*\.// for @tbl;
}
- else {
- s/^[^.]+\.// for @tbl;
- }
+
sort @tbl;
} # Tables