diff options
| author | Paul Marquess <pmarquess@bfsec.bt.co.uk> | 1997-04-30 21:45:09 +0100 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-05-01 00:00:00 +1200 |
| commit | 05475680fbb0187887aec733f8c78c90733ace24 (patch) | |
| tree | b67c7a88eb15885cc2bade6bf49eb2b5e70f7a73 /t/lib/db-recno.t | |
| parent | 6b8afdafd43a19a5a652c59255c9895c9bcbe27b (diff) | |
| download | perl-05475680fbb0187887aec733f8c78c90733ace24.tar.gz | |
Refresh DB_File to 1.14
Something for _99.
Made it illegal to tie an associative array to a RECNO database and an
ordinary array to a HASH or BTREE database.
p5p-msgid: 9704302045.AA05484@claudius.bfsec.bt.co.uk
Diffstat (limited to 't/lib/db-recno.t')
| -rwxr-xr-x | t/lib/db-recno.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t index 5df5af1808..338edd0db5 100755 --- a/t/lib/db-recno.t +++ b/t/lib/db-recno.t @@ -41,7 +41,7 @@ sub bad_one EOM } -print "1..55\n"; +print "1..56\n"; my $Dfile = "recno.tmp"; unlink $Dfile ; @@ -270,4 +270,14 @@ unlink $Dfile; ok(55, $ok) ; } +{ + # check that attempting to tie an associative array to a DB_RECNO will fail + + my $filename = "xyz" ; + my %x ; + eval { tie %x, 'DB_File', $filename, O_RDWR|O_CREAT, 0640, $DB_RECNO ; } ; + ok(56, $@ =~ /^DB_File can only tie an array to a DB_RECNO database/) ; + unlink $filename ; +} + exit ; |