Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

57 lines (42 sloc) 1.631 kB
use v6;
use Test;
plan 16;
# L<S11/"Compile-time Importation"/>
{
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
#?pugs skip 'Cannot cast from VUndef to VCode'
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' );
#?pugs todo
dies_ok { eval 'qux()' }, 'qux() not imported';
#?pugs todo
dies_ok { eval 'gaz()' }, 'gaz() not imported';
}
#?pugs skip 'Undeclared variable'
ok( ! &foo, 'Foo::foo is undefined in outer scope' );
#?pugs todo
{
BEGIN { @*INC.push('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";
}
#?pugs todo
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.