| Akron | d99f8c8 | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | use strict; |
| 3 | use warnings; |
| 4 | use utf8; |
| Akron | 627a80a | 2016-01-29 19:38:18 +0100 | [diff] [blame] | 5 | use Test::More; # skip_all => 'Not yet implemented'; |
| Akron | d99f8c8 | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 6 | use Scalar::Util qw/weaken/; |
| 7 | use Data::Dumper; |
| Akron | b5d3461 | 2016-01-18 19:07:56 +0100 | [diff] [blame] | 8 | use lib 't/index'; |
| 9 | use TestInit; |
| Akron | d99f8c8 | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 10 | |
| Akron | b5d3461 | 2016-01-18 19:07:56 +0100 | [diff] [blame] | 11 | ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens'); |
| Akron | d99f8c8 | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 12 | |
| Akron | 627a80a | 2016-01-29 19:38:18 +0100 | [diff] [blame] | 13 | ok($tokens->add('Mate', 'Dependency'), 'Add Dependency'); |
| Akron | d99f8c8 | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 14 | |
| Akron | 627a80a | 2016-01-29 19:38:18 +0100 | [diff] [blame] | 15 | my $data = $tokens->to_data->{data}->{stream}; |
| Akron | b1f7dcc | 2016-01-21 12:52:43 +0100 | [diff] [blame] | 16 | |
| Akron | 627a80a | 2016-01-29 19:38:18 +0100 | [diff] [blame] | 17 | # Unary relation |
| 18 | is($data->[4]->[3], '<:mate/d:--$<b>32<i>4<s>1<s>1', '< rel 1'); |
| 19 | is($data->[4]->[4], '>:mate/d:--$<b>32<i>4<s>1<s>1', '> rel 1'); |
| 20 | is($data->[4]->[7], 'mate/d:NODE$<b>128<s>1', 'token for rel 1'); |
| 21 | |
| 22 | diag 'Test binary relations'; |
| Akron | d99f8c8 | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 23 | |
| 24 | done_testing; |
| 25 | |
| 26 | __END__ |
| 27 | |