[dbsrgits/DBM-Deep.git] / t / 54_output_punct_vars.t

use strict;
use warnings FATAL => 'all';

use Test::More;
use t::common qw( new_fh );

use_ok( 'DBM::Deep' );

my ($fh, $filename) = new_fh();
ok eval {
    local $,="\t";
    my $db = DBM::Deep->new( file => $filename, fh => $fh, );
    $db->{34808} = "BVA/DIVISO";
    $db->{34887} = "PRIMARYVEN";
}, '$, causes no hiccoughs or 150MB files';


($fh, $filename) = new_fh();
ok eval {
    local $\="\n";
    my $db = DBM::Deep->new( file => $filename, fh => $fh, );
    $db->{foo} = "";
    $db->{baz} = "11111";
    $db->{foo}
        = "counterpneumonoultramicroscopicsilicovolcanoconiotically";
    $db->{baz};
}, '$\ causes no problems';

done_testing;
Commit	Line	Data
4ae410a7	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;