From: Matt S Trout Date: Mon, 15 Jun 2009 18:24:01 +0000 (+0100) Subject: skeleton of test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2613725b1e01c175c0e7e786247ba3201dcd943;p=p5sagit%2FMutually-Assured-Destruction.git skeleton of test --- d2613725b1e01c175c0e7e786247ba3201dcd943 diff --git a/t/01simple.t b/t/01simple.t new file mode 100644 index 0000000..34b800b --- /dev/null +++ b/t/01simple.t @@ -0,0 +1,20 @@ +use strict; +use warnings; +use Test::More; +use Scalar::Util qw(weaken); + +my %real; +my %weak; + +@weak{qw(one two)} = @real{qw(one two)} = ({}, {}); + +weaken($_) for values %weak; + +delete @real{keys %real}; + +cmp_ok( + (scalar grep defined, values %weak), '==', 0, + 'All objects destroyed now' +); + +done_testing;