| Akron | 0b5cda2 | 2015-12-11 18:49:50 +0100 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | use strict; |
| 3 | use warnings; |
| 4 | use utf8; |
| 5 | use Test::More; |
| 6 | use Scalar::Util qw/weaken/; |
| 7 | use Data::Dumper; |
| Akron | 151676d | 2016-03-14 20:12:14 +0100 | [diff] [blame] | 8 | use lib 't/annotation'; |
| Akron | 11ef51d | 2016-01-18 19:07:56 +0100 | [diff] [blame] | 9 | use TestInit; |
| Akron | 0b5cda2 | 2015-12-11 18:49:50 +0100 | [diff] [blame] | 10 | |
| Akron | 11ef51d | 2016-01-18 19:07:56 +0100 | [diff] [blame] | 11 | ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens'); |
| Akron | 0b5cda2 | 2015-12-11 18:49:50 +0100 | [diff] [blame] | 12 | |
| 13 | ok($tokens->add('CoreNLP', 'Constituency'), 'Add Structure'); |
| 14 | |
| 15 | my $data = $tokens->to_data->{data}; |
| 16 | |
| 17 | like($data->{foundries}, qr!corenlp/constituency!, 'data'); |
| 18 | like($data->{layerInfos}, qr!corenlp/c=spans!, 'data'); |
| 19 | |
| 20 | is($data->{stream}->[0]->[1], '<>:corenlp/c:CNP$<b>64<i>0<i>16<i>2<b>2', 'Noun phrase'); |
| 21 | is($data->{stream}->[0]->[2], '<>:corenlp/c:ROOT$<b>64<i>0<i>42<i>6<b>0', 'Noun phrase'); |
| 22 | is($data->{stream}->[0]->[3], '<>:corenlp/c:NP$<b>64<i>0<i>42<i>6<b>1', 'Noun phrase'); |
| 23 | |
| 24 | done_testing; |
| 25 | |
| 26 | __END__ |
| 27 | |