add test

perlancar · Aug 3, 2011 · ac997fc · ac997fc
1 parent 0a1e1a2
commit ac997fc
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/t/01-basics.t b/t/01-basics.t
@@ -12,7 +12,8 @@ my $str = Object::BlankStr->new;
 is("$str", "", "object stringifies to empty string");
 
 eval { die $str };
-my $eval_err = "$@";
-is($eval_err, "", "die Object::BlankStr->new doesn't print anything");
+my $eval_err = $@;
+is("$eval_err", "", "die Object::BlankStr->new doesn't print anything");
+is(ref($eval_err), "Object::BlankStr", "object returned by die()");
 
 done_testing();