Question

我目前在几个测试文件的开头有以下内容，但它不是DRY。但我不确定将其移入自己的文件的最佳方法是什么。有什么建议吗？

#!/usr/bin/perl
use strict;
use warnings;
BEGIN {
    use Test::More;
    use namespace::clean qw( pass );
}
use FindBin;
use Cwd qw( realpath );
use Dancer qw( :syntax );
use Test::WWW::Mechanize::PSGI;
set apphandler => 'PSGI';

my $appdir = realpath( "$FindBin::Bin/.." );
my $t = Test::WWW::Mechanize::PSGI->new(
    app => sub {
        my $env = shift;
        setting(
            appname => 'MyApp',
            appdir => $appdir,
        );
        load_app 'MyApp';
        config->{environment} = 'test';
        Dancer::Config->load;
        my $request = Dancer::Request->new( env => $env );
        Dancer->dance( $request );
    }
);
$t->agent('test');

$t->get_ok('/login') or diag $t->content;

$t->submit_form_ok({
    form_name =>'loginform',
    fields    => {
        username => 'myuser',
        password => 'foo',
    },
}, 'login ok' );

### END BOILERPLATE ###

更新

不幸的是，将此问题移到库中的一部分问题是，只要我这样做，代码就会停止工作。我尝试将其封装到子例程中并返回$t，但这似乎不起作用。我正在试图找出究竟需要进入图书馆的内容以及究竟需要进入测试的内容。

Answer 1

将其设为模块（例如t::MyApp），将my $t更改为our $t，然后让模块导出$t。（您还可以编写自定义import方法，以在测试脚本中启用严格和警告。）

Answer 2

您可以创建一个包含这些行的.pm模块，并使用一些面向对象的代码从样板代码中获取$t和其他信息，然后use来自您的测试

如何让这些测试更干？

2 个答案: