Question

我目前正在扩展我的测试套件以增加测试覆盖率。我想测试我的控制器和它呈现的html输出，但我发现使用 delete 方法时出现问题。让我在一个例子中解释一下。

我有一条路线：

$r->delete('/backups/:id')
  ->to('backup#delete_backup')
  ->name('backup_delete');

指向backup控制器中的以下函数：

sub delete_backup {
    my $self       = shift;
    my $id         = $self->param('id');


    if ( something ) {
        $self->flash( msg => "Backup id $id deleted!" );
    }
    else{
        $self->flash( msg => "Cannot delete, backup id $id not found!" );   
    }
    $self->redirect_to($self->url_for('backup_index'));
}

处理路径backup_index的方法只显示$msg并显示其他一些不相关的数据。

接下来，我想测试一下这个方法，所以我写了一个测试：

$t_logged_in->ua->max_redirects(3);
my $page = $t_logged_in->app->url_for( 'backup_delete', id => $backup_id );
$t_logged_in->delete_ok($page)
            ->status_isnt( 404, "Checking: 404 $page" )
            ->status_isnt( 500, "Checking: 500 $page" );

测试通过。但现在，我想检查重定向后显示的网页上的文本是否正确。所以我做了以下几点：

$t_logged_in->ua->max_redirects(3);
my $page = $t_logged_in->app->url_for( 'backup_delete', id => $backup_id );
$t_logged_in->delete_ok($page)
            ->status_isnt( 404, "Checking: 404 $page" )
            ->status_isnt( 500, "Checking: 500 $page" )
            ->content_unlike(qr/Cannot delete,/i)
            ->content_like(qr/deleted/i);

测试失败。它失败，因为内容为空，因此匹配完成时：

'' =~ /deleted/i;
'' !~ /Cannot delete,/i;

这两种情况当然都是假的。当然，在浏览器中，重定向工作完美，我在测试中看到了所有设计。我可以将方法更改为POST或GET，但我希望以设计API的方式正确制作路由。

问题：如何设计测试以便重定向后可以匹配内容？

对于那些想深入挖掘的人，我给了Github的链接。

Answer 1

很抱歉没有人回答这个问题。我曾经试图密切关注堆栈溢出但是我很懒:-P。这是一个非常有趣的问题。

标准重定向（301/302）使用与原始请求相同的动词，除非原始请求是POST有趣的是，此行为并非真正意图。重定向应该使用与原始请求方法相同的请求方法，但POST - ＆gt; GET重定向通常是为了使大多数浏览器添加此行为，即使它与原始定义相反。但是有些人真的希望POST保持POST，现在它依赖于实现。事实上，这已经非常糟糕，HTTP添加了响应状态307/308，它总是重定向为相同的http动词（即POST - > POST），甚至认为这已经是旧的官方行为了但那艘船已驶过。这意味着POST - ＆gt; GET，但DELETE - ＆gt; DELETE是301/302的实际行为。

这可以在下面的一个班轮中证明（$_在这些单行中是控制器）：

perl -Mojo -E 'del "/delete" => sub { $_->redirect_to("/") }; any "/" => { inline => q[I got a <%= $c->req->method %>] }; app->start' get -r -v -M DELETE /delete

DELETE /delete HTTP/1.1
Host: 127.0.0.1:62690
Accept-Encoding: gzip
User-Agent: Mojolicious (Perl)
Content-Length: 0

HTTP/1.1 302 Found
Date: Sun, 18 Sep 2016 03:25:58 GMT
Server: Mojolicious (Perl)
Location: /
Content-Length: 0

DELETE / HTTP/1.1
Content-Length: 0
User-Agent: Mojolicious (Perl)
Host: 127.0.0.1:62690
Accept-Encoding: gzip

HTTP/1.1 200 OK
Content-Type: text/html;charset=UTF-8
Content-Length: 5
Date: Sun, 18 Sep 2016 03:25:58 GMT
Server: Mojolicious (Perl)

I got a DELETE

您可以看到，由于我的/路由处理所有方法，我们会得到响应，但请求是DELETE。我在你的应用程序中看到，你重定向到另一个命名路由，其URL也处理DELETE。这是你的混乱的根源，因为你实际上在测试中结束了。您的重定向实际上是DELETE /backups/<<id>> - ＆gt; DELETE /backups，如果我正确地阅读您的代码。

现在，与想要POST为POST的人相反，您想要的是相反的，您希望从DELETE重定向到GET，因为您正试图显示不是原始资源的响应。这是鲜为人知的303响应的已定义行为，其中任何请求方法都被重定向到GET。事实上，这就是早期浏览器应该坚持的而不是打破302。

在以下示例中，我明确地将响应代码修改为303。

$ perl -Mojo -E 'del "/delete" => sub { $_->res->code(303); $_->redirect_to("/") }; any "/" => { inline => q[I got a <%= $c->req->method %>] }; app->start' get -r -v -M DELETE /delete
DELETE /delete HTTP/1.1
User-Agent: Mojolicious (Perl)
Host: 127.0.0.1:62716
Accept-Encoding: gzip
Content-Length: 0

HTTP/1.1 303 See Other
Location: /
Content-Length: 0
Server: Mojolicious (Perl)
Date: Sun, 18 Sep 2016 03:27:19 GMT

DELETE / HTTP/1.1
User-Agent: Mojolicious (Perl)
Accept-Encoding: gzip
Content-Length: 0
Host: 127.0.0.1:62716

HTTP/1.1 200 OK
Content-Type: text/html;charset=UTF-8
Server: Mojolicious (Perl)
Content-Length: 5
Date: Sun, 18 Sep 2016 03:27:19 GMT

I got a DELETE

但是哎呀，那还是DELETE！那是因为Mojo :: UserAgent中有一个bug，所以它没有正确处理303s。我建议您仍然对代码进行更改，因为浏览器似乎正确处理303s。但是，由于Mojo :: UserAgent支持Test :: Mojo，因此您的测试无法测试该行为。一旦fixed，您将看到它正常工作，就像我的示例在我的本地分支中所做的那样：

$ perl -Ilib -Mojo -E 'del "/delete" => sub { $_->res->code(303); $_->redirect_to("/") }; any "/" => { inline => q[I got a <%= $c->req->method %>] }; app->start' get -r -v -M DELETE /delete
DELETE /delete HTTP/1.1                                                                  
Content-Length: 0                                                                        
User-Agent: Mojolicious (Perl)                                                           
Host: 127.0.0.1:64924                                                                    
Accept-Encoding: gzip                                                                    

HTTP/1.1 303 See Other                                                                   
Date: Sun, 18 Sep 2016 04:59:37 GMT                                                      
Location: /                                                                              
Server: Mojolicious (Perl)                                                               
Content-Length: 0                                                                        

GET / HTTP/1.1                                                                           
Content-Length: 0                                                                        
User-Agent: Mojolicious (Perl)                                                           
Host: 127.0.0.1:64924                                                                    
Accept-Encoding: gzip                                                                    

HTTP/1.1 200 OK                                                                          
Date: Sun, 18 Sep 2016 04:59:37 GMT                                                      
Content-Type: text/html;charset=UTF-8                                                    
Server: Mojolicious (Perl)                                                               
Content-Length: 12                                                                       

I got a GET

要了解有关重定向响应类型的详情，请参阅https://en.wikipedia.org/wiki/List_of_HTTP_status_codes#3xx_Redirection

从DELETE路由重定向后，无法测试渲染的输出 - Mojolicious

1 个答案: