Introduced dependency relations for MATE
Change-Id: Ic78e9711612b9dcb73af21d8e60e02bdf8427113
diff --git a/t/index/mate_dependency.t b/t/index/mate_dependency.t
index 2228a43..9ec7f92 100644
--- a/t/index/mate_dependency.t
+++ b/t/index/mate_dependency.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
use utf8;
-use Test::More skip_all => 'Not yet implemented';
+use Test::More; # skip_all => 'Not yet implemented';
use Scalar::Util qw/weaken/;
use Data::Dumper;
use lib 't/index';
@@ -10,11 +10,16 @@
ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens');
-ok($tokens->add('Mate', 'Dependency'), 'Add Structure');
+ok($tokens->add('Mate', 'Dependency'), 'Add Dependency');
-my $data = $tokens->to_data->{data};
+my $data = $tokens->to_data->{data}->{stream};
-diag Dumper $data;
+# Unary relation
+is($data->[4]->[3], '<:mate/d:--$<b>32<i>4<s>1<s>1', '< rel 1');
+is($data->[4]->[4], '>:mate/d:--$<b>32<i>4<s>1<s>1', '> rel 1');
+is($data->[4]->[7], 'mate/d:NODE$<b>128<s>1', 'token for rel 1');
+
+diag 'Test binary relations';
done_testing;