perl - 如何在 TextMate 中运行为证明表单设计的测试 perl 脚本？

Question

我正在使用 TextMate 1.5.10 (Mac OSX 10.7.2) 编写 perl modulino application .为了验证功能，我使用了旨在与 prove 一起运行的测试脚本。命令行工具。

我正在使用的目录结构示例如下所示:

text_mate_test/MyModule.pm
text_mate_test/t/001_load_test.t

001_load_test.t 文件如下所示:

#!/usr/bin/perl 

use Modern::Perl;
use Test::More;
use MyModule;

my $testObj = new_ok("MyModule", undef, "Initial load test.");

done_testing();

当我跑 prove或 prove -v在“text_mate_test”目录中，一切都按预期通过。

我希望能够在 TextMate 中设置一个热键，让我无需跳转到终端即可运行测试文件。目前，如果我使用 Cmd+R 直接从 TextMate 内部运行“001_load_test.t”，它会说“无法在@INC 中找到 MyModule.pm”。这是意料之中的，因为测试脚本不是为直接运行而设计的。 (我对编写测试文件还是很陌生，但我相信这是设置它们的正确方法。)

假设我不想更改测试文件本身，有没有办法设置热键，以便我可以从 TextMate 内部准确运行文件？

Answer 1

我想出了一个更好的方法来做到这一点。

在 TextMate 捆绑编辑器(菜单栏 -> 捆绑 -> 捆绑编辑器 -> 显示捆绑编辑器)中，我已将默认的“Perl -> 运行脚本”捆绑更新为:

#!/usr/bin/env ruby

require "#{ENV["TM_SUPPORT_PATH"]}/lib/tm/executor"
require "#{ENV["TM_SUPPORT_PATH"]}/lib/tm/save_current_document"

TextMate.save_current_document
TextMate::Executor.make_project_master_current_document

### If it's a ".t" test script in a "t" directory, run prove
if ( ENV["TM_FILEPATH"] =~ /^.*\/(t\/[^\/]+)$/ )

    ### Grab the relative file path for more legible output
    relative_file_path = $1

    ### Jump up one directory so prove will work
    Dir.chdir("../");

    ### Call prove with args to run only the file you are working on.
    TextMate::Executor.run("prove", :script_args => ["-v", relative_file_path]);

### Otherwise, run with perl
else
    TextMate::Executor.run(ENV["TM_PERL"] || "perl", "-I#{ENV["TM_BUNDLE_SUPPORT"]}", 
        "-Mexception_handler", ENV["TM_FILEPATH"], 
        :version_args => ["-e", 'printf "Perl v%vd", $^V;'])
end

这是它在捆绑编辑器中的外观的屏幕截图。



这样做的好处是您可以使用相同的热键(默认为 Cmd+r)来运行带有 perl 的普通脚本和带有 proof 的测试脚本。

这就是我一直在寻找的。

更新:当我第一次开发这个时，我在“t”目录中只有一个测试脚本。直到我添加了其他测试脚本，我才注意到这个答案的原始版本中的代码将在所有脚本中运行。不仅仅是正在处理的那个。为了回到预期的行为，我更新了捆绑代码，以便证明只会在事件脚本上运行。