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 => 1;
15use Parse::CPAN::Meta ();
16
17my $one = <<'END_YAML';
18---
19- foo: - bar
20END_YAML
21
22my $one_scalar_tiny = eval { Parse::CPAN::Meta->load_yaml_string( $one ) };
23like( $@, '/illegal characters/', "error causes exception");
24
25