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