1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#! nqp
say("1..0 # Skipped: design changes (EXPORT now lexical), need re-work");
#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 := nqp::getcomp('nqp');
#
#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( !nqp::defined(&beta), "didn't import &beta");
#
#our $gamma;
#ok( $gamma eq 'gamma', 'did import $gamma');
|
