Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

53 lines (37 sloc) 1.504 kB
use v6;
use Test;
plan 16;
# L<S11/"Compile-time Importation"/>
use lib '.';
{
use t::spec::packages::S11-modules::Foo;
ok( &foo, 'Foo::foo is defined (explicitly :DEFAULT)' );
is( foo(), 'Foo::foo', 'Foo::foo is the sub we expect' );
ok( &bar, 'Foo::bar is defined (explicitly :DEFAULT and :others)' );
is( bar(), 'Foo::bar', 'Foo::bar is the sub we expect' );
ok( &baz, 'Foo::baz is defined (:MANDATORY)' );
is( baz(), 'Foo::baz', 'Foo::baz is the sub we expect' );
ok( &bop, 'Foo::bop is defined (implicitly :DEFAULT)' );
is( bop(), 'Foo::bop', 'Foo::bop is the sub we expect' );
multi waz($x) { 'Foo::wazhere' } #OK not used
ok( &waz, 'Foo::waz multi is defined (implicitly :DEFAULT)' );
is( waz(), 'Foo::waz', 'Foo::waz is the sub we expect' );
is( waz(1), 'Foo::wazhere', 'Foo::waz imported does not wipe out our other waz multis' );
dies-ok { EVAL 'qux()' }, 'qux() not imported';
dies-ok { EVAL 'gaz()' }, 'gaz() not imported';
}
dies-ok( { EVAL '&foo' }, 'Foo::foo is undefined in outer scope' );
{
use lib 't/spec/packages';
class TestImportInClass {
use A::B;
method doit {
A::B::D.new();
}
}
lives-ok { TestImportInClass.doit() },
"can instantiate class that's loaded from inside another class";
}
eval-dies-ok 'use t::spec::packages::S11-modules::Foo :NoSucTag;',
'die while trying to import a non-existent export tag';
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.