Changeset 36301

Timestamp:

12/29/09 13:44:27 (3 years ago)

Author:

ktat

Message:

add test

Location:

lang/perl/Tie-Trace/trunk

Files:

• Changes (modified) (1 diff)
• lib/Tie/Trace.pm (modified) (3 diffs)
• t/tie-trace.t (modified) (2 diffs)

lang/perl/Tie-Trace/trunk/Changes

@@ -1 +1 @@
 Revision history for Tie-Trace
 
+0.14    2009-12-29 02:41
+        fix bug: problem occured when deleted value of hash is undef.
+ 
 0.13    2009-12-02 05:00:00
         implement CLEAR method for Hash and Array.

lang/perl/Tie-Trace/trunk/lib/Tie/Trace.pm

@@ -327 +327 @@
   my $deleted = delete $self->{storage}->{$key};
   $self->_carpit(key => $key,
-                 value => sprintf("DELETED(%s)", $self->_dumper(defined $deleted? $deleted : 'undef')),
+                 value => sprintf("DELETED(%s)", $self->_dumper(defined $deleted ? $deleted : 'undef')),
                  filter => sub{$_[0] =~ s/^\'(.+)\'$/$1/; $_[0] =~s /\\'/'/g}
                 )  unless $QUIET;
@@ -358 +358 @@
   my($self, $p) = @_;
   my $deleted = delete ${$self->{storage}}[$p];
-  $self->_carpit(point => $p, value => sprintf("DELETED(%s)", $self->_dumper($deleted)), filter => sub{$_[0] =~ s/^\'(.*)\'$/$1/; $_[0] =~s /\\'/'/g})  unless $QUIET;
+  $self->_carpit(point => $p,
+                 value => sprintf("DELETED(%s)", $self->_dumper(defined $deleted ? $deleted : "undef")),
+                 filter => sub{$_[0] =~ s/^\'(.*)\'$/$1/; $_[0] =~s /\\'/'/g}
+                )  unless $QUIET;
   return $deleted;
 }
@@ -460 +463 @@
 =head1 VERSION
 
-Version 0.13
+Version 0.14
 
 =cut
 
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 
 =head1 SYNOPSIS

lang/perl/Tie-Trace/trunk/t/tie-trace.t

@@ -1 @@
-use Test::More tests => 45;
+use Test::More;
 
 use_ok("Tie::Trace", ":all");
@@ -136 +136 @@
   undef @array;
   like($err, qr{^main:: \@array\[0 .. 3\] => STORESIZE\(\)}m);
+  $array[0] = undef;
+  is(delete $array[0], undef);
 
   close STDERR;
 }
+
+done_testing;