8 my $base = 'http://localhost';
14 use Test::WWW::Mechanize::Catalyst 'RestTest';
15 use HTTP::Request::Common;
18 my $mech = Test::WWW::Mechanize::Catalyst->new;
19 ok(my $schema = DBICTest->init_schema(), 'got schema');
21 my $track_list_url = "$base/api/rpc/track_exposed/list";
22 my $base_rs = $schema->resultset('Track')->search({}, { select => [qw/me.title me.position/], order_by => 'position' });
26 my $req = GET( $track_list_url, {
28 }, 'Accept' => 'text/x-json' );
30 cmp_ok( $mech->status, '==', 200, 'open attempt okay' );
32 my @expected_response = map { { $_->get_columns } } $base_rs->all;
33 my $response = JSON::Any->Load( $mech->content);
34 is_deeply( $response, { list => \@expected_response, success => 'true' }, 'correct message returned' );
38 my $uri = URI->new( $track_list_url );
39 $uri->query_form({ 'search.position' => 1 });
40 my $req = GET( $uri, {
42 }, 'Accept' => 'text/x-json' );
44 cmp_ok( $mech->status, '==', 200, 'search on position okay' );
45 my @expected_response = map { { $_->get_columns } } $base_rs->search({ position => 1 })->all;
46 my $response = JSON::Any->Load( $mech->content);
47 is_deeply( $response, { list => \@expected_response, success => 'true' }, 'correct message returned' );
51 my $uri = URI->new( $track_list_url );
52 $uri->query_form({ 'search.title' => 'Stripy' });
53 my $req = GET( $uri, {
55 }, 'Accept' => 'text/x-json' );
57 cmp_ok( $mech->status, '==', 400, 'search on title not okay' );
59 my @expected_response = map { { $_->get_columns } } $base_rs->search({ position => 1 })->all;
60 my $response = JSON::Any->Load( $mech->content);
61 is($response->{success}, 'false', 'correct message returned');
62 like($response->{messages}->[0], qr/is not an allowed search term/, 'correct message returned');
66 my $uri = URI->new( $track_list_url );
67 $uri->query_form({ 'search.title' => 'Stripy' });
68 my $req = GET( $uri, {
70 }, 'Accept' => 'text/x-json' );
72 cmp_ok( $mech->status, '==', 400, 'search on title not okay' );
74 my $expected_response = map { { $_->get_columns } } $base_rs->search({ position => 1 })->all;
75 my $response = JSON::Any->Load( $mech->content);
76 is($response->{success}, 'false', 'correct message returned');
77 like($response->{messages}->[0], qr/is not an allowed search term/, 'correct message returned');
81 my $uri = URI->new( $track_list_url );
82 $uri->query_form({ 'search.cd.artist' => '1' });
83 my $req = GET( $uri, {
85 }, 'Accept' => 'text/x-json' );
87 cmp_ok( $mech->status, '==', 400, 'search on various cd fields not okay' );
88 my $response = JSON::Any->Load( $mech->content);
89 is($response->{success}, 'false', 'correct message returned');
90 like($response->{messages}->[0], qr/is not an allowed search term/, 'correct message returned');
94 my $uri = URI->new( $track_list_url );
95 $uri->query_form({ 'search.cd.title' => 'Spoonful of bees', 'search.cd.year' => '1999' });
96 my $req = GET( $uri, {
98 }, 'Accept' => 'text/x-json' );
100 cmp_ok( $mech->status, '==', 200, 'search on various cd fields okay' );
101 my @expected_response = map { { $_->get_columns } } $base_rs->search({ 'cd.year' => '1999', 'cd.title' => 'Spoonful of bees' }, { join => 'cd' })->all;
102 my $response = JSON::Any->Load( $mech->content);
103 is_deeply($response, { list => \@expected_response, success => 'true' }, 'correct message returned' );
107 my $uri = URI->new( $track_list_url );
108 $uri->query_form({ 'search.cd.title' => 'Spoonful of bees', 'search.cd.pretend' => '1999' });
109 my $req = GET( $uri, {
111 }, 'Accept' => 'text/x-json' );
112 $mech->request($req);
113 cmp_ok( $mech->status, '==', 200, 'search with custom col okay' );
114 my @expected_response = map { { $_->get_columns } } $base_rs->search({ 'cd.year' => '1999', 'cd.title' => 'Spoonful of bees' }, { join => 'cd' })->all;
115 my $response = JSON::Any->Load( $mech->content);
116 is_deeply($response, { list => \@expected_response, success => 'true' }, 'correct message returned' );
120 my $uri = URI->new( $track_list_url );
121 $uri->query_form({ 'search.cd.artist.name' => 'Random Boy Band' });
122 my $req = GET( $uri, {
124 }, 'Accept' => 'text/x-json' );
125 $mech->request($req);
126 cmp_ok( $mech->status, '==', 200, 'search on artist field okay due to wildcard' );
127 my @expected_response = map { { $_->get_columns } } $base_rs->search({ 'artist.name' => 'Random Boy Band' }, { join => { cd => 'artist' } })->all;
128 my $response = JSON::Any->Load( $mech->content);
129 is_deeply($response, { list => \@expected_response, success => 'true' }, 'correct message returned' );