Bug #83977 for aliased: isa() does not understand aliases

Fri Mar 15 14:58:57 2013 ether [...] cpan.org - Ticket created

Subject:

isa() does not understand aliases

use strict; use warnings; use aliased 'Test::More' => 'Foo'; isa_ok('Test::More', 'Test::More'); isa_ok('Foo', 'Test::More'); isa_ok('Test::More', 'Foo'); my $obj = bless {}, 'Test::More'; isa_ok($obj, 'Test::More'); isa_ok($obj, 'Foo'); done_testing; prints: ok 1 - The class isa Test::More not ok 2 - The class isa Test::More # Failed test 'The class isa Test::More' # at aliased.pl line 7. # The class isn't a 'Test::More' it's a '' not ok 3 - The class isa Foo # Failed test 'The class isa Foo' # at aliased.pl line 8. # The class isn't a 'Foo' it's a '' ok 4 - The object isa Test::More not ok 5 - The object isa Foo # Failed test 'The object isa Foo' # at aliased.pl line 12. # The object isn't a 'Foo' it's a 'Test::More' 1..5 # Looks like you failed 3 tests of 5.

Sat Mar 16 08:24:54 2013 ovid [...] cpan.org - Correspondence added

On Fri Mar 15 14:58:57 2013, ETHER wrote: Show quoted text

> use strict; > use warnings; > > use aliased 'Test::More' => 'Foo'; > > isa_ok('Test::More', 'Test::More'); > isa_ok('Foo', 'Test::More'); > isa_ok('Test::More', 'Foo'); > > my $obj = bless {}, 'Test::More'; > isa_ok($obj, 'Test::More'); > isa_ok($obj, 'Foo'); > > done_testing; > > prints: > > ok 1 - The class isa Test::More > not ok 2 - The class isa Test::More > # Failed test 'The class isa Test::More' > # at aliased.pl line 7. > # The class isn't a 'Test::More' it's a '' > not ok 3 - The class isa Foo > # Failed test 'The class isa Foo' > # at aliased.pl line 8. > # The class isn't a 'Foo' it's a '' > ok 4 - The object isa Test::More > not ok 5 - The object isa Foo > # Failed test 'The object isa Foo' > # at aliased.pl line 12. > # The object isn't a 'Foo' it's a 'Test::More' > 1..5 > # Looks like you failed 3 tests of 5. >

Hi Karen, This actually is not a bug. Foo, in your example, is not a string, nor is it a classname. When you do this: use aliased 'Test::More' => 'Foo'; That's equivalent to this: use Test::More; sub Foo() { return 'Test::More' } Due to the null prototype, this becomes a constant subroutine and its return value is inlined into the code. The following should make this clear: % perl -Maliased=Test::More,Foo -MO=Deparse -e "print Foo; print 'Foo'" print 'Test::More'; print 'Foo'; -e syntax OK So to fix your test, just do this: use strict; use warnings; use aliased 'Test::More' => 'Foo'; isa_ok('Test::More', 'Test::More'); isa_ok(Foo, 'Test::More'); isa_ok('Test::More', Foo); my $obj = bless {}, 'Test::More'; isa_ok($obj, 'Test::More'); isa_ok($obj, Foo); done_testing; Cheers, Ovid PS: I've made this same mistake and I wrote the module! Makes me feel kind of silly sometimes when I do that :)

Sat Mar 16 08:24:55 2013 The RT System itself - Status changed from 'new' to 'open'

Sat Mar 16 08:24:55 2013 ovid [...] cpan.org - Status changed from 'open' to 'rejected'