2

特定の Base.pm モジュールの次のコードがあります。

use Application::Container;

my $container;

sub container {
    unless ( defined($container) ) {
        $container = Application::Container->instance;
    }
    return $container;
}

sub configuration {
    my ($class) = @_;
    return $class->container->get('Application::Base');
}

sub log {
    my ($class) = @_;
    $class->container->get('Application::Log');
}

# and many more similar subroutines
...

Application::Container はMicro::Containerのようなオブジェクト コンテナ モジュールです。

この Base.pm モジュールのテスト コードを書くにはどうすればよいですか?

なぜそれをテストする必要があるのですか？

わかりませんが、アプリケーション内のファイルごと.pmに、対応するテスト コードが必要です。.pl.t

4

1 に答える 1

1 
use Test::More;
use Application::Container;

my $test_container = $Application::Container::container;

is($test_container,undef,'container is not defined');

my $test_container = Application::Container->container();
my $test_container_singleton = $Application::Container::container;

ok($test_container,$test_container_singleton,'container is good');
于 2013-07-22T13:26:22.263 に答える