summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-05-14 11:39:56 -0500
committerJesse Luehrs <doy@tozt.net>2010-05-14 11:39:56 -0500
commite94260dab724974551751dbdda9c4c9abde76e6e (patch)
tree88a993f72d4586684f08c9569b036ed8ea0ad7e6 /t
parent4950f5513d1552328128c0a90824ab9074995cd8 (diff)
downloadpackage-stash-e94260dab724974551751dbdda9c4c9abde76e6e.tar.gz
package-stash-e94260dab724974551751dbdda9c4c9abde76e6e.zip
rename Stash::Manip -> Package::Stash
Diffstat (limited to 't')
-rw-r--r--t/000-load.t4
-rw-r--r--t/001-basic.t10
-rw-r--r--t/002-extension.t10
-rw-r--r--t/003-io.t8
-rw-r--r--t/004-get.t6
-rw-r--r--t/005-isa.t4
-rw-r--r--t/010-synopsis.t4
7 files changed, 23 insertions, 23 deletions
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';