unit-testing - Guile で書かれた TAP::Harness テストを実行するには?

Question

の通常のアプローチ

テスト：
    $(PERL) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE), '$(INCDIRS)')" $(TEST_FILES)

Guile に追加のパラメータ "-w" を渡すため、Guile スクリプトの実行に失敗します。

Answer 1

考えられるアプローチの 1 つは、次のようにプロジェクトをセットアップすることです。

ディレクトリ構造は次のとおりです。

./project プロジェクト ファイル
./project/t/*.t 単体テスト スクリプト
./project/t/scripts/* 単体テストで使用される補助スクリプト

./project/Makefileには以下が含まれます。

PERL = /usr/bin/perl
TEST_LIBDIRS = ./lib
RUN_GUILE_TESTS = ./t/scripts/RunGuileTests.pl
TEST_FILES = ./t/*.t

テスト：
    $(PERL) -I$(TEST_LIBDIRS) $(RUN_GUILE_TESTS) $(TEST_FILES)

./project/t/scripts/RunGuileTests.pl の内容は次のとおりです。

#!/usr/bin/perl -w
# Run Guile tests - ファイル名はスクリプトへの引数として与えられます。

TAP::Harness を使用します。
私の @tests = @ARGV;
私の %args = (
    詳細度 => 0、
    タイマー => 1、
    show_count => 1,
    exec => ['/usr/bin/guile', '-s'],
    );
私の $harness = TAP::Harness->new( \%args );
        $harness->runtests(@tests);

# RunGuileTests.pl の終わり

Guile テスト スクリプトは次のように開始する必要があります。

#!/usr/bin/guile -s
!#
; テストの説明