This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update CPAN-Meta-YAML to CPAN version 0.010
[perl5.git] / cpan / CPAN-Meta-YAML / t / 18_tap.t
1 # Testing relating to functionality in the Test Anything Protocol
2
3 use strict;
4 use warnings;
5
6 BEGIN {
7     $|  = 1;
8     $^W = 1;
9 }
10
11 use File::Spec::Functions ':ALL';
12 use t::lib::Test;
13 use Test::More tests(5, 0, 0);
14 use CPAN::Meta::YAML ();
15
16
17
18
19
20 #####################################################################
21 # TAP Tests
22
23 # Make sure we support x-foo keys
24 yaml_ok(
25     "---\nx-foo: 1\n",
26     [ { 'x-foo' => 1 } ],
27     'x-foo key',
28 );
29
30 # Document ending (hash)
31 yaml_ok(
32       "---\n"
33     . "  foo: bar\n"
34     . "...\n",
35     [ { foo => "bar" } ],
36     'document_end_hash',
37     noyamlpm   => 1,
38     nosyck     => 1,
39     noyamlperl => 1,
40 );
41
42 # Document ending (array)
43 yaml_ok(
44       "---\n"
45     . "- foo\n"
46     . "...\n",
47     [ [ 'foo' ] ],
48     'document_end_array',
49     noyamlpm => 1,
50     noyamlperl => 1,
51 );
52
53 # Multiple documents (simple)
54 yaml_ok(
55       "---\n"
56     . "- foo\n"
57     . "...\n"
58     . "---\n"
59     . "- foo\n"
60     . "...\n",
61     [ [ 'foo' ], [ 'foo' ] ],
62     'multi_document_simple',
63     noyamlpm   => 1,
64     noyamlperl => 1,
65 );
66
67 # Multiple documents (whitespace-separated)
68 yaml_ok(
69       "---\n"
70     . "- foo\n"
71     . "...\n"
72     . "\n"
73     . "---\n"
74     . "- foo\n"
75     . "...\n",
76     [ [ 'foo' ], [ 'foo' ] ],
77     'multi_document_space',
78     noyamlpm   => 1,
79     noyamlperl => 1,
80 );