Question

这是 / t 中的通用代码，用于测试 / lib 中的.pm6模块是否加载。

use lib $*PROGRAM.sibling('../lib');
use Test;

my @dir = dir($*PROGRAM.sibling('../lib'), test => { $_ ~~ /.*pm6/  } );
plan @dir.elems;

sub module( IO $dir ) {
  $dir.basename.Str ~~ /(\w+)\.pm6/;
  return $0.Str;
}

for  @dir.map(&module) -> $module {
  use-ok $module, "This module loads: $module";
}

在进一步研究之前（递归查看lib子文件夹），我想知道这是正确的方法。

谢谢！

Answer 1

如果要测试格式正确的发行版，则应使用：

use lib $*PROGRAM.parent(2);

通过将use lib指向包含您的META6.json的目录而不是lib目录，您可以帮助确保META6.json文件的提供条目是最新的（因为文件未在META6.json，但是在lib内部不存在 do 。

（我甚至更进一步，说根本不使用use lib '...'，而是使用perl6 -I ...运行测试。例如，如果您想要在某些发行版的已安装副本上运行这些测试（无论出于何种原因）？）

话虽如此，您可以使用META6数据跳过目录递归。一种方法是直接读取META6.json，但更好的方法是从发行版本身获取模块名称：

# file: zef/t/my-test.t
# cwd: zef/

use lib $*PROGRAM.parent(2); # or better: perl6 -I. t/my-test.t
use Test;

my $known-module = CompUnit::DependencySpecification.new(short-name => "Zef");
my $comp-unit    = $*REPO.resolve($known-module);
my @module-names = $comp-unit.distribution.meta<provides>.keys;

use-ok($_) for @module-names;

Answer 2

使用@ugexe反馈和META6 distribution， t / 中的以下代码测试了是否加载了META6.json中定义的模块。

use META6;
use Test;

my $m = META6.new( file => $*PROGRAM.sibling('../META6.json') );
my @modules = $m<provides>.keys;
plan @modules.elems; 

for $m<provides>.keys -> $module {
  use-ok $module, "This module loads: $module";
}

此测试已被拉入META6 distribution。

Perl6通用代码来测试模块是否加载

2 个答案: