如何在测试 mojolicious 应用程序时使用路由名称？答案

【问题标题】：How to use route name while testing mojolicious application?如何在测试 mojolicious 应用程序时使用路由名称？
【发布时间】：2017-04-18 08:57:13
【问题描述】：

我已阅读Test::Mojo，但没有找到在应用程序测试时如何使用路由名称：

$t->get_ok( 'list_users' )->status_is( 302 )->location_is( 'auth_login' );

list_users 和 auth_login 分别是：

$r->get( '/login' )->to( 'auth#login' )->name( 'auth_login' );
$r->get( '/users' )->to( 'user#index' )->name( 'list_users' );

在我看来，如果*_ok 将给定字符串计数与redirect_to 相同，那将非常方便。投票如果这看起来也适合您的功能请求。

在解决这个问题时，我尝试使用url_for，但没有成功：

$t->url_for( 'list_users' );
#Can't locate object method "url_for" via package "Test::Mojo"

如何从测试脚本中通过名称获取路由路径？

【问题讨论】：

标签： perl mojolicious

【解决方案1】：

我们可以build_controller拨打url_for:

$t->app->build_controller->url_for( 'list_users' )

【讨论】：

【解决方案2】：

我按照 Sebastian Riedel 的建议使用 Test::Mojo::Role：

package Test::Mojo::Role::MyRole;

use Role::Tiny;
use Test::More;

sub _build_ok {
    my( $self, $method, $url ) =  ( shift, shift, shift );

    if( my $route =  $t->app->routes->lookup( 'list_users' ) ) {
        $url =  $route->render;
    }

    local $Test::Builder::Level = $Test::Builder::Level + 1;
    return $self->_request_ok( $self->ua->build_tx( $method, $url, @_ ), $url );
}



sub location_is {
  my( $t, $url, $desc ) =  @_;

  if( my $route =  $t->app->routes->lookup( 'list_users' ) ) {
      $url =  $route->render;
  }
  $desc //=  "Location: $url";

  local $Test::Builder::Level =  $Test::Builder::Level + 1;
  return $t->success( is($t->tx->res->headers->location, $url, $desc) );
}


#myapp.t

use Test::Mojo::WithRoles 'MyRole';
our $t =  Test::Mojo::WithRoles->new( 'MyApp' );

$t->get_ok( 'list_users' )->status_is( 302 )->location_is( 'auth_login' );

UPD

最好做反向：尝试从位置获取路线名称并将其与预期结果进行比较

【讨论】：

你不应该重载私有方法，它们可以并且可能在没有通知的情况下被更改，即使是在小版本中。
@JoelBerger;是的，但在这种情况下，我应该重载get_ok、post_ok 等。是否有不重载私有方法的解决方法？
我可能会创建一个名为request_ok 或route_ok 的新方法，并将其作为第一个参数。否则，是的，您最好显式重载您正在更改的所有方法。
另外，构建一个仅调用url_for 的控制器可以通过直接与应用的路由器实例对话来代替
@JoelBerger 谢谢，我发现：$t->app->routes->lookup( $url )->render