From: Matt S Trout <matthewt@hercule.scsys.co.uk>
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?p=p5sagit%2FMutually-Assured-Destruction.git;a=commitdiff_plain;h=d2613725b1e01c175c0e7e786247ba3201dcd943

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;