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

概述我已阅读 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' ); 我已阅读 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相同,这将非常方便. VoteUP,如果这也适合您的功能请求.

作为解决此问题的方法,我尝试使用url_for但没有成功：

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

如何从测试脚本中获取其名称的路径路径？

解决方法 我使用 Test::Mojo::Role作为Sebastian RIEdel的建议：

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,$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,$desc) );}#myapp.tuse Test::Mojo::WithRoles 'MyRole';our $t =  Test::Mojo::WithRoles->new( 'MyApp' );$t->get_ok( 'List_users' )->status_is( 302 )->location_is( 'auth_login' );

UPD

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

总结

以上是内存溢出为你收集整理的perl – 如何在测试mojolicious应用程序时使用路由名称？全部内容，希望文章能够帮你解决perl – 如何在测试mojolicious应用程序时使用路由名称？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。