diff options
author | Matěj Cepl <mcepl@redhat.com> | 2012-02-24 14:12:51 +0100 |
---|---|---|
committer | Matěj Cepl <mcepl@redhat.com> | 2012-02-24 14:12:51 +0100 |
commit | 50596479647f4c7a6acaead7b75e583c70e5cc56 (patch) | |
tree | e8ea06b28743124f7d972e4d43a92dd099ce84ca /Data-YAML-0.0.6/t/20-reader.t | |
parent | 170d827e642de4980049c2ea71ebcf1852e29c9c (diff) | |
download | yamlish-50596479647f4c7a6acaead7b75e583c70e5cc56.tar.gz |
Replace Data-YAML unpacked checkout with true submodule.
Diffstat (limited to 'Data-YAML-0.0.6/t/20-reader.t')
-rw-r--r-- | Data-YAML-0.0.6/t/20-reader.t | 419 |
1 files changed, 0 insertions, 419 deletions
diff --git a/Data-YAML-0.0.6/t/20-reader.t b/Data-YAML-0.0.6/t/20-reader.t deleted file mode 100644 index fc6806f..0000000 --- a/Data-YAML-0.0.6/t/20-reader.t +++ /dev/null @@ -1,419 +0,0 @@ -use strict; -use warnings; -use Test::More; -use Data::Dumper; - -use Data::YAML::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 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 => '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', - }, - }, - ); - - 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 = Data::YAML::Reader->new, "$name: Created"; - isa_ok $yaml, 'Data::YAML::Reader'; - - # diag "$name\n"; - - # unless ( $test->{in} ) { - # pass for 1 .. 2; - # use YAML; - # diag "Input for test:\n"; - # diag( Dump( $test->{out} ) ); - # next; - # } - - 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"; - } - unless ( is_deeply $got, $want, "$name: Result matches" ) { - local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1; - diag( Data::Dumper->Dump( [$got], ['$got'] ) ); - diag( Data::Dumper->Dump( [$want], ['$expected'] ) ); - } - is $raw, $source, "$name: Captured source matches"; - } -} |