[p5sagit/p5-mst-13.2.git] / cpan / Test-Harness / t / yamlish.t

#!perl -w

use strict;
use lib 't/lib';

use Test::More;

use TAP::Parser::YAMLish::Reader;

my @SCHEDULE;

BEGIN {
    @SCHEDULE = (
        {   name => 'Hello World',
            in   => [
                '--- Hello, World',
                '...',
            ],
            out => "Hello, World",
        },
        {   name => 'Hello World 2',
            in   => [
                '--- \'Hello, \'\'World\'',
                '...',
            ],
            out => "Hello, 'World",
        },
        {   name => 'Hello World 3',
            in   => [
                '--- "Hello, World"',
                '...',
            ],
            out => "Hello, World",
        },
        {   name => 'Hello World 4',
            in   => [
                '--- "Hello, World"',
                '...',
            ],
            out => "Hello, World",
        },
        {   name => 'Hello World 4',
            in   => [
                '--- >',
                '   Hello,',
                '      World',
                '...',
            ],
            out => "Hello, World\n",
        },
        {   name => 'Hello World Block',
            in   => [
                '--- |',
                '   Hello,',
                '      World',
                '...',
            ],
            out => "Hello,\n   World\n",
        },
        {   name => 'Hello World 5',
            in   => [
                '--- >',
                '   Hello,',
                '  World',
                '...',
            ],
            error => qr{Missing\s+'[.][.][.]'},
        },
        {   name => 'Simple array',
            in   => [
                '---',
                '- 1',
                '- 2',
                '- 3',
                '...',
            ],
            out => [ '1', '2', '3' ],
        },
        {   name => 'Mixed array',
            in   => [
                '---',
                '- 1',
                '- \'two\'',
                '- "three\n"',
                '...',
            ],
            out => [ '1', 'two', "three\n" ],
        },
        {   name => 'Hash in array',
            in   => [
                '---',
                '- 1',
                '- two: 2',
                '- 3',
                '...',
            ],
            out => [ '1', { two => '2' }, '3' ],
        },
        {   name => 'Hash in array 2',
            in   => [
                '---',
                '- 1',
                '- two: 2',
                '  three: 3',
                '- 4',
                '...',
            ],
            out => [ '1', { two => '2', three => '3' }, '4' ],
        },
        {   name => 'Nested array',
            in   => [
                '---',
                '- one',
                '-',
                '  - two',
                '  -',
                '    - three',
                '  - four',
                '- five',
                '...',
            ],
            out => [ 'one', [ 'two', ['three'], 'four' ], 'five' ],
        },
        {   name => 'Nested hash',
            in   => [
                '---',
                'one:',
                '  five: 5',
                '  two:',
                '    four: 4',
                '    three: 3',
                'six: 6',
                '...',
            ],
            out => {
                one => { two => { three => '3', four => '4' }, five => '5' },
                six => '6'
            },
        },
        {   name => 'Space after colon',
            in   => [ '---', 'spog: ', ' - 1', ' - 2', '...' ],
            out => { spog => [ 1, 2 ] },
        },
        {   name => 'Original YAML::Tiny test',
            in   => [
                '---',
                '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',
                '...',
            ],
            out => {
                'bill-to' => {
                    'given'   => 'Chris',
                    'address' => {
                        'city'   => 'Royal Oak',
                        'postal' => '48046',
                        'lines'  => "458 Walkman Dr.\nSuite #292\n",
                        'state'  => 'MI'
                    },
                    'family' => 'Dumars'
                },
                'invoice' => '34843',
                'date'    => '2001-01-23',
                'tax'     => '251.42',
                'product' => [
                    {   'sku'         => 'BL394D',
                        'quantity'    => '4',
                        'price'       => '450.00',
                        'description' => 'Basketball'
                    },
                    {   'sku'         => 'BL4438H',
                        'quantity'    => '1',
                        'price'       => '2392.00',
                        'description' => 'Super Hoop'
                    }
                ],
                'comments' =>
                  "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n",
                'total' => '4443.52'
            }
        },

        # Tests harvested from YAML::Tiny
        {   in    => ['...'],
            name  => 'Regression: empty',
            error => qr{document\s+header\s+not\s+found}
        },
        {   in => [
                '# comment',
                '...'
            ],
            name  => 'Regression: only_comment',
            error => qr{document\s+header\s+not\s+found}
        },
        {   out => undef,
            in  => [
                '---',
                '...'
            ],
            name  => 'Regression: only_header',
            error => qr{Premature\s+end}i,
        },
        {   out => undef,
            in  => [
                '---',
                '---',
                '...'
            ],
            name  => 'Regression: two_header',
            error => qr{Unexpected\s+start}i,
        },
        {   out => undef,
            in  => [
                '--- ~',
                '...'
            ],
            name => 'Regression: one_undef'
        },
        {   out => undef,
            in  => [
                '---  ~',
                '...'
            ],
            name => 'Regression: one_undef2'
        },
        {   in => [
                '--- ~',
                '---',
                '...'
            ],
            name  => 'Regression: two_undef',
            error => qr{Missing\s+'[.][.][.]'},
        },
        {   out => 'foo',
            in  => [
                '--- foo',
                '...'
            ],
            name => 'Regression: one_scalar',
        },
        {   out => 'foo',
            in  => [
                '---  foo',
                '...'
            ],
            name => 'Regression: one_scalar2',
        },
        {   in => [
                '--- foo',
                '--- bar',
                '...'
            ],
            name  => 'Regression: two_scalar',
            error => qr{Missing\s+'[.][.][.]'},
        },
        {   out => ['foo'],
            in  => [
                '---',
                '- foo',
                '...'
            ],
            name => 'Regression: one_list1'
        },
        {   out => [
                'foo',
                'bar'
            ],
            in => [
                '---',
                '- foo',
                '- bar',
                '...'
            ],
            name => 'Regression: one_list2'
        },
        {   out => [
                undef,
                'bar'
            ],
            in => [
                '---',
                '- ~',
                '- bar',
                '...'
            ],
            name => 'Regression: one_listundef'
        },
        {   out => { 'foo' => 'bar' },
            in  => [
                '---',
                'foo: bar',
                '...'
            ],
            name => 'Regression: one_hash1'
        },
        {   out => {
                'foo'  => 'bar',
                'this' => undef
            },
            in => [
                '---',
                'foo: bar',
                'this: ~',
                '...'
            ],
            name => 'Regression: one_hash2'
        },
        {   out => {
                'foo' => [
                    'bar',
                    undef,
                    'baz'
                ]
            },
            in => [
                '---',
                'foo:',
                '  - bar',
                '  - ~',
                '  - baz',
                '...'
            ],
            name => 'Regression: array_in_hash'
        },
        {   out => {
                'bar' => { 'foo' => 'bar' },
                'foo' => undef
            },
            in => [
                '---',
                'foo: ~',
                'bar:',
                '  foo: bar',
                '...'
            ],
            name => 'Regression: hash_in_hash'
        },
        {   out => [
                {   'foo'  => undef,
                    'this' => 'that'
                },
                'foo', undef,
                {   'foo'  => 'bar',
                    'this' => 'that'
                }
            ],
            in => [
                '---',
                '-',
                '  foo: ~',
                '  this: that',
                '- foo',
                '- ~',
                '-',
                '  foo: bar',
                '  this: that',
                '...'
            ],
            name => 'Regression: hash_in_array'
        },
        {   out => ['foo'],
            in  => [
                '---',
                '- \'foo\'',
                '...'
            ],
            name => 'Regression: single_quote1'
        },
        {   out => ['  '],
            in  => [
                '---',
                '- \'  \'',
                '...'
            ],
            name => 'Regression: single_spaces'
        },
        {   out => [''],
            in  => [
                '---',
                '- \'\'',
                '...'
            ],
            name => 'Regression: single_null'
        },
        {   out => '  ',
            in  => [
                '--- "  "',
                '...'
            ],
            name => 'Regression: only_spaces'
        },
        {   out => [
                undef,
                {   'foo'  => 'bar',
                    'this' => 'that'
                },
                'baz'
            ],
            in => [
                '---',
                '- ~',
                '- foo: bar',
                '  this: that',
                '- baz',
                '...'
            ],
            name => 'Regression: inline_nested_hash'
        },
        {   name => "Unprintables",
            in   => [
                "---",
                "- \"\\z\\x01\\x02\\x03\\x04\\x05\\x06\\a\\x08\\t\\n\\v\\f\\r\\x0e\\x0f\"",
                "- \"\\x10\\x11\\x12\\x13\\x14\\x15\\x16\\x17\\x18\\x19\\x1a\\e\\x1c\\x1d\\x1e\\x1f\"",
                "- \" !\\\"#\$%&'()*+,-./\"",
                "- 0123456789:;<=>?",
                "- '\@ABCDEFGHIJKLMNO'",
                "- 'PQRSTUVWXYZ[\\]^_'",
                "- '`abcdefghijklmno'",
                "- 'pqrstuvwxyz{|}~\177'",
                "- \200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217",
                "- \220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237",
                "- \240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257",
                "- \260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277",
                "- \300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317",
                "- \320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337",
                "- \340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357",
                "- \360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377",
                "..."
            ],
            out => [
                "\0\1\2\3\4\5\6\a\b\t\n\13\f\r\16\17",
                "\20\21\22\23\24\25\26\27\30\31\32\e\34\35\36\37",
                " !\"#\$%&'()*+,-./",
                "0123456789:;<=>?",
                "\@ABCDEFGHIJKLMNO",
                "PQRSTUVWXYZ[\\]^_",
                "`abcdefghijklmno",
                "pqrstuvwxyz{|}~\177",
                "\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217",
                "\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237",
                "\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257",
                "\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277",
                "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317",
                "\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337",
                "\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357",
                "\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377"
            ],
        },
        {   name => 'Quoted hash keys',
            in   => [
                '---',
                '  "quoted": Magic!',
                '  "\n\t": newline, tab',
                '...',
            ],
            out => {
                quoted => 'Magic!',
                "\n\t" => 'newline, tab',
            },
        },
        {   name => 'Empty',
            in   => [],
            out  => undef,
        },
    );

    plan tests => @SCHEDULE * 5;
}

sub iter {
    my $ar = shift;
    return sub {
        return shift @$ar;
    };
}

for my $test (@SCHEDULE) {
    my $name = $test->{name};
    ok my $yaml = TAP::Parser::YAMLish::Reader->new, "$name: Created";
    isa_ok $yaml, 'TAP::Parser::YAMLish::Reader';

    my $source = join( "\n", @{ $test->{in} } ) . "\n";

    my $iter = iter( $test->{in} );
    my $got = eval { $yaml->read($iter) };

    my $raw = $yaml->get_raw;

    if ( my $err = $test->{error} ) {
        unless ( like $@, $err, "$name: Error message" ) {
            diag "Error: $@\n";
        }
        ok !$got, "$name: No result";
        pass;
    }
    else {
        my $want = $test->{out};
        unless ( ok !$@, "$name: No error" ) {
            diag "Error: $@\n";
        }
        is_deeply $got, $want,   "$name: Result matches";
        is $raw,        $source, "$name: Captured source matches";
    }
}
Commit	Line	Data
f7c69158	1	#!perl -w
b965d173	2
	3	use strict;
	4	use lib 't/lib';
	5
	6	use Test::More;
	7
	8	use TAP::Parser::YAMLish::Reader;
	9
	10	my @SCHEDULE;
	11
	12	BEGIN {
	13	@SCHEDULE = (
	14	{ name => 'Hello World',
	15	in => [
	16	'--- Hello, World',
	17	'...',
	18	],
	19	out => "Hello, World",
	20	},
	21	{ name => 'Hello World 2',
	22	in => [
	23	'--- \'Hello, \'\'World\'',
	24	'...',
	25	],
	26	out => "Hello, 'World",
	27	},
	28	{ name => 'Hello World 3',
	29	in => [
	30	'--- "Hello, World"',
	31	'...',
	32	],
	33	out => "Hello, World",
	34	},
	35	{ name => 'Hello World 4',
	36	in => [
	37	'--- "Hello, World"',
	38	'...',
	39	],
	40	out => "Hello, World",
	41	},
	42	{ name => 'Hello World 4',
	43	in => [
	44	'--- >',
	45	' Hello,',
	46	' World',
	47	'...',
	48	],
	49	out => "Hello, World\n",
	50	},
f7c69158	51	{ name => 'Hello World Block',
	52	in => [
	53	'--- \|',
	54	' Hello,',
	55	' World',
	56	'...',
	57	],
	58	out => "Hello,\n World\n",
	59	},
b965d173	60	{ name => 'Hello World 5',
	61	in => [
	62	'--- >',
	63	' Hello,',
	64	' World',
	65	'...',
	66	],
	67	error => qr{Missing\s+'[.][.][.]'},
	68	},
	69	{ name => 'Simple array',
	70	in => [
	71	'---',
	72	'- 1',
	73	'- 2',
	74	'- 3',
	75	'...',
	76	],
	77	out => [ '1', '2', '3' ],
	78	},
	79	{ name => 'Mixed array',
	80	in => [
	81	'---',
	82	'- 1',
	83	'- \'two\'',
	84	'- "three\n"',
	85	'...',
	86	],
	87	out => [ '1', 'two', "three\n" ],
	88	},
	89	{ name => 'Hash in array',
	90	in => [
	91	'---',
	92	'- 1',
	93	'- two: 2',
	94	'- 3',
	95	'...',
	96	],
	97	out => [ '1', { two => '2' }, '3' ],
	98	},
	99	{ name => 'Hash in array 2',
	100	in => [
	101	'---',
	102	'- 1',
	103	'- two: 2',
	104	' three: 3',
	105	'- 4',
	106	'...',
	107	],
	108	out => [ '1', { two => '2', three => '3' }, '4' ],
	109	},
	110	{ name => 'Nested array',
	111	in => [
	112	'---',
	113	'- one',
	114	'-',
	115	' - two',
	116	' -',
	117	' - three',
	118	' - four',
	119	'- five',
	120	'...',
	121	],
	122	out => [ 'one', [ 'two', ['three'], 'four' ], 'five' ],
	123	},
124	{ name => 'Nested hash',
125	in => [
126	'---',
127	'one:',
128	' five: 5',
129	' two:',
130	' four: 4',
131	' three: 3',
132	'six: 6',
133	'...',
134	],
135	out => {
136	one => { two => { three => '3', four => '4' }, five => '5' },
137	six => '6'
138	},
139	},
f7c69158	140	{ name => 'Space after colon',
	141	in => [ '---', 'spog: ', ' - 1', ' - 2', '...' ],
	142	out => { spog => [ 1, 2 ] },
	143	},
b965d173	144	{ name => 'Original YAML::Tiny test',
	145	in => [
	146	'---',
	147	'invoice: 34843',
	148	'date : 2001-01-23',
	149	'bill-to:',
	150	' given : Chris',
	151	' family : Dumars',
	152	' address:',
	153	' lines: \|',
	154	' 458 Walkman Dr.',
	155	' Suite #292',
	156	' city : Royal Oak',
	157	' state : MI',
	158	' postal : 48046',
	159	'product:',
	160	' - sku : BL394D',
	161	' quantity : 4',
	162	' description : Basketball',
	163	' price : 450.00',
	164	' - sku : BL4438H',
	165	' quantity : 1',
	166	' description : Super Hoop',
	167	' price : 2392.00',
	168	'tax : 251.42',
	169	'total: 4443.52',
	170	'comments: >',
	171	' Late afternoon is best.',
	172	' Backup contact is Nancy',
	173	' Billsmer @ 338-4338',
	174	'...',
	175	],
	176	out => {
	177	'bill-to' => {
	178	'given' => 'Chris',
	179	'address' => {
	180	'city' => 'Royal Oak',
	181	'postal' => '48046',
	182	'lines' => "458 Walkman Dr.\nSuite #292\n",
	183	'state' => 'MI'
	184	},
	185	'family' => 'Dumars'
	186	},
	187	'invoice' => '34843',
	188	'date' => '2001-01-23',
	189	'tax' => '251.42',
	190	'product' => [
	191	{ 'sku' => 'BL394D',
	192	'quantity' => '4',
	193	'price' => '450.00',
	194	'description' => 'Basketball'
	195	},
	196	{ 'sku' => 'BL4438H',
	197	'quantity' => '1',
	198	'price' => '2392.00',
	199	'description' => 'Super Hoop'
	200	}
	201	],
	202	'comments' =>
	203	"Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n",
	204	'total' => '4443.52'
	205	}
	206	},
	207
208	# Tests harvested from YAML::Tiny
209	{ in => ['...'],
210	name => 'Regression: empty',
211	error => qr{document\s+header\s+not\s+found}
212	},
213	{ in => [
214	'# comment',
215	'...'
216	],
217	name => 'Regression: only_comment',
218	error => qr{document\s+header\s+not\s+found}
219	},
220	{ out => undef,
221	in => [
222	'---',
223	'...'
224	],
225	name => 'Regression: only_header',
226	error => qr{Premature\s+end}i,
227	},
228	{ out => undef,
229	in => [
230	'---',
231	'---',
232	'...'
233	],
234	name => 'Regression: two_header',
235	error => qr{Unexpected\s+start}i,
236	},
237	{ out => undef,
238	in => [
239	'--- ~',
240	'...'
241	],
242	name => 'Regression: one_undef'
243	},
244	{ out => undef,
245	in => [
246	'--- ~',
247	'...'
248	],
249	name => 'Regression: one_undef2'
250	},
251	{ in => [
252	'--- ~',
253	'---',
254	'...'
255	],
256	name => 'Regression: two_undef',
257	error => qr{Missing\s+'[.][.][.]'},
258	},
259	{ out => 'foo',
260	in => [
261	'--- foo',
262	'...'
263	],
264	name => 'Regression: one_scalar',
265	},
266	{ out => 'foo',
267	in => [
268	'--- foo',
269	'...'
270	],
271	name => 'Regression: one_scalar2',
272	},
273	{ in => [
274	'--- foo',
275	'--- bar',
276	'...'
277	],
278	name => 'Regression: two_scalar',
279	error => qr{Missing\s+'[.][.][.]'},
280	},
281	{ out => ['foo'],
282	in => [
283	'---',
284	'- foo',
285	'...'
286	],
287	name => 'Regression: one_list1'
288	},
289	{ out => [
290	'foo',
291	'bar'
292	],
293	in => [
294	'---',
295	'- foo',
296	'- bar',
297	'...'
298	],
299	name => 'Regression: one_list2'
300	},
301	{ out => [
302	undef,
303	'bar'
304	],
305	in => [
306	'---',
307	'- ~',
308	'- bar',
309	'...'
310	],
311	name => 'Regression: one_listundef'
312	},
313	{ out => { 'foo' => 'bar' },
314	in => [
315	'---',
316	'foo: bar',
317	'...'
318	],
319	name => 'Regression: one_hash1'
320	},
321	{ out => {
322	'foo' => 'bar',
323	'this' => undef
324	},
325	in => [
326	'---',
327	'foo: bar',
328	'this: ~',
329	'...'
330	],
331	name => 'Regression: one_hash2'
332	},
333	{ out => {
334	'foo' => [
335	'bar',
336	undef,
337	'baz'
338	]
339	},
340	in => [
341	'---',
342	'foo:',
343	' - bar',
344	' - ~',
345	' - baz',
346	'...'
347	],
348	name => 'Regression: array_in_hash'
349	},
350	{ out => {
351	'bar' => { 'foo' => 'bar' },
352	'foo' => undef
353	},
354	in => [
355	'---',
356	'foo: ~',
357	'bar:',
358	' foo: bar',
359	'...'
360	],
361	name => 'Regression: hash_in_hash'
362	},
363	{ out => [
364	{ 'foo' => undef,
365	'this' => 'that'
366	},
367	'foo', undef,
368	{ 'foo' => 'bar',
369	'this' => 'that'
370	}
371	],
372	in => [
373	'---',
374	'-',
375	' foo: ~',
376	' this: that',
377	'- foo',
378	'- ~',
379	'-',
380	' foo: bar',
381	' this: that',
382	'...'
383	],
384	name => 'Regression: hash_in_array'
385	},
386	{ out => ['foo'],
387	in => [
388	'---',
389	'- \'foo\'',
390	'...'
391	],
392	name => 'Regression: single_quote1'
393	},
394	{ out => [' '],
395	in => [
396	'---',
397	'- \' \'',
398	'...'
399	],
400	name => 'Regression: single_spaces'
401	},
402	{ out => [''],
403	in => [
404	'---',
405	'- \'\'',
406	'...'
407	],
408	name => 'Regression: single_null'
409	},
410	{ out => ' ',
411	in => [
412	'--- " "',
413	'...'
414	],
415	name => 'Regression: only_spaces'
416	},
417	{ out => [
418	undef,
419	{ 'foo' => 'bar',
420	'this' => 'that'
421	},
422	'baz'
423	],
424	in => [
425	'---',
426	'- ~',
427	'- foo: bar',
428	' this: that',
429	'- baz',
430	'...'
431	],
432	name => 'Regression: inline_nested_hash'
433	},
434	{ name => "Unprintables",
435	in => [
436	"---",
437	"- \"\\z\\x01\\x02\\x03\\x04\\x05\\x06\\a\\x08\\t\\n\\v\\f\\r\\x0e\\x0f\"",
438	"- \"\\x10\\x11\\x12\\x13\\x14\\x15\\x16\\x17\\x18\\x19\\x1a\\e\\x1c\\x1d\\x1e\\x1f\"",
439	"- \" !\\\"#\$%&'()*+,-./\"",
440	"- 0123456789:;<=>?",
441	"- '\@ABCDEFGHIJKLMNO'",
442	"- 'PQRSTUVWXYZ[\\]^_'",
443	"- '`abcdefghijklmno'",
444	"- 'pqrstuvwxyz{\|}~\177'",
445	"- \200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217",
446	"- \220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237",
447	"- \240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257",
448	"- \260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277",
449	"- \300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317",
450	"- \320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337",
451	"- \340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357",
452	"- \360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377",
453	"..."
454	],
455	out => [
456	"\0\1\2\3\4\5\6\a\b\t\n\13\f\r\16\17",
457	"\20\21\22\23\24\25\26\27\30\31\32\e\34\35\36\37",
458	" !\"#\$%&'()*+,-./",
459	"0123456789:;<=>?",
460	"\@ABCDEFGHIJKLMNO",
461	"PQRSTUVWXYZ[\\]^_",
462	"`abcdefghijklmno",
463	"pqrstuvwxyz{\|}~\177",
464	"\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217",
465	"\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237",
466	"\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257",
467	"\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277",
468	"\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317",
469	"\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337",
470	"\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357",
471	"\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377"
472	],
473	},
474	{ name => 'Quoted hash keys',
475	in => [
476	'---',
477	' "quoted": Magic!',
478	' "\n\t": newline, tab',
479	'...',
480	],
481	out => {
482	quoted => 'Magic!',
483	"\n\t" => 'newline, tab',
484	},
485	},
f7c69158	486	{ name => 'Empty',
	487	in => [],
	488	out => undef,
	489	},
b965d173	490	);
	491
	492	plan tests => @SCHEDULE * 5;
	493	}
	494
	495	sub iter {
	496	my $ar = shift;
	497	return sub {
	498	return shift @$ar;
	499	};
	500	}
	501
	502	for my $test (@SCHEDULE) {
	503	my $name = $test->{name};
	504	ok my $yaml = TAP::Parser::YAMLish::Reader->new, "$name: Created";
	505	isa_ok $yaml, 'TAP::Parser::YAMLish::Reader';
	506
	507	my $source = join( "\n", @{ $test->{in} } ) . "\n";
	508
	509	my $iter = iter( $test->{in} );
	510	my $got = eval { $yaml->read($iter) };
	511
	512	my $raw = $yaml->get_raw;
	513
	514	if ( my $err = $test->{error} ) {
	515	unless ( like $@, $err, "$name: Error message" ) {
	516	diag "Error: $@\n";
	517	}
	518	ok !$got, "$name: No result";
	519	pass;
	520	}
	521	else {
	522	my $want = $test->{out};
	523	unless ( ok !$@, "$name: No error" ) {
	524	diag "Error: $@\n";
	525	}
	526	is_deeply $got, $want, "$name: Result matches";
	527	is $raw, $source, "$name: Captured source matches";
	528	}
	529	}