14、Web 与单元测试全解析：从 Apache 到 Test::Class

python9snake

于 2025-11-19 13:36:35 发布

阅读量16

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl测试艺术入门文章标签： Apache::Test Test::Class Perl单元测试

本文链接：https://blog.youkuaiyun.com/python9snake/article/details/155058719

Perl测试艺术入门专栏收录该内容

15 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Web 与单元测试全解析：从 Apache 到 Test::Class

1. Apache::Test 搭配其他测试模块

在使用 Apache::Test 时，是可以搭配其他测试模块的。只需在使用 Apache::Test 时提供 -withtestmore 参数，这样 Test::More 的所有函数就能立即使用。示例代码如下：

#!perl
use strict;
use warnings;
use Apache::Test qw(-withtestmore);
use Apache::TestUtil;
use Apache::TestRequest qw( GET_BODY );
use Imager;
plan( tests => 1, need_module('mod_perl') );
my $content = GET_BODY('/images/panorama.jpg');
my $img     = Imager->new( );
$img->open( data => $content, type => 'jpeg' )
    or die $img->errstr( );
my $max     = 150;
diag( 'assuming constraint is $max pixels' );
diag( 'width: '  . $img->getwidth( )    );
diag( 'height: ' . $img->getheight( )   );
ok( ( $img->getwidth( ) == $max