1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
say("1..0 # Skipped: design changes, need re-work");
# plan(4);
#
#my $parrot-comp := nqp::getcomp('parrot');#
#
#my $comp := $parrot-comp.get_module('HLL::Compiler');
#ok($comp =:= $parrot-comp.WHO, "correctly retrieved namespace");#
#
#my $crow := $parrot-comp.load_module('Crow');
#ok( pir::isa(Crow::help, 'Sub'), "successfully loaded Crow::help");
#ok( $crow =:= pir::get_hll_namespace__PP(['Crow']), "Crow ns correct");
#
#my $getopt := $parrot-comp.load_module('Getopt::Obj');
#ok( $getopt =:= pir::get_hll_namespace__PP(['Getopt','Obj']), "Getopt::Obj ns");
|
