sometimes fork() isn't available
[perl.git] / cpan / CPAN-Meta-YAML / t / 18_tap.t
1 #!/usr/bin/perl
2
3 # Testing relating to functionality in the Test Anything Protocol
4
5 use strict;
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 );