| use Scalar::Util qw/weaken/; |
| ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens'); |
| ok($tokens->add('Base', 'Sentences'), 'Add Structure'); |
| my $data = $tokens->to_data->{data}; |
| like($data->{foundries}, qr!base/sentences!, 'data'); |
| is($data->{stream}->[0]->[0], '-:base/sentences$<i>1', 'Number of paragraphs'); |
| is($data->{stream}->[0]->[1], '-:tokens$<i>18', 'Number of tokens'); |
| is($data->{stream}->[0]->[2], '<>:base/s:t$<b>64<i>0<i>129<i>17<b>0', 'Text'); |
| is($data->{stream}->[0]->[3], '<>:base/s:s$<b>64<i>0<i>129<i>17<b>2', 'Sentence'); |
| is($data->{stream}->[0]->[4], '_0$<i>0<i>3', 'Position'); |