Hello!
Ise use Dancer 1.3132 with perl 5.14.2.
$ cat bin/app.pl
#!/usr/bin/env perl
use Dancer;
use Trassa_REST;
use Trassa_web;
dance;
$ cat lib/Trassa_REST.pm
package Trassa_REST;
use strict;
use warnings;
use 5.010001;
use Dancer q/:syntax/;
........
get qr{/rest
(/[\w.]+)? # resource, e.g. node
(/[\w.]+)? # command, e.g. stat, or resource id, e.g. 1
(/[\w.]+)? # command for resource id, e.g. page
(/[\w.]+)? # page with data, e.g. 1
/?
}sx => sub {
.........
}
1;
$ cat t/002_rest_node_route.t
use strict;
use warnings;
use Test::More q/no_plan/;
use Trassa_REST;
use Dancer::Test;
my @url = ('/rest/node',
'/rest/node/help',
'/rest/node/status',
'/rest/node/page',
'/rest/node/page/5',
'/rest/node/1/status',
'/rest/node/1/page',
'/rest/node/1/page/5');
foreach my $i (@url) {
route_exists [GET => $i], "a route handler defined for $i";
response_status_is [GET => $i], 200, "response status is 200
for $i";
response_headers_are_deeply [GET => $i], ['Content-Type' =>
'text/xml'];
}
After starting application I try test it:
$ bin/app.pl
[4366] core @0.000022> loading Dancer::Handler::Standalone handler in
/usr/share/perl5/Dancer/Handler.pm l. 48
[4366] core @0.000608> loading handler 'Dancer::Handler::Standalone' in
/usr/share/perl5/Dancer.pm l. 493
>> Dancer 1.3132 server 4366 listening on http://0.0.0.0:3000
>> Dancer::Plugin::Database::Core (0.08)
>> Dancer::Plugin::Database::Core::Handle (0.02)
>> Dancer::Plugin::Database (2.10)
== Entering the development dance floor ...
$ prove t/
t/001_base.t ............. 1/1
# Failed test 'use Trassa_REST;'
# at t/001_base.t line 5.
# Tried to use 'Trassa_REST'.
# Error: Can't locate Trassa_REST.pm in @INC (@INC contains:
/etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2
/usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14
/usr/local/lib/site_perl .) at (eval 4) line 2.
# BEGIN failed--compilation aborted at (eval 4) line 2.
# Looks like you failed 1 test of 1.
t/001_base.t ............. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/1 subtests
t/002_rest_node_route.t .. Can't locate Trassa_REST.pm in @INC (@INC
contains: /etc/perl /usr/local/lib/perl/5.14.2
/usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at
t/002_rest_node_route.t line 5.
BEGIN failed--compilation aborted at t/002_rest_node_route.t line 5.
t/002_rest_node_route.t .. Dubious, test returned 2 (wstat 512, 0x200)
No subtests run
Test Summary Report
-------------------
t/001_base.t (Wstat: 256 Tests: 1 Failed: 1)
Failed test: 1
Non-zero exit status: 1
t/002_rest_node_route.t (Wstat: 512 Tests: 0 Failed: 0)
Non-zero exit status: 2
Parse errors: No plan found in TAP output
Files=2, Tests=1, 0 wallclock secs ( 0.02 usr 0.02 sys + 0.03 cusr
0.01 csys = 0.08 CPU)
Result: FAIL
$ prove -I lib/ t/
t/001_base.t ............. ok
t/002_rest_node_route.t .. 2/?
# Failed test 'headers are as expected for GET /rest/node'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Failed test 'headers are as expected for GET /rest/node/help'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Failed test 'headers are as expected for GET /rest/node/status'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Failed test 'headers are as expected for GET /rest/node/page'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Failed test 'headers are as expected for GET /rest/node/page/5'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Failed test 'headers are as expected for GET /rest/node/1/status'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Failed test 'headers are as expected for GET /rest/node/1/page'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Failed test 'headers are as expected for GET /rest/node/1/page/5'
# at t/002_rest_node_route.t line 20.
# Structures begin differing at:
# $got->[2] = 'Server'
# $expected->[2] = Does not exist
# Tests were run but no plan was declared and done_testing() was not seen.
t/002_rest_node_route.t .. Failed 8/24 subtests
Test Summary Report
-------------------
t/002_rest_node_route.t (Wstat: 0 Tests: 24 Failed: 8)
Failed tests: 3, 6, 9, 12, 15, 18, 21, 24
Parse errors: No plan found in TAP output
Files=2, Tests=25, 1 wallclock secs ( 0.04 usr 0.01 sys + 0.46 cusr
0.02 csys = 0.53 CPU)
Result: FAIL
Why test not found server?
Thank you and excuse me for my bad english.
--
Best regards,
Brilliantov Kirill Vladimirovich
_______________________________________________
dancer-users mailing list
[email protected]
http://lists.preshweb.co.uk/mailman/listinfo/dancer-users
