From 73afaec9a8c17d03643a56b3842448c172a26285 Mon Sep 17 00:00:00 2001 From: Ricardo Signes Date: Tue, 12 Jan 2010 11:12:47 -0500 Subject: [PATCH] test stash_name in less.pm --- lib/less.t | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/lib/less.t b/lib/less.t index 3cca6fa..7713eb6 100644 --- a/lib/less.t +++ b/lib/less.t @@ -5,15 +5,30 @@ BEGIN { push @INC, '../lib'; } -use Test::More tests => 6; +use Test::More tests => 12; -BEGIN { use_ok( 'less' ) } +BEGIN { + use_ok( 'less' ); + + package less::again; + sub stash_name {'less'} + @ISA = 'less'; + $INC{'less/again.pm'} = 1; +} is_deeply([less->of], [], 'more please'); use less; is_deeply([less->of], ['please'],'less please'); +is_deeply([less::again->of], ['please'], 'less::again please'); no less; is_deeply([less->of],[],'more please'); +is_deeply([less::again->of], [], 'no less::again please'); +use less::again; +is_deeply([less->of], ['please'],'less please'); +is_deeply([less::again->of], ['please'], 'less::again please'); +no less::again; +is_deeply([less->of],[],'more please'); +is_deeply([less::again->of], [], 'no less::again please'); use less 'random acts'; is_deeply([sort less->of],[sort qw(random acts)],'less random acts'); -- 2.7.4