04-import.t

#! nqp

plan(3);

module ABC {
    sub alpha() { 'alpha' }
    sub &beta() { 'beta' }
    our $gamma := 'gamma';
}

ABC::EXPORT::DEFAULT::alpha := ABC::alpha;
$ABC::EXPORT::DEFAULT::gamma := $ABC::gamma;

my $parrot-comp := pir::compreg__Ps('parrot');

my $module := $parrot-comp.get_module('ABC');
my %exports := $parrot-comp.get_exports($module);
HLL::Compiler.import(pir::get_namespace__P, %exports);

ok( alpha() eq 'alpha', "imported 'alpha' sub into current namespace" );

our β
ok( !pir::defined(&beta), "didn't import &beta");

our $gamma;
ok( $gamma eq 'gamma', 'did import $gamma');