diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2001-10-26 15:55:21 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-26 13:31:10 +0000 |
| commit | 13d11c6e852aaac8eff257adcc793baa531c16b1 (patch) | |
| tree | cb49d433651456681a72dcaa828c9e65c0ba90d7 /ext/DB_File | |
| parent | 302cc833bfd3756cf192f5a7cc5b1dd6f218515a (diff) | |
| download | perl-13d11c6e852aaac8eff257adcc793baa531c16b1.tar.gz | |
Re: DB_File-1.79 on Cygwin 1.3.3
Message-Id: <20011026135017.F575.H.M.BRAND@hccnet.nl>
(plus make the db-recno.t#59 accept both \n and \r\n)
p4raw-id: //depot/perl@12682
Diffstat (limited to 'ext/DB_File')
| -rwxr-xr-x | ext/DB_File/t/db-btree.t | 2 | ||||
| -rwxr-xr-x | ext/DB_File/t/db-hash.t | 2 | ||||
| -rwxr-xr-x | ext/DB_File/t/db-recno.t | 5 |
3 files changed, 5 insertions, 4 deletions
diff --git a/ext/DB_File/t/db-btree.t b/ext/DB_File/t/db-btree.t index a380496b53..529a600cf9 100755 --- a/ext/DB_File/t/db-btree.t +++ b/ext/DB_File/t/db-btree.t @@ -144,7 +144,7 @@ ok(19, $X = tie(%h, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE )) ; 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 --git a/ext/DB_File/t/db-hash.t b/ext/DB_File/t/db-hash.t index 1d13dc0941..bd6fb586b7 100755 --- a/ext/DB_File/t/db-hash.t +++ b/ext/DB_File/t/db-hash.t @@ -110,7 +110,7 @@ ok(15, $X = tie(%h, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) ); 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 --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t index 8a225ce9b8..24ee17c754 100755 --- a/ext/DB_File/t/db-recno.t +++ b/ext/DB_File/t/db-recno.t @@ -157,7 +157,7 @@ my @h ; 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 ; @@ -288,7 +288,8 @@ unlink $Dfile; untie @h ; my $x = docat($Dfile) ; unlink $Dfile; - ok(59, $x eq "abc\ndef\n\nghi\n") ; + ok(59, $x eq "abc\ndef\n\nghi\n" || + $x eq "abc\r\ndef\r\n\r\nghi\r\n") ; } { |