diff options
Diffstat (limited to 'cpan/Parse-CPAN-Meta/t')
29 files changed, 220 insertions, 2257 deletions
diff --git a/cpan/Parse-CPAN-Meta/t/01_compile.t b/cpan/Parse-CPAN-Meta/t/01_compile.t index 7e64db7917..6bfc2c9628 100644 --- a/cpan/Parse-CPAN-Meta/t/01_compile.t +++ b/cpan/Parse-CPAN-Meta/t/01_compile.t @@ -1,7 +1,5 @@ #!/usr/bin/perl -# Load testing for YAML::Tiny - BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; diff --git a/cpan/Parse-CPAN-Meta/t/02_api.t b/cpan/Parse-CPAN-Meta/t/02_api.t new file mode 100644 index 0000000000..f81239426d --- /dev/null +++ b/cpan/Parse-CPAN-Meta/t/02_api.t @@ -0,0 +1,136 @@ +#!/usr/bin/perl + +# Testing of a known-bad file from an editor + +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; +use Parse::CPAN::Meta::Test; +# use Test::More skip_all => 'Temporarily ignoring failing test'; +use Test::More 'no_plan'; + +##################################################################### +# Testing that Perl::Smith config files work + +my $want = { + "abstract" => "a set of version requirements for a CPAN dist", + "author" => [ 'Ricardo Signes <rjbs@cpan.org>' ], + "build_requires" => { + "Test::More" => "0.88" + }, + "configure_requires" => { + "ExtUtils::MakeMaker" => "6.31" + }, + "generated_by" => "Dist::Zilla version 2.100991", + "license" => "perl", + "meta-spec" => { + "url" => "http://module-build.sourceforge.net/META-spec-v1.4.html", + "version" => 1.4 + }, + "name" => "Version-Requirements", + "recommends" => {}, + "requires" => { + "Carp" => "0", + "Scalar::Util" => "0", + "version" => "0.77" + }, + "resources" => { + "repository" => "git://git.codesimply.com/Version-Requirements.git" + }, + "version" => "0.101010", +}; + +my $meta_json = catfile( test_data_directory(), 'VR-META.json' ); +my $meta_yaml = catfile( test_data_directory(), 'VR-META.yml' ); + +### YAML tests +{ + local $ENV{PERL_YAML_BACKEND}; # ensure we get CPAN::META::YAML + + is(Parse::CPAN::Meta->yaml_backend(), 'CPAN::Meta::YAML', 'yaml_backend()'); + my $from_yaml = Parse::CPAN::Meta->load_file( $meta_yaml ); + is_deeply($from_yaml, $want, "load from YAML file results in expected data"); +} + +{ + local $ENV{PERL_YAML_BACKEND}; # ensure we get CPAN::META::YAML + + my $yaml = load_ok( 'VR-META.yml', $meta_yaml, 100); + my $from_yaml = Parse::CPAN::Meta->load_yaml_string( $yaml ); + is_deeply($from_yaml, $want, "load from YAML str results in expected data"); +} + +SKIP: { + skip "YAML module not installed", 2 + unless eval "require YAML; 1"; + local $ENV{PERL_YAML_BACKEND} = 'YAML'; + + is(Parse::CPAN::Meta->yaml_backend(), 'YAML', 'yaml_backend()'); + my $yaml = load_ok( 'VR-META.yml', $meta_yaml, 100); + my $from_yaml = Parse::CPAN::Meta->load_yaml_string( $yaml ); + is_deeply($from_yaml, $want, "load_yaml_string using PERL_YAML_BACKEND"); +} + +### JSON tests +{ + # JSON tests with JSON::PP + local $ENV{PERL_JSON_BACKEND}; # ensure we get JSON::PP + + is(Parse::CPAN::Meta->json_backend(), 'JSON::PP', 'json_backend()'); + my $from_json = Parse::CPAN::Meta->load_file( $meta_json ); + is_deeply($from_json, $want, "load from JSON file results in expected data"); +} + +{ + # JSON tests with JSON::PP + local $ENV{PERL_JSON_BACKEND}; # ensure we get JSON::PP + + my $json = load_ok( 'VR-META.json', $meta_json, 100); + my $from_json = Parse::CPAN::Meta->load_json_string( $json ); + is_deeply($from_json, $want, "load from JSON str results in expected data"); +} + +{ + # JSON tests with JSON::PP, take 2 + local $ENV{PERL_JSON_BACKEND} = 0; # request JSON::PP + + my $json = load_ok( 'VR-META.json', $meta_json, 100); + my $from_json = Parse::CPAN::Meta->load_json_string( $json ); + is_deeply($from_json, $want, "load_json_string with PERL_JSON_BACKEND = 0"); +} + +{ + # JSON tests with JSON::PP, take 3 + local $ENV{PERL_JSON_BACKEND} = 'JSON::PP'; # request JSON::PP + + my $json = load_ok( 'VR-META.json', $meta_json, 100); + my $from_json = Parse::CPAN::Meta->load_json_string( $json ); + is_deeply($from_json, $want, "load_json_string with PERL_JSON_BACKEND = 'JSON::PP'"); +} + +SKIP: { + skip "JSON module version 2.5 not installed", 2 + unless eval "require JSON; JSON->VERSION(2.5); 1"; + local $ENV{PERL_JSON_BACKEND} = 1; + + is(Parse::CPAN::Meta->json_backend(), 'JSON', 'json_backend()'); + my $json = load_ok( 'VR-META.json', $meta_json, 100); + my $from_json = Parse::CPAN::Meta->load_json_string( $json ); + is_deeply($from_json, $want, "load_json_string with PERL_JSON_BACKEND = 1"); +} + diff --git a/cpan/Parse-CPAN-Meta/t/02_basic.t b/cpan/Parse-CPAN-Meta/t/02_basic.t deleted file mode 100644 index f6a91c1707..0000000000 --- a/cpan/Parse-CPAN-Meta/t/02_basic.t +++ /dev/null @@ -1,263 +0,0 @@ -#!/usr/bin/perl - -# Testing of basic document structures - -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(30); - - - - - -##################################################################### -# Sample Testing - -# Test a completely empty document -yaml_ok( - '', - [ ], - 'empty', -); - -# Just a newline -### YAML.pm has a bug where it dies on a single newline -yaml_ok( - "\n\n", - [ ], - 'only_newlines', -); - -# Just a comment -yaml_ok( - "# comment\n", - [ ], - 'only_comment', -); - -# Empty documents -yaml_ok( - "---\n", - [ undef ], - 'only_header', - noyamlperl => 1, -); -yaml_ok( - "---\n---\n", - [ undef, undef ], - 'two_header', - noyamlperl => 1, -); -yaml_ok( - "--- ~\n", - [ undef ], - 'one_undef', - noyamlperl => 1, -); -yaml_ok( - "--- ~\n", - [ undef ], - 'one_undef2', - noyamlperl => 1, -); -yaml_ok( - "--- ~\n---\n", - [ undef, undef ], - 'two_undef', - noyamlperl => 1, -); - -# Just a scalar -yaml_ok( - "--- foo\n", - [ 'foo' ], - 'one_scalar', -); -yaml_ok( - "--- foo\n", - [ 'foo' ], - 'one_scalar2', -); -yaml_ok( - "--- foo\n--- bar\n", - [ 'foo', 'bar' ], - 'two_scalar', -); - -# Simple lists -yaml_ok( - "---\n- foo\n", - [ [ 'foo' ] ], - 'one_list1', -); -yaml_ok( - "---\n- foo\n- bar\n", - [ [ 'foo', 'bar' ] ], - 'one_list2', -); -yaml_ok( - "---\n- ~\n- bar\n", - [ [ undef, 'bar' ] ], - 'one_listundef', - noyamlperl => 1, -); - -# Simple hashs -yaml_ok( - "---\nfoo: bar\n", - [ { foo => 'bar' } ], - 'one_hash1', -); - -yaml_ok( - "---\nfoo: bar\nthis: ~\n", - [ { this => undef, foo => 'bar' } ], - 'one_hash2', - noyamlperl => 1, -); - -# Simple array inside a hash with an undef -yaml_ok( - <<'END_YAML', ---- -foo: - - bar - - ~ - - baz -END_YAML - [ { foo => [ 'bar', undef, 'baz' ] } ], - 'array_in_hash', - noyamlperl => 1, -); - -# Simple hash inside a hash with an undef -yaml_ok( - <<'END_YAML', ---- -foo: ~ -bar: - foo: bar -END_YAML - [ { foo => undef, bar => { foo => 'bar' } } ], - 'hash_in_hash', - noyamlperl => 1, -); - -# Mixed hash and scalars inside an array -yaml_ok( - <<'END_YAML', ---- -- - foo: ~ - this: that -- foo -- ~ -- - foo: bar - this: that -END_YAML - [ [ - { foo => undef, this => 'that' }, - 'foo', - undef, - { foo => 'bar', this => 'that' }, - ] ], - 'hash_in_array', - noyamlperl => 1, -); - -# Simple single quote -yaml_ok( - "---\n- 'foo'\n", - [ [ 'foo' ] ], - 'single_quote1', -); -yaml_ok( - "---\n- ' '\n", - [ [ ' ' ] ], - 'single_spaces', -); -yaml_ok( - "---\n- ''\n", - [ [ '' ] ], - 'single_null', -); - -# Double quotes -yaml_ok( - "--- \" \"\n", - [ ' ' ], - "only_spaces", - noyamlpm => 1, - noyamlperl => 1, -); - -yaml_ok( - "--- \" foo\"\n--- \"bar \"\n", - [ " foo", "bar " ], - "leading_trailing_spaces", - noyamlpm => 1, - noyamlperl => 1, -); - -# Implicit document start -yaml_ok( - "foo: bar\n", - [ { foo => 'bar' } ], - 'implicit_hash', -); -yaml_ok( - "- foo\n", - [ [ 'foo' ] ], - 'implicit_array', -); - -# Inline nested hash -yaml_ok( - <<'END_YAML', ---- -- ~ -- foo: bar - this: that -- baz -END_YAML - [ [ undef, { foo => 'bar', this => 'that' }, 'baz' ] ], - 'inline_nested_hash', - noyamlperl => 1, -); - -# Empty comments -yaml_ok( - "---\n- foo\n#\n- bar\n", - [ [ 'foo', 'bar' ] ], - 'empty_comment_in_list', -); - -yaml_ok( - "---\nfoo: bar\n# foo\none: two\n", - [ { foo => 'bar', one => 'two' } ], - 'empty_comment_in_hash', -); - -# Complex keys -yaml_ok( - "---\na b: c d\n", - [ { 'a b' => 'c d' } ], - 'key_with_whitespace', -); diff --git a/cpan/Parse-CPAN-Meta/t/04_scalar.t b/cpan/Parse-CPAN-Meta/t/03_functions.t index 7a637c9383..7a637c9383 100644 --- a/cpan/Parse-CPAN-Meta/t/04_scalar.t +++ b/cpan/Parse-CPAN-Meta/t/03_functions.t diff --git a/cpan/Parse-CPAN-Meta/t/03_regression.t b/cpan/Parse-CPAN-Meta/t/03_regression.t deleted file mode 100644 index e9fb70a8fb..0000000000 --- a/cpan/Parse-CPAN-Meta/t/03_regression.t +++ /dev/null @@ -1,622 +0,0 @@ -#!/usr/bin/perl - -# Testing of common META.yml examples - -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(37); - - - - - -##################################################################### -# In META.yml files, some hash keys contain module names - -# Hash key legally containing a colon -yaml_ok( - "---\nFoo::Bar: 1\n", - [ { 'Foo::Bar' => 1 } ], - 'module_hash_key', -); - -# Hash indented -yaml_ok( - "---\n" - . " foo: bar\n", - [ { foo => "bar" } ], - 'hash_indented', -); - - - - - -##################################################################### -# Support for literal multi-line scalars - -# Declarative multi-line scalar -yaml_ok( - "---\n" - . " foo: >\n" - . " bar\n" - . " baz\n", - [ { foo => "bar baz\n" } ], - 'simple_multiline', -); - -# Piped multi-line scalar -yaml_ok( - <<'END_YAML', ---- -- | - foo - bar -- 1 -END_YAML - [ [ "foo\nbar\n", 1 ] ], - 'indented', -); - -# ... with a pointless hyphen -yaml_ok( <<'END_YAML', ---- -- |- - foo - bar -- 1 -END_YAML - [ [ "foo\nbar", 1 ] ], - 'indented', -); - - - - - -##################################################################### -# Support for YAML version directives - -# Simple inline case (comment variant) -yaml_ok( - <<'END_YAML', ---- #YAML:1.0 -foo: bar -END_YAML - [ { foo => 'bar' } ], - 'simple_doctype_comment', - nosyck => 1, -); - -# Simple inline case (percent variant) -yaml_ok( - <<'END_YAML', ---- %YAML:1.0 -foo: bar -END_YAML - [ { foo => 'bar' } ], - 'simple_doctype_percent', - noyamlpm => 1, - noxs => 1, - noyamlperl => 1, -); - -# Simple header (comment variant) -yaml_ok( - <<'END_YAML', -%YAML:1.0 ---- -foo: bar -END_YAML - [ { foo => 'bar' } ], - 'predocument_1_0', - noyamlpm => 1, - nosyck => 1, - noxs => 1, - noyamlperl => 1, -); - -# Simple inline case (comment variant) -yaml_ok( - <<'END_YAML', -%YAML 1.1 ---- -foo: bar -END_YAML - [ { foo => 'bar' } ], - 'predocument_1_1', - noyamlpm => 1, - nosyck => 1, - noyamlperl => 1, -); - -# Multiple inline documents (comment variant) -yaml_ok( - <<'END_YAML', ---- #YAML:1.0 -foo: bar ---- #YAML:1.0 -- 1 ---- #YAML:1.0 -foo: bar -END_YAML - [ { foo => 'bar' }, [ 1 ], { foo => 'bar' } ], - 'multi_doctype_comment', -); - -# Simple pre-document case (comment variant) -yaml_ok( - <<'END_YAML', -%YAML 1.1 ---- -foo: bar -END_YAML - [ { foo => 'bar' } ], - 'predocument_percent', - noyamlpm => 1, - nosyck => 1, - noyamlperl => 1, -); - -# Simple pre-document case (comment variant) -yaml_ok( - <<'END_YAML', -#YAML 1.1 ---- -foo: bar -END_YAML - [ { foo => 'bar' } ], - 'predocument_comment', -); - - - - - -##################################################################### -# Hitchhiker Scalar - -yaml_ok( - <<'END_YAML', ---- 42 -END_YAML - [ 42 ], - 'hitchhiker scalar', - serializes => 1, -); - - - - - -##################################################################### -# Null HASH/ARRAY - -yaml_ok( - <<'END_YAML', ---- -- foo -- {} -- bar -END_YAML - [ [ 'foo', {}, 'bar' ] ], - 'null hash in array', -); - -yaml_ok( - <<'END_YAML', ---- -- foo -- [] -- bar -END_YAML - [ [ 'foo', [], 'bar' ] ], - 'null array in array', -); - -yaml_ok( - <<'END_YAML', ---- -foo: {} -bar: 1 -END_YAML - [ { foo => {}, bar => 1 } ], - 'null hash in hash', -); - -yaml_ok( - <<'END_YAML', ---- -foo: [] -bar: 1 -END_YAML - [ { foo => [], bar => 1 } ], - 'null array in hash', -); - - - - -##################################################################### -# Trailing Whitespace - -yaml_ok( - <<'END_YAML', ---- -abstract: Generate fractal curves -foo: ~ -arr: - - foo - - ~ - - 'bar' -END_YAML - [ { - abstract => 'Generate fractal curves', - foo => undef, - arr => [ 'foo', undef, 'bar' ], - } ], - 'trailing whitespace', - noyamlperl => 1, -); - - - - - -##################################################################### -# Quote vs Hash - -yaml_ok( - <<'END_YAML', ---- -author: - - 'mst: Matt S. Trout <mst@shadowcatsystems.co.uk>' -END_YAML - [ { author => [ 'mst: Matt S. Trout <mst@shadowcatsystems.co.uk>' ] } ], - 'hash-like quote', -); - - - - - -##################################################################### -# Quote and Escaping Idiosyncracies - -yaml_ok( - <<'END_YAML', ---- -name1: 'O''Reilly' -name2: 'O''Reilly O''Tool' -name3: 'Double '''' Quote' -END_YAML - [ { - name1 => "O'Reilly", - name2 => "O'Reilly O'Tool", - name3 => "Double '' Quote", - } ], - 'single quote subtleties', -); - -yaml_ok( - <<'END_YAML', ---- -slash1: '\\' -slash2: '\\foo' -slash3: '\\foo\\\\' -END_YAML - [ { - slash1 => "\\\\", - slash2 => "\\\\foo", - slash3 => "\\\\foo\\\\\\\\", - } ], - 'single quote subtleties', -); - - - - - -##################################################################### -# Empty Values and Premature EOF - -yaml_ok( - <<'END_YAML', ---- -foo: 0 -requires: -build_requires: -END_YAML - [ { foo => 0, requires => undef, build_requires => undef } ], - 'empty hash keys', - noyamlpm => 1, - noyamlperl => 1, -); - -yaml_ok( - <<'END_YAML', ---- -- foo -- -- -END_YAML - [ [ 'foo', undef, undef ] ], - 'empty array keys', - noyamlpm => 1, - noyamlperl => 1, -); - - - - - -##################################################################### -# Comment on the Document Line - -yaml_ok( - <<'END_YAML', ---- # Comment -foo: bar -END_YAML - [ { foo => 'bar' } ], - 'comment header', - noyamlpm => 1, - noyamlperl => 1, -); - - - - - - -##################################################################### -# Newlines and tabs - -yaml_ok( - <<'END_YAML', -foo: "foo\\\n\tbar" -END_YAML - [ { foo => "foo\\\n\tbar" } ], - 'special characters', -); - - - - - -##################################################################### -# Confirm we can read the synopsis - -yaml_ok( - <<'END_YAML', ---- -rootproperty: blah -section: - one: two - three: four - Foo: Bar - empty: ~ -END_YAML - [ { - rootproperty => 'blah', - section => { - one => 'two', - three => 'four', - Foo => 'Bar', - empty => undef, - }, - } ], - 'synopsis', - noyamlperl => 1, -); - - - - - -##################################################################### -# Unprintable Characters - -yaml_ok( - "--- \"foo\\n\\x00\"\n", - [ "foo\n\0" ], - 'unprintable', -); - - - - - -##################################################################### -# Empty Quote Line - -yaml_ok( - <<'END_YAML', ---- -- foo -# -- bar -END_YAML - [ [ "foo", "bar" ] ], -); - - - - - -##################################################################### -# Indentation after empty hash value - -yaml_ok( - <<'END_YAML', ---- -Test: - optmods: - Bad: 0 - Foo: 1 - Long: 0 - version: 5 -Test_IncludeA: - optmods: -Test_IncludeB: - optmods: -_meta: - name: 'test profile' - note: 'note this test profile' -END_YAML - [ { - Test => { - optmods => { - Bad => 0, - Foo => 1, - Long => 0, - }, - version => 5, - }, - Test_IncludeA => { - optmods => undef, - }, - Test_IncludeB => { - optmods => undef, - }, - _meta => { - name => 'test profile', - note => 'note this test profile', - }, - } ], - 'Indentation after empty hash value', - noyamlperl => 1, -); - - - - - -##################################################################### -# Spaces in the Key - -yaml_ok( - <<'END_YAML', ---- -the key: the value -END_YAML - [ { 'the key' => 'the value' } ], -); - - - - - -##################################################################### -# Ticker #32402 - -# Tests a particular pathological case - -yaml_ok( - <<'END_YAML', ---- -- value -- '><' -END_YAML - [ [ 'value', '><' ] ], - 'Pathological >< case', -); - - - - - -##################################################################### -# Special Characters - -#yaml_ok( -# <<'END_YAML', -#--- -#- "Ingy d\xC3\xB6t Net" -#END_YAML -# [ [ "Ingy d\xC3\xB6t Net" ] ], -#); - - - - - - -###################################################################### -# Non-Indenting Sub-List - -yaml_ok( - <<'END_YAML', ---- -foo: -- list -bar: value -END_YAML - [ { foo => [ 'list' ], bar => 'value' } ], - 'Non-indenting sub-list', - noyamlpm => 1, - noyamlperl => 1, -); - - - - - - -##################################################################### -# Check Multiple-Escaping - -# RT #42119: write of two single quotes -yaml_ok( - "--- \"A'B'C\"\n", - [ "A'B'C" ], - 'Multiple escaping of quote ok', -); - -# Escapes without whitespace -yaml_ok( - "--- A\\B\\C\n", - [ "A\\B\\C" ], - 'Multiple escaping of escape ok', -); - -# Escapes with whitespace -yaml_ok( - "--- 'A\\B \\C'\n", - [ "A\\B \\C" ], - 'Multiple escaping of escape with whitespace ok', -); - - - - - -###################################################################### -# Check illegal characters that are in legal places - -yaml_ok( - "--- 'Wow!'\n", - [ "Wow!" ], - 'Bang in a quote', -); -yaml_ok( - "--- 'This&that'\n", - [ "This&that" ], - 'Ampersand in a quote', -); diff --git a/cpan/Parse-CPAN-Meta/t/05_export.t b/cpan/Parse-CPAN-Meta/t/04_export.t index f82cc91cf6..f82cc91cf6 100644 --- a/cpan/Parse-CPAN-Meta/t/05_export.t +++ b/cpan/Parse-CPAN-Meta/t/04_export.t diff --git a/cpan/Parse-CPAN-Meta/t/05_errors.t b/cpan/Parse-CPAN-Meta/t/05_errors.t new file mode 100644 index 0000000000..4882d290eb --- /dev/null +++ b/cpan/Parse-CPAN-Meta/t/05_errors.t @@ -0,0 +1,31 @@ +#!/usr/bin/perl + +# Testing of basic document structures + +BEGIN { + if( $ENV{PERL_CORE} ) { + chdir 't'; + @INC = ('../lib', 'lib'); + } + else { + unshift @INC, 't/lib/'; + } +} + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +use Test::More tests => 1; +use Parse::CPAN::Meta (); + +my $one = <<'END_YAML'; +--- +- foo: - bar +END_YAML + +my $one_scalar_tiny = eval { Parse::CPAN::Meta->load_yaml_string( $one ) }; +like( $@, '/illegal characters/', "error causes exception"); + diff --git a/cpan/Parse-CPAN-Meta/t/11_meta_yml.t b/cpan/Parse-CPAN-Meta/t/11_meta_yml.t deleted file mode 100644 index fe95d1abef..0000000000 --- a/cpan/Parse-CPAN-Meta/t/11_meta_yml.t +++ /dev/null @@ -1,405 +0,0 @@ -#!/usr/bin/perl - -# Testing of common META.yml examples - -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(8, 3); - - - - - -##################################################################### -# Testing YAML::Tiny's own META.yml file - -yaml_ok( - <<'END_YAML', -abstract: Read/Write YAML files with as little code as possible -author: 'Adam Kennedy <cpan@ali.as>' -build_requires: - File::Spec: 0.80 - Test::More: 0.47 -distribution_type: module -generated_by: Module::Install version 0.63 -license: perl -name: YAML-Tiny -no_index: - directory: - - inc - - t -requires: - perl: 5.005 -version: 0.03 -END_YAML - [ { - abstract => 'Read/Write YAML files with as little code as possible', - author => 'Adam Kennedy <cpan@ali.as>', - build_requires => { - 'File::Spec' => '0.80', - 'Test::More' => '0.47', - }, - distribution_type => 'module', - generated_by => 'Module::Install version 0.63', - license => 'perl', - name => 'YAML-Tiny', - no_index => { - directory => [ qw{inc t} ], - }, - requires => { - perl => '5.005', - }, - version => '0.03', - } ], - 'YAML::Tiny', -); - - - - - - -##################################################################### -# Testing a META.yml from a commercial project that crashed - -yaml_ok( - <<'END_YAML', -# http://module-build.sourceforge.net/META-spec.html -#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# -name: ITS-SIN-FIDS-Content-XML -version: 0.01 -version_from: lib/ITS/SIN/FIDS/Content/XML.pm -installdirs: site -requires: - Test::More: 0.45 - XML::Simple: 2 - -distribution_type: module -generated_by: ExtUtils::MakeMaker version 6.30 -END_YAML - [ { - name => 'ITS-SIN-FIDS-Content-XML', - version => "0.01", - version_from => 'lib/ITS/SIN/FIDS/Content/XML.pm', - installdirs => 'site', - requires => { - 'Test::More' => 0.45, - 'XML::Simple' => 2, - }, - distribution_type => 'module', - generated_by => 'ExtUtils::MakeMaker version 6.30', - } ], - 'YAML::Tiny', -); - - - - - - -##################################################################### -# Testing various failing META.yml files from CPAN - -yaml_ok( - <<'END_YAML', ---- -abstract: Mii in Nintendo Wii data parser and builder -author: Toru Yamaguchi <zigorou@cpan.org> -distribution_type: module -generated_by: Module::Install version 0.65 -license: perl -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.3.html - version: 1.3 -name: Games-Nintendo-Wii-Mii -no_index: - directory: - - inc - - t -requires: - Carp: 1.03 - Class::Accessor::Fast: 0.3 - File::Slurp: 9999.12 - IO::File: 1.1 - Readonly: 0 - Tie::IxHash: 1.21 - URI: 1.35 - XML::LibXML: 1.62 -version: 0.02 -END_YAML - [ { - abstract => 'Mii in Nintendo Wii data parser and builder', - author => 'Toru Yamaguchi <zigorou@cpan.org>', - distribution_type => 'module', - generated_by => 'Module::Install version 0.65', - license => 'perl', - 'meta-spec' => { - url => 'http://module-build.sourceforge.net/META-spec-v1.3.html', - version => '1.3', - }, - name => 'Games-Nintendo-Wii-Mii', - no_index => { - directory => [ qw{ inc t } ], - }, - requires => { - 'Carp' => '1.03', - 'Class::Accessor::Fast' => '0.3', - 'File::Slurp' => '9999.12', - 'IO::File' => '1.1', - 'Readonly' => '0', - 'Tie::IxHash' => '1.21', - 'URI' => '1.35', - 'XML::LibXML' => '1.62', - }, - version => '0.02', - } ], - 'Games-Nintendo-Wii-Mii', -); - -yaml_ok( - <<'END_YAML', -# http://module-build.sourceforge.net/META-spec.html -#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# -name: Acme-Time-Baby -version: 2.106 -version_from: Baby.pm -installdirs: site -requires: - warnings: - -distribution_type: module -generated_by: ExtUtils::MakeMaker version 6.17 -END_YAML - [ { - name => 'Acme-Time-Baby', - version => '2.106', - version_from => 'Baby.pm', - installdirs => 'site', - requires => { - warnings => undef, - }, - distribution_type => 'module', - generated_by => 'ExtUtils::MakeMaker version 6.17', - } ], - 'Acme-Time-Baby', - noyamlperl => 1, -); - - - - - -##################################################################### -# File with a YAML header - -yaml_ok( - <<'END_YAML', ---- #YAML:1.0 -name: Data-Swap -version: 0.05 -license: perl -distribution_type: module -requires: - perl: 5.6.0 -dynamic_config: 0 -END_YAML - [ { - name => 'Data-Swap', - version => '0.05', - license => 'perl', - distribution_type => 'module', - requires => { - perl => '5.6.0', - }, - dynamic_config => '0', - } ], - 'Data-Swap', - nosyck => 1, -); - - - - - -##################################################################### -# Various files that fail for unknown reasons - -SCOPE: { - my $content = load_ok( - 'Template-Provider-Unicode-Japanese.yml', - catfile( test_data_directory(), 'Template-Provider-Unicode-Japanese.yml' ), - 100 - ); - yaml_ok( - $content, - [ { - abstract => 'Decode all templates by Unicode::Japanese', - author => 'Hironori Yoshida C<< <yoshida@cpan.org> >>', - distribution_type => 'module', - generated_by => 'Module::Install version 0.65', - license => 'perl', - 'meta-spec' => { - url => 'http://module-build.sourceforge.net/META-spec-v1.3.html', - version => '1.3', - }, - name => 'Template-Provider-Unicode-Japanese', - no_index => { - directory => [ qw{ inc t } ], - }, - requires => { - 'Template::Config' => 0, - 'Unicode::Japanese' => 0, - perl => '5.6.0', - version => '0', - }, - version => '1.2.1', - } ], - 'Template-Provider-Unicode-Japanese', - noyamlperl => 1, - ); -} - -SCOPE: { - my $content = load_ok( - 'HTML-WebDAO.yml', - catfile( test_data_directory(), 'HTML-WebDAO.yml' ), - 100 - ); - yaml_ok( - $content, - [ { - abstract => 'Perl extension for create complex web application', - author => [ - 'Zahatski Aliaksandr, E<lt>zagap@users.sourceforge.netE<gt>', - ], - license => 'perl', - name => 'HTML-WebDAO', - version => '0.04', - } ], - 'HTML-WebDAO', - nosyck => 1, - ); -} - -SCOPE: { - my $content = load_ok( - 'Spreadsheet-Read.yml', - catfile( test_data_directory(), 'Spreadsheet-Read.yml' ), - 100 - ); - yaml_ok( - $content, - [ { - 'resources' => { - 'license' => 'http://dev.perl.org/licenses/' - }, - 'meta-spec' => { - 'version' => '1.4', - 'url' => 'http://module-build.sourceforge.net/META-spec-v1.4.html' - }, - 'distribution_type' => 'module', - 'generated_by' => 'Author', - 'version' => 'VERSION', - 'name' => 'Read', - 'author' => [ - 'H.Merijn Brand <h.m.brand@xs4all.nl>' - ], - 'license' => 'perl', - 'build_requires' => { - 'Test::More' => '0', - 'Test::Harness' => '0', - 'perl' => '5.006' - }, - 'provides' => { - 'Spreadsheet::Read' => { - 'version' => 'VERSION', - 'file' => 'Read.pm' - } - }, - 'optional_features' => [ - { - 'opt_csv' => { - 'requires' => { - 'Text::CSV_XS' => '0.23' - }, - 'recommends' => { - 'Text::CSV_PP' => '1.10', - 'Text::CSV_XS' => '0.58', - 'Text::CSV' => '1.10' - }, - 'description' => 'Provides parsing of CSV streams' - } - }, - { - 'opt_excel' => { - 'requires' => { - 'Spreadsheet::ParseExcel' => '0.26', - 'Spreadsheet::ParseExcel::FmtDefault' => '0' - }, - 'recommends' => { - 'Spreadsheet::ParseExcel' => '0.42' - }, - 'description' => 'Provides parsing of Microsoft Excel files' - } - }, - { - 'opt_excelx' => { - 'requires' => { - 'Spreadsheet::XLSX' => '0.07' - }, - 'description' => 'Provides parsing of Microsoft Excel 2007 files' - } - }, - { - 'opt_oo' => { - 'requires' => { - 'Spreadsheet::ReadSXC' => '0.2' - }, - 'description' => 'Provides parsing of OpenOffice spreadsheets' - } - }, - { - 'opt_tools' => { - 'recommends' => { - 'Tk::TableMatrix::Spreadsheet' => '0', - 'Tk::NoteBook' => '0', - 'Tk' => '0' - }, - 'description' => 'Spreadsheet tools' - } - } - ], - 'requires' => { - 'perl' => '5.006', - 'Data::Dumper' => '0', - 'Exporter' => '0', - 'Carp' => '0' - }, - 'recommends' => { - 'perl' => '5.008005', - 'IO::Scalar' => '0', - 'File::Temp' => '0.14' - }, - 'abstract' => 'Meta-Wrapper for reading spreadsheet data' - } ], - 'Spreadsheet-Read', - noyamlpm => 1, - noyamlperl => 1, - ); -} diff --git a/cpan/Parse-CPAN-Meta/t/12_plagger.t b/cpan/Parse-CPAN-Meta/t/12_plagger.t deleted file mode 100644 index 5e186f3bc6..0000000000 --- a/cpan/Parse-CPAN-Meta/t/12_plagger.t +++ /dev/null @@ -1,136 +0,0 @@ -#!/usr/bin/perl - -# Testing Plagger config samples from Miyagawa-san's YAPC::NA 2006 talk - -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(2); - - - - - -##################################################################### -# Example Plagger Configuration 1 - -yaml_ok( - <<'END_YAML', -plugins: - - module: Subscription::Bloglines - config: - username: you@example.pl - password: foobar - mark_read: 1 - - - module: Publish::Gmail - config: - mailto: example@gmail.com - mailfrom: miyagawa@example.com - mailroute: - via: smtp - host: smtp.example.com -END_YAML - [ { plugins => [ - { - module => 'Subscription::Bloglines', - config => { - username => 'you@example.pl', - password => 'foobar', - mark_read => 1, - }, - }, - { - module => 'Publish::Gmail', - config => { - mailto => 'example@gmail.com', - mailfrom => 'miyagawa@example.com', - mailroute => { - via => 'smtp', - host => 'smtp.example.com', - }, - }, - }, - ] } ], - 'Plagger', -); - - - - - -##################################################################### -# Example Plagger Configuration 2 - -yaml_ok( - <<'END_YAML', -plugins: - - module: Subscription::Config - config: - feed: - # Trac's feed for changesets - - http://plagger.org/.../rss - - # I don't like to be notified of the same items - # more than once - - module: Filter::Rule - rule: - module: Fresh - mtime: - path: /tmp/rssbot.time - autoupdate: 1 - - - module: Notify::IRC - config: - daemon_port: 9999 - nickname: plaggerbot - server_host: chat.freenode.net - server_channels: - - '#plagger-ja' - - '#plagger' - - -END_YAML - [ { plugins => [ { - module => 'Subscription::Config', - config => { - feed => [ 'http://plagger.org/.../rss' ], - }, - }, { - module => 'Filter::Rule', - rule => { - module => 'Fresh', - mtime => { - path => '/tmp/rssbot.time', - autoupdate => 1, - }, - }, - }, { - module => 'Notify::IRC', - config => { - daemon_port => 9999, - nickname => 'plaggerbot', - server_host => 'chat.freenode.net', - server_channels => [ - '#plagger-ja', - '#plagger', - ], - }, - } ] } ], - 'plagger2', -); diff --git a/cpan/Parse-CPAN-Meta/t/13_perl_smith.t b/cpan/Parse-CPAN-Meta/t/13_perl_smith.t deleted file mode 100644 index 9a8b8be709..0000000000 --- a/cpan/Parse-CPAN-Meta/t/13_perl_smith.t +++ /dev/null @@ -1,158 +0,0 @@ -#!/usr/bin/perl - -# Testing of common META.yml examples - -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, 1); - - - - - -##################################################################### -# Testing that Perl::Smith config files work - -my $vanilla_file = catfile( test_data_directory(), 'vanilla.yml' ); -my $vanilla = load_ok( 'yanilla.yml', $vanilla_file, 1000 ); - -yaml_ok( - $vanilla, - [ { - package_name => 'VanillaPerl', - package_version => 5, - download_dir => 'c:\temp\vp_sources', - build_dir => 'c:\temp\vp_build', - image_dir => 'c:\vanilla-perl', - binary => [ - { - name => 'dmake', - url => 'http://search.cpan.org/CPAN/authors/id/S/SH/SHAY/dmake-4.5-20060619-SHAY.zip', - license => { - 'dmake/COPYING' => 'dmake/COPYING', - 'dmake/readme/license.txt' => 'dmake/license.txt', - }, - install_to => { - 'dmake/dmake.exe' => 'dmake/bin/dmake.exe', - 'dmake/startup' => 'dmake/bin/startup', - }, - }, - { - name => 'gcc-core', - url => 'http://umn.dl.sourceforge.net/mingw/gcc-core-3.4.5-20060117-1.tar.gz', - license => { - 'COPYING' => 'gcc/COPYING', - 'COPYING.lib' => 'gcc/COPYING.lib', - }, - install_to => 'mingw', - }, - { - name => 'gcc-g++', - url => 'http://umn.dl.sourceforge.net/mingw/gcc-g++-3.4.5-20060117-1.tar.gz', - license => undef, - install_to => 'mingw', - }, - { - name => 'binutils', - url => 'http://umn.dl.sourceforge.net/mingw/binutils-2.16.91-20060119-1.tar.gz', - license => { - 'Copying' => 'binutils/Copying', - 'Copying.lib' => 'binutils/Copying.lib', - }, - install_to => 'mingw', - }, - { - name => 'mingw-runtime', - url => 'http://umn.dl.sourceforge.net/mingw/mingw-runtime-3.10.tar.gz', - license => { - 'doc/mingw-runtime/Contributors' => 'mingw/Contributors', - 'doc/mingw-runtime/Disclaimer' => 'mingw/Disclaimer', - }, - install_to => 'mingw', - }, - { - name => 'w32api', - url => 'http://umn.dl.sourceforge.net/mingw/w32api-3.6.tar.gz', - license => undef, - install_to => 'mingw', - extra => { - 'extra\README.w32api' => 'licenses\win32api\README.w32api', - }, - } - ], - source => [ - { - name => 'perl', - url => 'http://mirrors.kernel.org/CPAN/src/perl-5.8.8.tar.gz', - license => { - 'perl-5.8.8/Readme' => 'perl/Readme', - 'perl-5.8.8/Artistic' => 'perl/Artistic', - 'perl-5.8.8/Copying' => 'perl/Copying', - }, - unpack_to => 'perl', - install_to => 'perl', - after => { - 'extra\Config.pm' => 'lib\CPAN\Config.pm', - }, - } - ], - modules => [ - { - name => 'Win32::Job', - unpack_to => { - APIFile => 'Win32API-File', - }, - }, - { - name => 'IO', - force => 1, - }, - { - name => 'Compress::Zlib', - }, - { - name => 'IO::Zlib', - }, - { - name => 'Archive::Tar', - }, - { - name => 'Net::FTP', - extra => { - 'extra\libnet.cfg' => 'libnet.cfg', - }, - }, - ], - extra => { - 'README' => 'README.txt', - 'LICENSE.txt' => 'LICENSE.txt', - 'Changes' => 'Release-Notes.txt', - 'extra\Config.pm' => 'perl\lib\CPAN\Config.pm', - 'extra\links\Perl-Documentation.url' => 'links\Perl Documentation.url', - 'extra\links\Perl-Homepage.url' => 'links\Perl Homepage.url', - 'extra\links\Perl-Mailing-Lists.url' => 'links\Perl Mailing Lists.url', - 'extra\links\Perlmonks-Community-Forum.url' => 'links\Perlmonks Community Forum.url', - 'extra\links\Search-CPAN-Modules.url' => 'links\Search CPAN Modules.url', - 'extra\links\Vanilla-Perl-Homepage.url' => 'links\Vanilla Perl Homepage.url', - }, - } ], - 'vanilla.yml', - nosyck => 1, - noyamlperl => 1, -); diff --git a/cpan/Parse-CPAN-Meta/t/14_yaml_org.t b/cpan/Parse-CPAN-Meta/t/14_yaml_org.t deleted file mode 100644 index 254bd7a547..0000000000 --- a/cpan/Parse-CPAN-Meta/t/14_yaml_org.t +++ /dev/null @@ -1,72 +0,0 @@ -#!/usr/bin/perl - -# Testing of common META.yml examples - -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, 1); - - - - - -##################################################################### -# Testing that Perl::Smith config files work - -my $sample_file = catfile( test_data_directory(), 'sample.yml' ); -my $sample = load_ok( 'sample.yml', $sample_file, 500 ); - -yaml_ok( - $sample, - [ { - invoice => 34843, - date => '2001-01-23', - 'bill-to' => { - given => 'Chris', - family => 'Dumars', - address => { - lines => "458 Walkman Dr.\nSuite #292\n", - city => 'Royal Oak', - state => 'MI', - postal => 48046, - }, - }, - product => [ - { - sku => 'BL394D', - quantity => '4', - description => 'Basketball', - price => '450.00', - }, - { - sku => 'BL4438H', - quantity => '1', - description => 'Super Hoop', - price => '2392.00', - }, - ], - tax => '251.42', - total => '4443.52', - comments => <<'END_TEXT', -Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338. -END_TEXT - } ], - 'sample.yml', - # nosyck => 1, -); diff --git a/cpan/Parse-CPAN-Meta/t/15_multibyte.t b/cpan/Parse-CPAN-Meta/t/15_multibyte.t deleted file mode 100644 index cdde728074..0000000000 --- a/cpan/Parse-CPAN-Meta/t/15_multibyte.t +++ /dev/null @@ -1,59 +0,0 @@ -#!/usr/bin/perl - -# Testing of META.yml containing AVAR's name - -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(0, 1, 4); - - - - - -##################################################################### -# Testing that Perl::Smith config files work - -my $sample_file = catfile( test_data_directory(), 'multibyte.yml' ); -my $sample = load_ok( 'multibyte.yml', $sample_file, 450 ); - -# Does the string parse to the structure -my $name = "multibyte"; -my $yaml_copy = $sample; -my @yaml = eval { Parse::CPAN::Meta::Load( $yaml_copy ); }; -is( $@, '', "$name: Parse::CPAN::Meta::Load parses without error" ); -is( $yaml_copy, $sample, "$name: Parse::CPAN::Meta::Load does not modify the input string" ); -SKIP: { - skip( "Shortcutting after failure", 1 ) if $@; - is_deeply( $yaml[0]->{build_requires}, { - 'Config' => 0, - 'Test::More' => 0, - 'XSLoader' => 0, - }, 'build_requires ok' ); -} - -SKIP: { - unless ( Parse::CPAN::Meta::HAVE_UTF8() ) { - skip("no utf8 support", 1 ); - } - eval { utf8::is_utf8('') }; - if ( $@ ) { - skip("no is_utf8 to test with until 5.8.1", 1); - } - ok( utf8::is_utf8($yaml[0]->{author}), "utf8 decoded" ); -} diff --git a/cpan/Parse-CPAN-Meta/t/16_nullrefs.t b/cpan/Parse-CPAN-Meta/t/16_nullrefs.t deleted file mode 100644 index fa1c3e9708..0000000000 --- a/cpan/Parse-CPAN-Meta/t/16_nullrefs.t +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl - -# Testing for null references - -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); - - - - - -##################################################################### -# Example Empty References - -yaml_ok( - <<'END_YAML', ---- [] ---- {} -END_YAML - [ [], {} ], - 'Empty references', -); diff --git a/cpan/Parse-CPAN-Meta/t/17_toolbar.t b/cpan/Parse-CPAN-Meta/t/17_toolbar.t deleted file mode 100644 index e0d3cf9876..0000000000 --- a/cpan/Parse-CPAN-Meta/t/17_toolbar.t +++ /dev/null @@ -1,59 +0,0 @@ -#!/usr/bin/perl - -# Testing of a known-bad file from an editor - -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 skip_all => 'Temporarily ignoring failing test'; -use Test::More tests(1, 1); - - - - - -##################################################################### -# Testing that Perl::Smith config files work - -my $toolbar_file = catfile( test_data_directory(), 'toolbar.yml' ); -my $toolbar = load_ok( 'toolbar.yml', $toolbar_file, 100 ); - -yaml_ok( - $toolbar, - [ { - main_toolbar => [ - 'item file-new', - 'item file-open', - 'item file-print#', - 'item file-close#', - 'item file-save-all', - 'item file-save', - undef, - 'item edit-changes-undo', - 'item edit-changes-redo', - undef, - 'item edit-cut', - 'item edit-copy', - 'item edit-paste', - 'item edit-replace', - 'item edit-delete', - ] - } ], - 'toolbar.yml', - noyamlperl => 1, -); diff --git a/cpan/Parse-CPAN-Meta/t/18_tap.t b/cpan/Parse-CPAN-Meta/t/18_tap.t deleted file mode 100644 index 62b84f936e..0000000000 --- a/cpan/Parse-CPAN-Meta/t/18_tap.t +++ /dev/null @@ -1,90 +0,0 @@ -#!/usr/bin/perl - -# Testing relating to functionality in the Test Anything Protocol - -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(5, 0, 0); -use Parse::CPAN::Meta (); - - - - - -##################################################################### -# TAP Tests - -# Make sure we support x-foo keys -yaml_ok( - "---\nx-foo: 1\n", - [ { 'x-foo' => 1 } ], - 'x-foo key', -); - -# Document ending (hash) -yaml_ok( - "---\n" - . " foo: bar\n" - . "...\n", - [ { foo => "bar" } ], - 'document_end_hash', - noyamlpm => 1, - nosyck => 1, - noyamlperl => 1, -); - -# Document ending (array) -yaml_ok( - "---\n" - . "- foo\n" - . "...\n", - [ [ 'foo' ] ], - 'document_end_array', - noyamlpm => 1, - noyamlperl => 1, -); - -# Multiple documents (simple) -yaml_ok( - "---\n" - . "- foo\n" - . "...\n" - . "---\n" - . "- foo\n" - . "...\n", - [ [ 'foo' ], [ 'foo' ] ], - 'multi_document_simple', - noyamlpm => 1, - noyamlperl => 1, -); - -# Multiple documents (whitespace-separated) -yaml_ok( - "---\n" - . "- foo\n" - . "...\n" - . "\n" - . "---\n" - . "- foo\n" - . "...\n", - [ [ 'foo' ], [ 'foo' ] ], - 'multi_document_space', - noyamlpm => 1, - noyamlperl => 1, -); diff --git a/cpan/Parse-CPAN-Meta/t/19_errors.t b/cpan/Parse-CPAN-Meta/t/19_errors.t deleted file mode 100644 index baa06ad5b2..0000000000 --- a/cpan/Parse-CPAN-Meta/t/19_errors.t +++ /dev/null @@ -1,43 +0,0 @@ -#!/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 - diff --git a/cpan/Parse-CPAN-Meta/t/21_bom.t b/cpan/Parse-CPAN-Meta/t/21_bom.t deleted file mode 100644 index 706cf77c3f..0000000000 --- a/cpan/Parse-CPAN-Meta/t/21_bom.t +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl - -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(0, 1, 3); - - - - - -##################################################################### -# Testing that Perl::Smith config files work - -my $sample_file = catfile( test_data_directory(), 'utf_16_le_bom.yml' ); -my $sample = load_ok( 'utf_16_le_bom.yml', $sample_file, 3 ); - -# Does the string parse to the structure -my $name = "utf-16"; -my $yaml_copy = $sample; -my $yaml = eval { Parse::CPAN::Meta::Load( $yaml_copy ); }; -is( $yaml_copy, $sample, "$name: Parse::CPAN::Meta::Load does not modify the input string" ); -is( $yaml, undef, "file not parsed" ); -ok( $@ =~ "Stream has a non UTF-8 Unicode Byte Order Mark", "correct error" ); diff --git a/cpan/Parse-CPAN-Meta/t/data/HTML-WebDAO.yml b/cpan/Parse-CPAN-Meta/t/data/HTML-WebDAO.yml deleted file mode 100644 index c5262ff73c..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/HTML-WebDAO.yml +++ /dev/null @@ -1,8 +0,0 @@ ---- #YAML:1.0 -name: HTML-WebDAO -version: 0.04 -author: - - |- - Zahatski Aliaksandr, E<lt>zagap@users.sourceforge.netE<gt> -abstract: Perl extension for create complex web application -license: perl diff --git a/cpan/Parse-CPAN-Meta/t/data/Spreadsheet-Read.yml b/cpan/Parse-CPAN-Meta/t/data/Spreadsheet-Read.yml deleted file mode 100644 index f402ab8d68..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/Spreadsheet-Read.yml +++ /dev/null @@ -1,61 +0,0 @@ ---- #YAML:1.1 -name: Read -version: VERSION -abstract: Meta-Wrapper for reading spreadsheet data -license: perl -author: - - H.Merijn Brand <h.m.brand@xs4all.nl> -generated_by: Author -distribution_type: module -provides: - Spreadsheet::Read: - file: Read.pm - version: VERSION -requires: - perl: 5.006 - Exporter: 0 - Carp: 0 - Data::Dumper: 0 -recommends: - perl: 5.008005 - File::Temp: 0.14 - IO::Scalar: 0 -build_requires: - perl: 5.006 - Test::Harness: 0 - Test::More: 0 -optional_features: -- opt_csv: - description: Provides parsing of CSV streams - requires: - Text::CSV_XS: 0.23 - recommends: - Text::CSV: 1.10 - Text::CSV_PP: 1.10 - Text::CSV_XS: 0.58 -- opt_excel: - description: Provides parsing of Microsoft Excel files - requires: - Spreadsheet::ParseExcel: 0.26 - Spreadsheet::ParseExcel::FmtDefault: 0 - recommends: - Spreadsheet::ParseExcel: 0.42 -- opt_excelx: - description: Provides parsing of Microsoft Excel 2007 files - requires: - Spreadsheet::XLSX: 0.07 -- opt_oo: - description: Provides parsing of OpenOffice spreadsheets - requires: - Spreadsheet::ReadSXC: 0.2 -- opt_tools: - description: Spreadsheet tools - recommends: - Tk: 0 - Tk::NoteBook: 0 - Tk::TableMatrix::Spreadsheet: 0 -resources: - license: http://dev.perl.org/licenses/ -meta-spec: - version: 1.4 - url: http://module-build.sourceforge.net/META-spec-v1.4.html diff --git a/cpan/Parse-CPAN-Meta/t/data/Template-Provider-Unicode-Japanese.yml b/cpan/Parse-CPAN-Meta/t/data/Template-Provider-Unicode-Japanese.yml deleted file mode 100644 index 66dae89875..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/Template-Provider-Unicode-Japanese.yml +++ /dev/null @@ -1,20 +0,0 @@ ---- -abstract: Decode all templates by Unicode::Japanese -author: Hironori Yoshida C<< <yoshida@cpan.org> >> -distribution_type: module -generated_by: Module::Install version 0.65 -license: perl -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.3.html - version: 1.3 -name: Template-Provider-Unicode-Japanese -no_index: - directory: - - inc - - t -requires: - Template::Config: 0 - Unicode::Japanese: 0 - perl: 5.6.0 - version: 0 -version: 1.2.1 diff --git a/cpan/Parse-CPAN-Meta/t/data/VR-META.json b/cpan/Parse-CPAN-Meta/t/data/VR-META.json new file mode 100644 index 0000000000..fbe9eca82f --- /dev/null +++ b/cpan/Parse-CPAN-Meta/t/data/VR-META.json @@ -0,0 +1,30 @@ +{ + "abstract" : "a set of version requirements for a CPAN dist", + "author" : [ + "Ricardo Signes <rjbs@cpan.org>" + ], + "build_requires" : { + "Test::More" : "0.88" + }, + "configure_requires" : { + "ExtUtils::MakeMaker" : "6.31" + }, + "generated_by" : "Dist::Zilla version 2.100991", + "license" : "perl", + "meta-spec" : { + "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html", + "version" : 1.4 + }, + "name" : "Version-Requirements", + "recommends" : {}, + "requires" : { + "Carp" : "0", + "Scalar::Util" : "0", + "version" : "0.77" + }, + "resources" : { + "repository" : "git://git.codesimply.com/Version-Requirements.git" + }, + "version" : "0.101010" +} + diff --git a/cpan/Parse-CPAN-Meta/t/data/VR-META.yml b/cpan/Parse-CPAN-Meta/t/data/VR-META.yml new file mode 100644 index 0000000000..56d50ddc3d --- /dev/null +++ b/cpan/Parse-CPAN-Meta/t/data/VR-META.yml @@ -0,0 +1,22 @@ +--- +abstract: 'a set of version requirements for a CPAN dist' +author: + - 'Ricardo Signes <rjbs@cpan.org>' +build_requires: + Test::More: 0.88 +configure_requires: + ExtUtils::MakeMaker: 6.31 +generated_by: 'Dist::Zilla version 2.100991' +license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Version-Requirements +recommends: {} +requires: + Carp: 0 + Scalar::Util: 0 + version: 0.77 +resources: + repository: git://git.codesimply.com/Version-Requirements.git +version: 0.101010 diff --git a/cpan/Parse-CPAN-Meta/t/data/multibyte.yml b/cpan/Parse-CPAN-Meta/t/data/multibyte.yml deleted file mode 100644 index 91f3459107..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/multibyte.yml +++ /dev/null @@ -1,22 +0,0 @@ ---- -abstract: Perl-compatible regular expression engine -author: "Ævar Arnfjörð Bjarmason <avar@cpan.org>" -build_requires: - Config: 0 - Test::More: 0 - XSLoader: 0 -distribution_type: module -generated_by: Module::Install version 0.65 -license: perl -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.3.html - version: 1.3 -name: re-engine-PCRE -no_index: - directory: - - inc - - t -requires: - perl: 5.9.5 -tests: t/*.t t/*/*.t -version: 0.10 diff --git a/cpan/Parse-CPAN-Meta/t/data/sample.yml b/cpan/Parse-CPAN-Meta/t/data/sample.yml deleted file mode 100644 index bea4f8ad42..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/sample.yml +++ /dev/null @@ -1,28 +0,0 @@ ---- -invoice: 34843 -date : 2001-01-23 -bill-to: - given : Chris - family : Dumars - address: - lines: | - 458 Walkman Dr. - Suite #292 - city : Royal Oak - state : MI - postal : 48046 -product: - - sku : BL394D - quantity : 4 - description : Basketball - price : 450.00 - - sku : BL4438H - quantity : 1 - description : Super Hoop - price : 2392.00 -tax : 251.42 -total: 4443.52 -comments: > - Late afternoon is best. - Backup contact is Nancy - Billsmer @ 338-4338. diff --git a/cpan/Parse-CPAN-Meta/t/data/toolbar.yml b/cpan/Parse-CPAN-Meta/t/data/toolbar.yml deleted file mode 100644 index 5219248a9b..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/toolbar.yml +++ /dev/null @@ -1,16 +0,0 @@ -main_toolbar: - - item file-new - - item file-open - - item file-print# - - item file-close# - - item file-save-all - - item file-save - - - - item edit-changes-undo - - item edit-changes-redo - - - - item edit-cut - - item edit-copy - - item edit-paste - - item edit-replace - - item edit-delete diff --git a/cpan/Parse-CPAN-Meta/t/data/utf_16_le_bom.yml b/cpan/Parse-CPAN-Meta/t/data/utf_16_le_bom.yml Binary files differdeleted file mode 100644 index b9230ebb5a..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/utf_16_le_bom.yml +++ /dev/null diff --git a/cpan/Parse-CPAN-Meta/t/data/utf_16_le_bom.yml.packed b/cpan/Parse-CPAN-Meta/t/data/utf_16_le_bom.yml.packed deleted file mode 100644 index 478c5736f3..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/utf_16_le_bom.yml.packed +++ /dev/null @@ -1,16 +0,0 @@ -######################################################################### -This is a binary file that was packed with the 'uupacktool.pl' which -is included in the Perl distribution. - -To unpack this file use the following command: - - uupacktool.pl -u t/data/utf_16_le_bom.yml.packed t/data/utf_16_le_bom.yml - -To recreate it use the following command: - - uupacktool.pl -p t/data/utf_16_le_bom.yml t/data/utf_16_le_bom.yml.packed - -Created at Sat Jul 25 17:27:03 2009 -######################################################################### -__UU__ -6__XM`"T`+0`*`"T`(`!F`&\`;P`*```` diff --git a/cpan/Parse-CPAN-Meta/t/data/vanilla.yml b/cpan/Parse-CPAN-Meta/t/data/vanilla.yml deleted file mode 100644 index dc757e1a34..0000000000 --- a/cpan/Parse-CPAN-Meta/t/data/vanilla.yml +++ /dev/null @@ -1,98 +0,0 @@ -# VanillaPerl YAML config file ---- -# package info -package_name: VanillaPerl -package_version: 5 - -# directories -download_dir: c:\temp\vp_sources -build_dir: c:\temp\vp_build -image_dir: c:\vanilla-perl - -# Binary components -binary: - - name: dmake - url: http://search.cpan.org/CPAN/authors/id/S/SH/SHAY/dmake-4.5-20060619-SHAY.zip - license: - dmake/COPYING : dmake/COPYING - dmake/readme/license.txt: dmake/license.txt - install_to: - dmake/dmake.exe: dmake/bin/dmake.exe - dmake/startup: dmake/bin/startup - - - name: gcc-core - url: http://umn.dl.sourceforge.net/mingw/gcc-core-3.4.5-20060117-1.tar.gz - license: - COPYING: gcc/COPYING - COPYING.lib: gcc/COPYING.lib - install_to: mingw - - - name: gcc-g++ - url: http://umn.dl.sourceforge.net/mingw/gcc-g++-3.4.5-20060117-1.tar.gz - license: - install_to: mingw - - - name: binutils - url: http://umn.dl.sourceforge.net/mingw/binutils-2.16.91-20060119-1.tar.gz - license: - Copying: binutils/Copying - Copying.lib: binutils/Copying.lib - install_to: mingw - - - name: mingw-runtime - url: http://umn.dl.sourceforge.net/mingw/mingw-runtime-3.10.tar.gz - license: - doc/mingw-runtime/Contributors: mingw/Contributors - doc/mingw-runtime/Disclaimer: mingw/Disclaimer - install_to: mingw - - - name: w32api - url: http://umn.dl.sourceforge.net/mingw/w32api-3.6.tar.gz - license: - install_to: mingw - extra: - extra\README.w32api: licenses\win32api\README.w32api - -# Source components -source: - - name: perl - url: http://mirrors.kernel.org/CPAN/src/perl-5.8.8.tar.gz - license: - perl-5.8.8/Readme: perl/Readme - perl-5.8.8/Artistic: perl/Artistic - perl-5.8.8/Copying: perl/Copying - unpack_to: perl - install_to: perl - after: - extra\Config.pm: lib\CPAN\Config.pm - -# Additional modules to bundle in site\lib -modules: - # i.e. not used, but gets us the libwin32 dist - - name: Win32::Job - unpack_to: - APIFile: Win32API-File - - name: IO - force: 1 - - name: Compress::Zlib - - name: IO::Zlib - - name: Archive::Tar - - name: Net::FTP - extra: - extra\libnet.cfg: libnet.cfg - -# Extra files to be placed -# Signature.pm: perl\site\lib\Module\Signature.pm -extra: - README: README.txt - LICENSE.txt: LICENSE.txt - Changes: Release-Notes.txt - extra\Config.pm: perl\lib\CPAN\Config.pm - # reset this again - - extra\links\Perl-Documentation.url: links\Perl Documentation.url - extra\links\Perl-Homepage.url: links\Perl Homepage.url - extra\links\Perl-Mailing-Lists.url: links\Perl Mailing Lists.url - extra\links\Perlmonks-Community-Forum.url: links\Perlmonks Community Forum.url - extra\links\Search-CPAN-Modules.url: links\Search CPAN Modules.url - extra\links\Vanilla-Perl-Homepage.url: links\Vanilla Perl Homepage.url diff --git a/cpan/Parse-CPAN-Meta/t/lib/Parse/CPAN/Meta/Test.pm b/cpan/Parse-CPAN-Meta/t/lib/Parse/CPAN/Meta/Test.pm index 46f967b7dd..3e86911f07 100644 --- a/cpan/Parse-CPAN-Meta/t/lib/Parse/CPAN/Meta/Test.pm +++ b/cpan/Parse-CPAN-Meta/t/lib/Parse/CPAN/Meta/Test.pm @@ -59,7 +59,7 @@ sub yaml_ok { sub yaml_error { my $string = shift; my $yaml = eval { Parse::CPAN::Meta::Load( $string ); }; - Test::More::like( $@, qr/$_[0]/, "YAML::Tiny throws expected error" ); + Test::More::like( $@, qr/$_[0]/, "CPAN::Meta::YAML throws expected error" ); } sub slurp { |