| #!/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__ | |