1*5759b3d2Safresh1#!/usr/bin/perl 2*5759b3d2Safresh1 3*5759b3d2Safresh1delete $ENV{PERL_YAML_BACKEND}; 4*5759b3d2Safresh1delete $ENV{PERL_JSON_BACKEND}; 5*5759b3d2Safresh1 6*5759b3d2Safresh1# Testing of basic document structures 7*5759b3d2Safresh1 8*5759b3d2Safresh1use strict; 9*5759b3d2Safresh1BEGIN { 10*5759b3d2Safresh1 $| = 1; 11*5759b3d2Safresh1 $^W = 1; 12*5759b3d2Safresh1} 13*5759b3d2Safresh1 14*5759b3d2Safresh1use Test::More tests => 2; 15*5759b3d2Safresh1use Parse::CPAN::Meta (); 16*5759b3d2Safresh1 17*5759b3d2Safresh1my $one = <<'END_YAML'; 18*5759b3d2Safresh1--- 19*5759b3d2Safresh1- foo 20*5759b3d2Safresh1END_YAML 21*5759b3d2Safresh1 22*5759b3d2Safresh1my $two = <<'END_YAML'; 23*5759b3d2Safresh1--- 24*5759b3d2Safresh1- foo 25*5759b3d2Safresh1--- 26*5759b3d2Safresh1- bar 27*5759b3d2Safresh1END_YAML 28*5759b3d2Safresh1 29*5759b3d2Safresh1my $one_scalar_tiny = Parse::CPAN::Meta::Load( $one ); 30*5759b3d2Safresh1my $two_scalar_tiny = Parse::CPAN::Meta::Load( $two ); 31*5759b3d2Safresh1 32*5759b3d2Safresh1is_deeply( $one_scalar_tiny, [ 'foo' ], 'one: Parsed correctly' ); 33*5759b3d2Safresh1is_deeply( $two_scalar_tiny, [ 'bar' ], 'two: Parsed correctly' ); 34