| Akron | 126e33c | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | use strict; | ||||
| 3 | use warnings; | ||||
| 4 | use utf8; | ||||
| Akron | 194be54 | 2016-01-21 12:52:43 +0100 | [diff] [blame] | 5 | use Test::More; # skip_all => 'Not yet implemented'; |
| Akron | 126e33c | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 6 | use Scalar::Util qw/weaken/; |
| 7 | use Data::Dumper; | ||||
| Akron | 11ef51d | 2016-01-18 19:07:56 +0100 | [diff] [blame] | 8 | use lib 't/index'; |
| 9 | use TestInit; | ||||
| Akron | 126e33c | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 10 | |
| Akron | 11ef51d | 2016-01-18 19:07:56 +0100 | [diff] [blame] | 11 | ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens'); |
| Akron | 126e33c | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 12 | |
| 13 | ok($tokens->add('Mate', 'Dependency'), 'Add Structure'); | ||||
| 14 | |||||
| Akron | 194be54 | 2016-01-21 12:52:43 +0100 | [diff] [blame] | 15 | my $data = $tokens->to_data->{data}; |
| 16 | |||||
| 17 | diag Dumper $data; | ||||
| Akron | 126e33c | 2016-01-07 21:08:45 +0100 | [diff] [blame] | 18 | |
| 19 | done_testing; | ||||
| 20 | |||||
| 21 | __END__ | ||||
| 22 | |||||