t/54_output_punct_vars.t

   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;