blob: 2228a436200d539a2d1904abe9d6d13e2ae63408 [file] [log] [blame]
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More skip_all => 'Not yet implemented';
use Scalar::Util qw/weaken/;
use Data::Dumper;
use lib 't/index';
use TestInit;
ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens');
ok($tokens->add('Mate', 'Dependency'), 'Add Structure');
my $data = $tokens->to_data->{data};
diag Dumper $data;
done_testing;
__END__