view release on metacpan or  search on metacpan

t/features/step_definitions/basic.pl~  view on Meta::CPAN

    my $wrong_password = $password . $password;
    my $request        = {
        username => C->stash->{scenario}->{username},
        password => $wrong_password
    };
    $t->post_ok( $route => $accept_header => json => $request );
  };

Then qr{the client gets a valid response} => sub {
    my $data = get_result;
    croak 'JSON decoded, token is missing' if !exists $data->{token};
    my $token    = $data->{token};
    my $username = $t->app->service->{authentication}->validate_token($token);

    is $username, C->stash->{scenario}->{username};
};