TAP::Formatter::Color - 使用色彩執行 Perl 測試腳本
版本 3.44
請注意,此測試架構為實驗性質。您可能不喜歡我選擇的色彩,而且我尚未提供一個簡單的方式來覆寫它們。
此測試架構與 TAP::Harness 相同,但測試結果會以色彩輸出。通過的測試會以綠色列印。失敗的測試會以紅色列印。略過的測試會以藍色列印在白色背景上,而 TODO 測試會以白色列印。
如果找不到 Term::ANSIColor(以及在 Windows 下執行的 Win32::Console::ANSI),測試將會在沒有色彩的情況下執行。
use TAP::Formatter::Color;
my $harness = TAP::Formatter::Color->new( \%args );
$harness->runtests(@tests);
new
建構函式傳回一個新的 TAP::Formatter::Color
物件。如果未安裝 Term::ANSIColor,傳回 undef。
can_color
Test::Formatter::Color->can_color()
傳回一個布林值,指出此模組是否實際上可以產生彩色輸出。如果無法載入目前平台所需的模組,則此值為 false。
set_color
設定輸出顏色。