Commit | Line | Data |
f696d6ab |
1 | use strict; |
2 | use warnings FATAL => 'all'; |
3 | |
4 | use Test::More; |
5 | use t::common qw( new_fh ); |
6 | |
7 | use_ok( 'DBM::Deep' ); |
8 | |
9 | my ($fh, $filename) = new_fh(); |
10 | ok eval { |
11 | local $,="\t"; |
12 | my $db = DBM::Deep->new( file => $filename, fh => $fh, ); |
13 | $db->{34808} = "BVA/DIVISO"; |
14 | $db->{34887} = "PRIMARYVEN"; |
15 | }, '$, causes no hiccoughs or 150MB files'; |
16 | |
17 | |
18 | ($fh, $filename) = new_fh(); |
19 | ok eval { |
20 | local $\="\n"; |
21 | my $db = DBM::Deep->new( file => $filename, fh => $fh, ); |
22 | $db->{foo} = ""; |
23 | $db->{baz} = "11111"; |
24 | $db->{foo} |
25 | = "counterpneumonoultramicroscopicsilicovolcanoconiotically"; |
26 | $db->{baz}; |
27 | }, '$\ causes no problems'; |
28 | |
29 | done_testing; |