t/07error.t

   1 ##
   2 # DBM::Deep Test
   3 ##
   4 use strict;
   5 use Test::More tests => 4;
   6
   7 use_ok( 'DBM::Deep' );
   8
   9 unlink "t/test.db";
  10 my $db = DBM::Deep->new( "t/test.db" );
  11 if ($db->error()) {
  12         die "ERROR: " . $db->error();
  13 }
  14
  15 ##
  16 # cause an error
  17 ##
  18 eval { $db->push("foo"); }; # ERROR -- array-only method
  19
  20 ok( $db->error() );
  21
  22 $db->clear_error();
  23
  24 ok( !$db->error() );
  25 undef $db;
  26
  27 open FH, '>t/test.db';
  28 print FH 'DPDB';
  29 close FH;
  30 $db = DBM::Deep->new( "t/test.db" );
  31 TODO: {
  32     local $TODO = "The return value from load_tag() isn't checked in open()";
  33     ok( $db->error() );
  34 }