From e94260dab724974551751dbdda9c4c9abde76e6e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 14 May 2010 11:39:56 -0500
Subject: rename Stash::Manip -> Package::Stash

---
 t/000-load.t      |  4 ++--
 t/001-basic.t     | 10 +++++-----
 t/002-extension.t | 10 +++++-----
 t/003-io.t        |  8 ++++----
 t/004-get.t       |  6 +++---
 t/005-isa.t       |  4 ++--
 t/010-synopsis.t  |  4 ++--
 7 files changed, 23 insertions(+), 23 deletions(-)

(limited to 't')

diff --git a/t/000-load.t b/t/000-load.t
index 5b9dc25..0420fe7 100644
--- a/t/000-load.t
+++ b/t/000-load.t
@@ -4,5 +4,5 @@ use warnings;
 use Test::More tests => 1;
 
 package Foo;
-::use_ok('Stash::Manip')
-    or ::BAIL_OUT("couldn't load Stash::Manip");
+::use_ok('Package::Stash')
+    or ::BAIL_OUT("couldn't load Package::Stash");
diff --git a/t/001-basic.t b/t/001-basic.t
index b3cecfb..efd82b4 100644
--- a/t/001-basic.t
+++ b/t/001-basic.t
@@ -4,9 +4,9 @@ use warnings;
 use Test::More;
 use Test::Exception;
 
-use Stash::Manip;
+use Package::Stash;
 
-dies_ok { Stash::Manip->name } q{... can't call name() as a class method};
+dies_ok { Package::Stash->name } q{... can't call name() as a class method};
 
 {
     package Foo;
@@ -17,7 +17,7 @@ dies_ok { Stash::Manip->name } q{... can't call name() as a class method};
 # ----------------------------------------------------------------------
 ## tests adding a HASH
 
-my $foo_stash = Stash::Manip->new('Foo');
+my $foo_stash = Package::Stash->new('Foo');
 ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
 ok(!$foo_stash->has_package_symbol('%foo'), '... the object agrees');
 ok(!defined($Foo::{foo}), '... checking doesn\' vivify');
@@ -258,11 +258,11 @@ dies_ok {
     our %foo = (baz => 1);
     sub foo { }
     open *foo, '<', $0;
-    BEGIN { Stash::Manip->new(__PACKAGE__)->remove_package_symbol('&foo') }
+    BEGIN { Package::Stash->new(__PACKAGE__)->remove_package_symbol('&foo') }
 }
 
 {
-    my $stash = Stash::Manip->new('Baz');
+    my $stash = Package::Stash->new('Baz');
     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");
diff --git a/t/002-extension.t b/t/002-extension.t
index 4a9e7c1..2f95f15 100644
--- a/t/002-extension.t
+++ b/t/002-extension.t
@@ -5,11 +5,11 @@ use Test::More;
 use Test::Exception;
 
 {
-    package My::Stash::Manip;
+    package My::Package::Stash;
     use strict;
     use warnings;
 
-    use base 'Stash::Manip';
+    use base 'Package::Stash';
 
     use Symbol 'gensym';
 
@@ -29,10 +29,10 @@ use Test::Exception;
 }
 
 # No actually package Foo exists :)
-my $foo_stash = My::Stash::Manip->new('Foo');
+my $foo_stash = My::Package::Stash->new('Foo');
 
-isa_ok($foo_stash, 'My::Stash::Manip');
-isa_ok($foo_stash, 'Stash::Manip');
+isa_ok($foo_stash, 'My::Package::Stash');
+isa_ok($foo_stash, 'Package::Stash');
 
 ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
 ok(!$foo_stash->has_package_symbol('%foo'), '... the foo_stash agrees');
diff --git a/t/003-io.t b/t/003-io.t
index a41b2ae..43a7dd8 100644
--- a/t/003-io.t
+++ b/t/003-io.t
@@ -18,10 +18,10 @@ use Test::Exception;
     sub bar { }
 }
 
-use Stash::Manip;
+use Package::Stash;
 
 {
-    my $stash = Stash::Manip->new('Foo');
+    my $stash = Package::Stash->new('Foo');
     ok($stash->has_package_symbol('&foo'), "has &foo");
     ok($stash->has_package_symbol('foo'), "has foo");
     $stash->remove_package_symbol('&foo');
@@ -30,7 +30,7 @@ use Stash::Manip;
 }
 
 {
-    my $stash = Stash::Manip->new('Bar');
+    my $stash = Package::Stash->new('Bar');
     ok($stash->has_package_symbol('&bar'), "has &bar");
     ok($stash->has_package_symbol('bar'), "has bar");
     $stash->remove_package_symbol('bar');
@@ -39,7 +39,7 @@ use Stash::Manip;
 }
 
 {
-    my $stash = Stash::Manip->new('Baz');
+    my $stash = Package::Stash->new('Baz');
     lives_ok {
         $stash->add_package_symbol('baz', *Foo::foo{IO});
     } "can add an IO symbol";
diff --git a/t/004-get.t b/t/004-get.t
index c38ae65..15e252f 100644
--- a/t/004-get.t
+++ b/t/004-get.t
@@ -3,10 +3,10 @@ use strict;
 use warnings;
 use Test::More;
 
-use Stash::Manip;
+use Package::Stash;
 
 {
-    my $stash = Stash::Manip->new('Foo');
+    my $stash = Package::Stash->new('Foo');
     my $val = $stash->get_package_symbol('%foo');
     is(ref($val), 'HASH', "got something");
     $val->{bar} = 1;
@@ -15,7 +15,7 @@ use Stash::Manip;
 }
 
 {
-    my $stash = Stash::Manip->new('Bar');
+    my $stash = Package::Stash->new('Bar');
     my $val = $stash->get_package_symbol('@foo');
     is(ref($val), 'ARRAY', "got something");
     push @$val, 1;
diff --git a/t/005-isa.t b/t/005-isa.t
index d21c7a7..3198fb1 100644
--- a/t/005-isa.t
+++ b/t/005-isa.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Test::More;
 
-use Stash::Manip;
+use Package::Stash;
 
 {
     package Foo;
@@ -13,7 +13,7 @@ use Stash::Manip;
     package Bar;
 }
 
-my $stash = Stash::Manip->new('Foo');
+my $stash = Package::Stash->new('Foo');
 my @ISA = ('Bar');
 @{$stash->get_package_symbol('@ISA')} = @ISA;
 isa_ok('Foo', 'Bar');
diff --git a/t/010-synopsis.t b/t/010-synopsis.t
index 5d29573..4c93f32 100644
--- a/t/010-synopsis.t
+++ b/t/010-synopsis.t
@@ -3,9 +3,9 @@ use strict;
 use warnings;
 use Test::More;
 
-use Stash::Manip;
+use Package::Stash;
 
-my $stash = Stash::Manip->new('Foo');
+my $stash = Package::Stash->new('Foo');
 $stash->add_package_symbol('%foo', {bar => 1});
 {
     no warnings 'once';
-- 
cgit v1.2.3-54-g00ecf