[p5sagit/p5-mst-13.2.git] / cpan / Parse-CPAN-Meta / t / 19_errors.t

#!/usr/bin/perl

# Testing documents that should fail

BEGIN {
	if( $ENV{PERL_CORE} ) {
		chdir 't';
		@INC = ('../lib', 'lib');
	}
	else {
		unshift @INC, 't/lib/';
	}
}

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use File::Spec::Functions ':ALL';
use Parse::CPAN::Meta::Test;
use Test::More tests => 1;


#####################################################################
# Missing Features

# We don't support raw nodes
yaml_error( <<'END_YAML', 'does not support a feature' );
---
version: !!perl/hash:version 
  original: v2.0.2
  qv: 1
  version: 
    - 2
    - 0
    - 2
END_YAML
Commit	Line	Data
de044c36	1	#!/usr/bin/perl
	2
	3	# Testing documents that should fail
	4
	5	BEGIN {
	6	if( $ENV{PERL_CORE} ) {
	7	chdir 't';
	8	@INC = ('../lib', 'lib');
	9	}
	10	else {
	11	unshift @INC, 't/lib/';
	12	}
	13	}
	14
	15	use strict;
	16	BEGIN {
	17	$\| = 1;
	18	$^W = 1;
	19	}
	20
	21	use File::Spec::Functions ':ALL';
	22	use Parse::CPAN::Meta::Test;
	23	use Test::More tests => 1;
	24
	25
	26
	27
	28
	29	#####################################################################
	30	# Missing Features
	31
	32	# We don't support raw nodes
	33	yaml_error( <<'END_YAML', 'does not support a feature' );
	34	---
	35	version: !!perl/hash:version
	36	original: v2.0.2
	37	qv: 1
	38	version:
	39	- 2
	40	- 0
	41	- 2
	42	END_YAML
	43