2

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

#!/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，但这似乎不起作用。我试图弄清楚究竟什么需要进入图书馆，什么究竟需要进入测试。

4

2 回答 2

2

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

于 2011-07-12T23:11:38.940 回答
1

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

于 2011-07-12T23:13:26.733 回答