如何制作 Fake HTTP 响应对象以在 Perl 中进行测试

发布于 2024-11-18 21:51:19 字数 341 浏览 3 评论 0原文

我编写了一个 Perl 脚本，将数据输入到 Web 服务中。

我对 perl 脚本进行了一些系统测试，检查我是否可以与 web 服务交互，这些测试工作得很好，但我不想在进行小更改时运行系统测试 - 我想运行单元测试：

到目前为止我编写了导入器的一个子类，它在实际调用有问题的 URL 之前简单地拦截 Web 请求，并测试所有输入的类型和形式是否正确，并且在所有情况下都可以正常工作，除非 perl 脚本需要阅读响应以获取说明，然后继续下一步。

我的问题是我无法伪造响应对象。

我尝试过使用 HTTP::Response->new，但它一直抱怨错误的标头参数

如何最好地伪造响应对象？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

雄赳赳气昂昂 2024-11-25 21:51:19

无需模拟 HTTP::Response 对象。它们很容易构建——至少和模拟一样容易，并且不太可能在测试中引入错误。您需要阅读文档而不仅仅是猜测用法。

当然，您可以在代码中构造它们，但我过去不止一次所做的只是保存 curl 的输出或针对应用程序发出的字符串化请求并将其解析回来成一个物体。

尝试玩弄这些——

use warnings;
use strict;
use HTTP::Response;

my $response = HTTP::Response->new(204);
print $response->as_string;

my $other = HTTP::Response->parse(join "", <DATA>);
print $other->decoded_content, $/;

__DATA__
HTTP/1.1 200 OK
Cache-Control: public, max-age=53
Content-Type: text/html; charset=utf-8
Expires: Wed, 06 Jul 2011 19:13:54 GMT
Last-Modified: Wed, 06 Jul 2011 19:12:54 GMT
Vary: *
Date: Wed, 06 Jul 2011 19:12:59 GMT
Content-Length: 198121

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
  <head>
    <title>Stack Overflow</title>
  </head>
<body class="home-page">
  <blockquote>O HAI!</blockquote>
</body>
</html>

There is no need to mock the HTTP::Response object. They are easy to construct—at least as easy as mocking would be and less likely to introduce bugs into the tests. You need to read the documentation and not just guess at usage.

You can construct them in code, of course, but what I've done in the past more than once is just save the output of curl or a stringified request that was made against an application and parse it back into an object.

Try playing around with these–

use warnings;
use strict;
use HTTP::Response;

my $response = HTTP::Response->new(204);
print $response->as_string;

my $other = HTTP::Response->parse(join "", <DATA>);
print $other->decoded_content, $/;

__DATA__
HTTP/1.1 200 OK
Cache-Control: public, max-age=53
Content-Type: text/html; charset=utf-8
Expires: Wed, 06 Jul 2011 19:13:54 GMT
Last-Modified: Wed, 06 Jul 2011 19:12:54 GMT
Vary: *
Date: Wed, 06 Jul 2011 19:12:59 GMT
Content-Length: 198121

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
  <head>
    <title>Stack Overflow</title>
  </head>
<body class="home-page">
  <blockquote>O HAI!</blockquote>
</body>
</html>

回复收藏 0 原文

呆 2024-11-25 21:51:19

您可能正在寻找模拟对象 - 在本例中是模拟 LWP 对象？

请参阅 CPAN 上的 Test::Mock::LWP。

其文档显示的用法如下：

use Test::Mock::LWP;

# Setup fake response content and code
$Mock_response->mock( content => sub { 'foo' } );
$Mock_resp->mock( code => sub { 201 } );

# Validate args passed to request constructor
is_deeply $Mock_request->new_args, \@expected_args;

# Validate request headers
is_deeply [ $Mock_req->next_call ],
          [ 'header', [ 'Accept', 'text/plain' ] ];

# Special User Agent Behaviour
$Mock_ua->mock( request => sub { die 'foo' } );

如果您在 CPAN 中搜索 Test:: Mock，有相当多的模块用于模拟/伪造对象以进行测试。

You may be looking for mock objects - in this case a mock LWP object?

See Test::Mock::LWP on CPAN.

Its documentation shows usage like this:

use Test::Mock::LWP;

# Setup fake response content and code
$Mock_response->mock( content => sub { 'foo' } );
$Mock_resp->mock( code => sub { 201 } );

# Validate args passed to request constructor
is_deeply $Mock_request->new_args, \@expected_args;

# Validate request headers
is_deeply [ $Mock_req->next_call ],
          [ 'header', [ 'Accept', 'text/plain' ] ];

# Special User Agent Behaviour
$Mock_ua->mock( request => sub { die 'foo' } );

If you search CPAN for Test::Mock, there are quite a few modules for mocking/faking objects for testing.

回复收藏 0 原文

~没有更多了~