use t::TestYAMLPerl;

skip_all_unless_require('Test::Deep');

plan tests => 3;

use YAML::Perl;

my $data = [ [ 1, 2] ];
push @$data, $data->[0];

my $yaml = Dump($data);

is $yaml, <<'...', 'Refs get Dumped';
---
- &001
  - 1
  - 2
- *001
...

my $data2 = Load($yaml);

is_deep $data2, $data, 'Refs get Loaded';

ok(($data2->[0] == $data2->[1]), 'Data elements are identical');