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

Re: DB_File-1.79 on Cygwin 1.3.3

Thread Previous | Thread Next
From:
H . Merijn Brand
Date:
October 26, 2001 05:00
Subject:
Re: DB_File-1.79 on Cygwin 1.3.3
Message ID:
20011026135017.F575.H.M.BRAND@hccnet.nl
On Fri 26 Oct 2001 13:32, "Paul Marquess" <Paul_Marquess@Yahoo.co.uk> wrote:
> From: H.Merijn Brand [mailto:h.m.brand@hccnet.nl]
> 
> > On Thu 25 Oct 2001 16:10, H.Merijn Brand <h.m.brand@hccnet.nl> wrote:
> > > Would this be any valuable information for you?
> 
> Yes, it would.

OK.

> The very first error that each of the three harnesses is outputting
> corresponds to this test
> 
> ok(20, ($mode & 0777) == (($^O eq 'os2' || $^O eq 'MacOS') ? 0666 : 0640)
>    || $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare');
> 
> I guess I just need to tack a $^O eq 'cygwin' on to the end of all that.
> 
> The "Dumper" issue is just a plain dumb bug -- I'll fix that.
> 
> All the others look suspiciously like a "Windows terminates lines with
> CR/LF" issue. Can you try changing test 59 in t-recno.t from
> 
>   ok(59, $x eq "abc\ndef\n\nghi\n") ;
> 
> to
> 
>   ok(59, $x eq "abc\r\ndef\r\n\r\nghi\r\n") ;
> 
> Does that make any difference?

PC09:/pro/CPAN/DB_File-1.79 506 $ make test
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl5/5.6.1/cygwin-multi -I/usr/lib/perl5/5.6.1 -e 'use Test::Harness qw(&runtests $verbose);
$verbose=0; runtests @ARGV;' t/*.t
t/db-btree..........FAILED tests 149-155
        Failed 7/163 tests, 95.71% okay
t/db-hash...........FAILED test 109
        Failed 1/117 tests, 99.15% okay
t/db-recno..........Undefined subroutine &main::Dumper called at t/db-recno.t line 1174.
t/db-recno..........dubious
        Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 79, 82, 85, 88, 135-136, 139-149
        Failed 17/149 tests, 88.59% okay
Failed Test  Status Wstat Total Fail  Failed  List of Failed
--------------------------------------------------------------------------------

t/db-btree.t                 163    7   4.29%  149-155
t/db-hash.t                  117    1   0.85%  109
t/db-recno.t     255 65280   149   17  11.41%  79, 82, 85, 88, 135-136, 139-149
Failed 3/3 test scripts, 0.00% okay. 25/429 subtests failed, 94.17% okay.
make: *** [test_dynamic] Error 2
PC09:/pro/CPAN/DB_File-1.79 507 $

I did this, which removed the first for each fail, and 59 for recno. HTH
--8<---
diff -u t/db-btree.t t-new/db-btree.t
--- t/db-btree.t	Thu Oct 25 22:32:03 2001
+++ t-new/db-btree.t	Fri Oct 26 11:48:24 2001
@@ -153,7 +153,7 @@
 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
    $blksize,$blocks) = stat($Dfile);
 ok(20, ($mode & 0777) == (($^O eq 'os2' || $^O eq 'MacOS') ? 0666 : 0640)
-   || $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare');
+   || $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'NetWare');
 
 my ($key, $value, $i);
 while (($key,$value) = each(%h)) {
diff -u t/db-hash.t t-new/db-hash.t
--- t/db-hash.t	Thu Oct 25 22:32:03 2001
+++ t-new/db-hash.t	Fri Oct 26 11:48:31 2001
@@ -121,7 +121,7 @@
 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
    $blksize,$blocks) = stat($Dfile);
 ok(16, ($mode & 0777) == (($^O eq 'os2' || $^O eq 'MacOS') ? 0666 : 0640) ||
-   $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare');
+   $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'NetWare');
 
 my ($key, $value, $i);
 while (($key,$value) = each(%h)) {
diff -u t/db-recno.t t-new/db-recno.t
--- t/db-recno.t	Thu Oct 25 22:32:03 2001
+++ t-new/db-recno.t	Fri Oct 26 11:49:39 2001
@@ -166,7 +166,7 @@
 ok(17, $X = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
 
 ok(18, ((stat($Dfile))[2] & 0777) == (($^O eq 'os2' || $^O eq 'MacOS') ? 0666 : 0640)
-	||  $^O eq 'MSWin32' ||  $^O eq 'NetWare' || $^O eq 'amigaos') ;
+	||  $^O eq 'MSWin32' ||  $^O eq 'NetWare' || $^O eq 'cygwin' || $^O eq 'amigaos') ;
 
 #my $l = @h ;
 my $l = $X->length ;
@@ -297,7 +297,7 @@
     untie @h ;
     my $x = docat($Dfile) ;
     unlink $Dfile;
-    ok(59, $x eq "abc\ndef\n\nghi\n") ;
+    ok(59, $x eq "abc\r\ndef\r\n\r\nghi\r\n") ;
 }
 
 {
-->8---
-- 
H.Merijn Brand    Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl-5.6.1, 5.7.2 & 629 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
  WinNT 4, Win2K pro & WinCE 2.11.  Smoking perl CORE: smokers@perl.org
http://archives.develooper.com/daily-build@perl.org/   perl-qa@perl.org
send smoke reports to: smokers-reports@perl.org, QA: http://qa.perl.org


Thread Previous | Thread Next


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