use strict;
use warnings;
use Test::More;
use Test::Deep;
use YAML::Tiny ();
use YAML::XS ();


my $yaml_doc =<<YAML_DOC;
---
name: file1
item: x
---
name: file2
item: y
YAML_DOC


note "YAML::XS::VERSION   = $YAML::XS::VERSION";
note "YAML::Tiny::VERSION = $YAML::Tiny::VERSION";


my $xs_list   = [ YAML::XS::Load  ( $yaml_doc ) ];
my $tiny_list = [ YAML::Tiny::Load( $yaml_doc ) ];

is( @{ $xs_list   },   2,  "YAML::XS   - two documents in a single file" );
is( @{ $tiny_list },   2,  "YAML::Tiny - two documents in a single file" );

cmp_deeply( $xs_list,
            $tiny_list,
            "multi documents are identical"
	  );

my $scalar1_xs   = YAML::XS::Load( $yaml_doc );
my ($scalar2_xs) = YAML::XS::Load( $yaml_doc );

my $scalar1_ty   = YAML::Tiny::Load( $yaml_doc );
my ($scalar2_ty) = YAML::Tiny::Load( $yaml_doc );

cmp_deeply( $scalar1_xs, $scalar1_ty, "same scalar/list behaviour");  #-- Obvious!
cmp_deeply( $scalar2_xs, $scalar2_ty, "same scalar/list behaviour");  #   We test Perl syntax here.


note 'Here is your problem: ( ... )';
note 'my $scalar1_xs   ... last from list (like comma operator):';
note explain $scalar1_xs;
note 'my ($scalar2_xs) ... with pars - first from list:';
note explain $scalar2_xs;

done_testing;