work in progress

[p5sagit/Data-Dumper-Concise.git] / t / concise.t

diff --git a/t/concise.t b/t/concise.t
index 20e3512..32e422d 100644 (file)
--- a/t/concise.t
+++ b/t/concise.t
@@ -3,6 +3,7 @@ use warnings;
 use Data::Dumper ();
 use Data::Dumper::Concise;
 use Test::More qw(no_plan);
+use Scalar::Util 'weaken';
 
 my $dd = Data::Dumper->new([])
                      ->Terse(1)
@@ -35,5 +36,9 @@ foreach my $to_dump (
 }
 
 my $out = DumperF { "arr: $_[0] str: $_[1]" } [qw(wut HALP)], "gnarl";
-
+my $x = [1, 2];
+my $z = $x;
+my $y = weaken($x);
+warn Dumper($y);
+warn Dumper($x);
 is($out, qq{arr: [\n  "wut",\n  "HALP"\n]\n str: "gnarl"\n}, 'DumperF works!');