| use Mojo::JSON qw(decode_json encode_json to_json); |
| exec "MOJO_CONFIG=../example.conf morbo script/derekovecs-server"; |
| my $client = REST::Client->new(); |
| $client->GET('http://localhost:3000/?word=Grund&json=1'); |
| $res = decode_json($client->responseContent()); |
| is( $res->{list}->[0]->[1]->{word}, "Reaktion", "primary paradigmatic neighbour of Grund" ); |
| is( $res->{collocators}->[0]->{word}, "Hitchcock", "primary syntagmatic neighbour of Grund" ); |
| $client->GET('http://localhost:3000/getClassicCollocators?w=Grund'); |
| #print STDERR dump($res); |
| $res = decode_json($client->responseContent()); |
| is( $res->{collocates}->[0]->{word}, "diesem", "primary collocate of Grund" ); |
| $client->GET('http://localhost:3000/getClassicCollocators?w=Grund'); |
| $res = decode_json($client->responseContent()); |
| is( $res->{collocates}->[0]->{word}, "diesem", "primary collocate of Grund (cached)" ); |
| $client->GET('http://localhost:3000/getCollocationAssociation?w=Grund&c=diesem'); |
| $res = decode_json($client->responseContent()); |
| is($res->{f1}, 29, "collocation association"); |
| for (my $i=0; $i<4; $i++) { |
| print STDERR "killing PID $pid\n"; |