Permalink
Browse files

Test that we get a useful value from a single ref

  • Loading branch information...
1 parent d18c72d commit 628488a982c54ddca2850d758b2f471957a21415 @rwstauner rwstauner committed Jan 25, 2012
Showing with 12 additions and 1 deletion.
  1. +12 −1 t/basic.t
View
@@ -1,7 +1,7 @@
#!perl
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 6;
use String::Flogger qw(flog);
is(
@@ -28,3 +28,14 @@ is(
"%s <- \\\\1",
);
+like(
+ flog({foo => 'bar'}),
+ qr/foo.+bar/,
+ "hashref keys/values printed",
+);
+
+like(
+ flog(sub { +{foo => 'bar'} }),
+ qr/foo.+bar/,
+ "hashref keys/values printed",
+);

0 comments on commit 628488a

Please sign in to comment.