Real Life Example
file: code/validad/login.t 17: subtest 'successful_login' => sub { 18: my $req = $t->request({ 19: params=> { 20: email=>$user->email, 21: password=>'12345', 22: } 23: }); 24: my $res = $t->call_plack_res($req, $controller, 'login'); 25: 26: is($req->session->{user_id},$user->id,'user id in session'); 27: is($res->status,302,'status: redirect'); 28: is($res->location,'/','redirect to /'); 29: };