aboutsummaryrefslogtreecommitdiffstats
path: root/Data-YAML-0.0.6/t/20-reader.t
diff options
context:
space:
mode:
Diffstat (limited to 'Data-YAML-0.0.6/t/20-reader.t')
-rw-r--r--Data-YAML-0.0.6/t/20-reader.t419
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";
- }
-}
generated by cgit (git 2.34.1) at 2024-09-19 22:43:32 +0000