From 6ee333b86d6a1141415a70dacb38f30f8d8e2e9b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 11 May 2010 23:40:09 -0500
Subject: add TODO test

---
 t/001-basic.t | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 't/001-basic.t')

diff --git a/t/001-basic.t b/t/001-basic.t
index ef95bf1..33d1117 100644
--- a/t/001-basic.t
+++ b/t/001-basic.t
@@ -248,4 +248,28 @@ dies_ok {
     $foo_stash->add_package_symbol('$bar', *Bar::foo{IO})
 } "can't initialize a slot with the wrong type of value";
 
+# check compile time manipulation
+
+{
+    package Baz;
+
+    our $foo = 23;
+    our @foo = "bar";
+    our %foo = (baz => 1);
+    sub foo { }
+    open *foo, '<', $0;
+    BEGIN { Stash::Manip->new(__PACKAGE__)->remove_package_symbol('&foo') }
+}
+
+{
+    my $stash = Stash::Manip->new('Baz');
+    { local $TODO = "getting undef for some reason";
+    is(${ $stash->get_package_symbol('$foo') }, 23, "got \$foo");
+    }
+    is_deeply($stash->get_package_symbol('@foo'), ['bar'], "got \@foo");
+    is_deeply($stash->get_package_symbol('%foo'), {baz => 1}, "got \%foo");
+    ok(!$stash->has_package_symbol('&foo'), "got \&foo");
+    is($stash->get_package_symbol('foo'), *Baz::foo{IO}, "got foo");
+}
+
 done_testing;
-- 
cgit v1.2.3-54-g00ecf