From adda4f43e39cff45cf4d443dd93216644fca3afa Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 5 Aug 2011 13:08:04 -0500
Subject: remove test numbers

---
 t/io.t | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 t/io.t

(limited to 't/io.t')

diff --git a/t/io.t b/t/io.t
new file mode 100644
index 0000000..ecade2a
--- /dev/null
+++ b/t/io.t
@@ -0,0 +1,51 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More;
+use Test::Fatal;
+
+{
+    package Foo;
+    open *foo, "<", $0;
+
+    sub foo { }
+}
+
+{
+    package Bar;
+    open *bar, "<", $0;
+
+    sub bar { }
+}
+
+use Package::Stash;
+
+{
+    my $stash = Package::Stash->new('Foo');
+    ok($stash->has_symbol('&foo'), "has &foo");
+    ok($stash->has_symbol('foo'), "has foo");
+    $stash->remove_symbol('&foo');
+    ok(!$stash->has_symbol('&foo'), "has &foo");
+    ok($stash->has_symbol('foo'), "has foo");
+}
+
+{
+    my $stash = Package::Stash->new('Bar');
+    ok($stash->has_symbol('&bar'), "has &bar");
+    ok($stash->has_symbol('bar'), "has bar");
+    $stash->remove_symbol('bar');
+    ok($stash->has_symbol('&bar'), "has &bar");
+    ok(!$stash->has_symbol('bar'), "has bar");
+}
+
+{
+    my $stash = Package::Stash->new('Baz');
+    is(exception {
+        $stash->add_symbol('baz', *Foo::foo{IO});
+    }, undef, "can add an IO symbol");
+    ok($stash->has_symbol('baz'), "has baz");
+    is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz");
+}
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf