[英]Change Environment Variables During Perl Unit Testing
我正在尝试为此Perl模块功能编写一些单元测试,但是环境变量存在一些问题。 我将首先列出文件,然后更详细地说明问题。
processBuildSubs.pm
package processBuildSubs;
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Status;
# Declare environment variables used in this package that are needed
use constant URI_BASE => $ENV {"URI_BASE"};
use constant URI_RESOURCE => $ENV {"URI_RESOURCE"};
# Shell Environment Related Constants visible.
# Make visible.
our $URI_BASE = URI_BASE;
our $URI_RESOURCE = URI_RESOURCE;
sub populatePartitions
{
# Define locals
my $url;
my $ua = new LWP::UserAgent;
$url = "$URI_BASE"."$URI_RESOURCE"."/some/path";
# Make a request to the $url
$res = $ua->request (GET $url);
if ($res->code() != HTTP::Status->RC_OK() )
{
# The request didn't return 200 OK so it's in here now.
}
else
{
# The request returned 200 OK, so now it's here.
}
}
我希望能够对if path
和else path
进行单元测试,但是,如果我根本不需要更改processBuildSubs.pm
代码,则对我来说是最好的。 这是我目前无法控制的外部文件。 我只是负责对它进行单元测试(尽管我确实知道,如果我们也可以更改源代码,可以对其进行更有效的测试)。
因此,为了测试两个路径,我们需要相应地设置环境变量URI_BASE
和URI_RESOURCE
,以便请求一次失败,而另一次成功。 (我有兴趣学习如何在将来的某个时间取消此呼叫,但这是另一个问题的保留。)
这是我的测试文件:
processBuildSubs.t
use strict;
use Test::More qw(no_plan);
BEGIN { use_ok('processBuildSubs') };
# Test 1 of populatePartitions() function
my $processBuildProdsCall = processBuildSubs::populatePartitions();
is( $populatePartitionsCall, 0, "populatePartitions() Test for 0 Val Passed" );
# Test 2 of populatePartitions() function
# I need to change some environment variables that processBuildSubs depends on here.
my $processBuildProdsCall = processBuildSubs::populatePartitions();
is( $populatePartitionsCall, 0, "populatePartitions() Test for 0 Val Passed" );
我们现在更改环境变量的最佳尝试是使用外部shell脚本,如下所示(但最好在上述文件的my
调用之间更改它们):
run_tests.sh
#!/bin/bash
# Run the tests once
perl ./BuildProcess.pl
perl ./Build testcover # Ultimately calls the processBuildSubs.t test file
# Now export some variables so the other test passes.
export URI_BASE="https://some-alias/"
export URI_RESOURCE="some-resource"
# Then run the test suite again with the env set so the else condition passes.
perl ./BuildProcess.pl
perl ./Build testcover
如您所见,这将是一种糟糕的处理方式,因为我们每次都在不同的环境下运行整个测试套件。 理想情况下,如果可能的话,我们希望在测试之间在processBuildSubs.t
文件中设置环境。
如果可以提供更多信息,请告诉我。
您是否不想为单独的测试环境使用单独的脚本?
# processBuildSubs.t
BEGIN {
@ENV{"URI_BASE","URI_RESOURCE"} = ("https://some-alias/","some-resource");
}
use Test::More;
... tests go here ...
# processBuildSubs-env2.t
BEGIN {
@ENV{"URI_BASE","URI_RESOURCE"} = ("https://another-alias/","another-resource");
}
use Test::More;
... tests go here ...
通过在BEGIN
块中设置%ENV
,在加载任何其他模块之前,可以在编译时将不同的环境变量提供给其他模块。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.