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