chiark / gitweb /
Move unused dependency to test deps
[nailing-cargo.git] / t / toml-test / valid / arrays.t
index f2fbb4c33a8ae502772b812e8688641cd3509b10..12e5ab90ca94021cbff18f2eb59c5c31318f8cfb 100644 (file)
@@ -2,6 +2,10 @@
 use utf8;
 use Test2::V0;
 use Data::Dumper;
+use DateTime;
+use DateTime::Format::RFC3339;
+use Math::BigInt;
+use Math::BigFloat;
 use TOML::Tiny;
 
 binmode STDIN,  ':encoding(UTF-8)';
@@ -10,12 +14,7 @@ binmode STDOUT, ':encoding(UTF-8)';
 my $expected1 = {
                'dates' => [
                             bless( {
-                                     '_file' => '(eval 139)',
-                                     'name' => '<Custom Code>',
-                                     'operator' => 'CODE(...)',
-                                     '_lines' => [
-                                                   11
-                                                 ],
+                                     '_file' => '(eval 136)',
                                      'code' => sub {
                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
                                                    use strict;
@@ -26,11 +25,19 @@ my $expected1 = {
                                                    $exp->set_time_zone('UTC');
                                                    $got->set_time_zone('UTC');
                                                    return 'DateTime'->compare($got, $exp) == 0;
-                                               }
+                                               },
+                                     'operator' => 'CODE(...)',
+                                     'name' => '<Custom Code>',
+                                     '_lines' => [
+                                                   11
+                                                 ]
                                    }, 'Test2::Compare::Custom' ),
                             bless( {
-                                     'name' => '<Custom Code>',
+                                     '_lines' => [
+                                                   11
+                                                 ],
                                      'operator' => 'CODE(...)',
+                                     'name' => '<Custom Code>',
                                      'code' => sub {
                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
                                                    use strict;
@@ -42,12 +49,13 @@ my $expected1 = {
                                                    $got->set_time_zone('UTC');
                                                    return 'DateTime'->compare($got, $exp) == 0;
                                                },
+                                     '_file' => '(eval 357)'
+                                   }, 'Test2::Compare::Custom' ),
+                            bless( {
                                      '_lines' => [
                                                    11
                                                  ],
-                                     '_file' => '(eval 360)'
-                                   }, 'Test2::Compare::Custom' ),
-                            bless( {
+                                     '_file' => '(eval 358)',
                                      'code' => sub {
                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
                                                    use strict;
@@ -59,110 +67,22 @@ my $expected1 = {
                                                    $got->set_time_zone('UTC');
                                                    return 'DateTime'->compare($got, $exp) == 0;
                                                },
-                                     '_lines' => [
-                                                   11
-                                                 ],
-                                     'name' => '<Custom Code>',
                                      'operator' => 'CODE(...)',
-                                     '_file' => '(eval 361)'
+                                     'name' => '<Custom Code>'
                                    }, 'Test2::Compare::Custom' )
                           ],
-               'floats' => [
-                             bless( {
-                                      '_file' => '(eval 136)',
-                                      'code' => sub {
-                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
-                                                    use strict;
-                                                    no feature ':all';
-                                                    use feature ':5.16';
-                                                    require Math::BigFloat;
-                                                    'Math::BigFloat'->new('1.1')->beq($_);
-                                                },
-                                      '_lines' => [
-                                                    6
-                                                  ],
-                                      'operator' => 'CODE(...)',
-                                      'name' => '<Custom Code>'
-                                    }, 'Test2::Compare::Custom' ),
-                             bless( {
-                                      'code' => sub {
-                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
-                                                    use strict;
-                                                    no feature ':all';
-                                                    use feature ':5.16';
-                                                    require Math::BigFloat;
-                                                    'Math::BigFloat'->new('2.1')->beq($_);
-                                                },
-                                      '_lines' => [
-                                                    6
-                                                  ],
-                                      'name' => '<Custom Code>',
-                                      'operator' => 'CODE(...)',
-                                      '_file' => '(eval 137)'
-                                    }, 'Test2::Compare::Custom' ),
-                             bless( {
-                                      '_file' => '(eval 138)',
-                                      'operator' => 'CODE(...)',
-                                      'name' => '<Custom Code>',
-                                      'code' => sub {
-                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
-                                                    use strict;
-                                                    no feature ':all';
-                                                    use feature ':5.16';
-                                                    require Math::BigFloat;
-                                                    'Math::BigFloat'->new('3.1')->beq($_);
-                                                },
-                                      '_lines' => [
-                                                    6
-                                                  ]
-                                    }, 'Test2::Compare::Custom' )
-                           ],
                'strings' => [
                               'a',
                               'b',
                               'c'
                             ],
-               'comments' => [
-                               bless( {
-                                        '_file' => '(eval 134)',
-                                        'code' => sub {
-                                                      BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
-                                                      use strict;
-                                                      no feature ':all';
-                                                      use feature ':5.16';
-                                                      require Math::BigInt;
-                                                      'Math::BigInt'->new('1')->beq($_);
-                                                  },
-                                        '_lines' => [
-                                                      6
-                                                    ],
-                                        'name' => '<Custom Code>',
-                                        'operator' => 'CODE(...)'
-                                      }, 'Test2::Compare::Custom' ),
-                               bless( {
-                                        '_file' => '(eval 135)',
-                                        'operator' => 'CODE(...)',
-                                        'name' => '<Custom Code>',
-                                        'code' => sub {
-                                                      BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
-                                                      use strict;
-                                                      no feature ':all';
-                                                      use feature ':5.16';
-                                                      require Math::BigInt;
-                                                      'Math::BigInt'->new('2')->beq($_);
-                                                  },
-                                        '_lines' => [
-                                                      6
-                                                    ]
-                                      }, 'Test2::Compare::Custom' )
-                             ],
                'ints' => [
                            bless( {
-                                    'name' => '<Custom Code>',
-                                    'operator' => 'CODE(...)',
                                     '_lines' => [
                                                   6
                                                 ],
+                                    'name' => '<Custom Code>',
+                                    'operator' => 'CODE(...)',
                                     'code' => sub {
                                                   BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
                                                   use strict;
@@ -171,9 +91,15 @@ my $expected1 = {
                                                   require Math::BigInt;
                                                   'Math::BigInt'->new('1')->beq($_);
                                               },
-                                    '_file' => '(eval 131)'
+                                    '_file' => '(eval 359)'
                                   }, 'Test2::Compare::Custom' ),
                            bless( {
+                                    '_lines' => [
+                                                  6
+                                                ],
+                                    'operator' => 'CODE(...)',
+                                    'name' => '<Custom Code>',
+                                    '_file' => '(eval 360)',
                                     'code' => sub {
                                                   BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
                                                   use strict;
@@ -181,16 +107,11 @@ my $expected1 = {
                                                   use feature ':5.16';
                                                   require Math::BigInt;
                                                   'Math::BigInt'->new('2')->beq($_);
-                                              },
-                                    '_lines' => [
-                                                  6
-                                                ],
-                                    'operator' => 'CODE(...)',
-                                    'name' => '<Custom Code>',
-                                    '_file' => '(eval 132)'
+                                              }
                                   }, 'Test2::Compare::Custom' ),
                            bless( {
-                                    '_file' => '(eval 133)',
+                                    'name' => '<Custom Code>',
+                                    'operator' => 'CODE(...)',
                                     'code' => sub {
                                                   BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
                                                   use strict;
@@ -199,13 +120,96 @@ my $expected1 = {
                                                   require Math::BigInt;
                                                   'Math::BigInt'->new('3')->beq($_);
                                               },
+                                    '_file' => '(eval 361)',
                                     '_lines' => [
                                                   6
-                                                ],
-                                    'name' => '<Custom Code>',
-                                    'operator' => 'CODE(...)'
+                                                ]
                                   }, 'Test2::Compare::Custom' )
-                         ]
+                         ],
+               'comments' => [
+                               bless( {
+                                        '_file' => '(eval 134)',
+                                        'code' => sub {
+                                                      BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+                                                      use strict;
+                                                      no feature ':all';
+                                                      use feature ':5.16';
+                                                      require Math::BigInt;
+                                                      'Math::BigInt'->new('1')->beq($_);
+                                                  },
+                                        'operator' => 'CODE(...)',
+                                        'name' => '<Custom Code>',
+                                        '_lines' => [
+                                                      6
+                                                    ]
+                                      }, 'Test2::Compare::Custom' ),
+                               bless( {
+                                        'operator' => 'CODE(...)',
+                                        'name' => '<Custom Code>',
+                                        '_file' => '(eval 135)',
+                                        'code' => sub {
+                                                      BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+                                                      use strict;
+                                                      no feature ':all';
+                                                      use feature ':5.16';
+                                                      require Math::BigInt;
+                                                      'Math::BigInt'->new('2')->beq($_);
+                                                  },
+                                        '_lines' => [
+                                                      6
+                                                    ]
+                                      }, 'Test2::Compare::Custom' )
+                             ],
+               'floats' => [
+                             bless( {
+                                      '_lines' => [
+                                                    6
+                                                  ],
+                                      'code' => sub {
+                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+                                                    use strict;
+                                                    no feature ':all';
+                                                    use feature ':5.16';
+                                                    require Math::BigFloat;
+                                                    'Math::BigFloat'->new('1.1')->beq($_);
+                                                },
+                                      '_file' => '(eval 131)',
+                                      'name' => '<Custom Code>',
+                                      'operator' => 'CODE(...)'
+                                    }, 'Test2::Compare::Custom' ),
+                             bless( {
+                                      '_file' => '(eval 132)',
+                                      'code' => sub {
+                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+                                                    use strict;
+                                                    no feature ':all';
+                                                    use feature ':5.16';
+                                                    require Math::BigFloat;
+                                                    'Math::BigFloat'->new('2.1')->beq($_);
+                                                },
+                                      'operator' => 'CODE(...)',
+                                      'name' => '<Custom Code>',
+                                      '_lines' => [
+                                                    6
+                                                  ]
+                                    }, 'Test2::Compare::Custom' ),
+                             bless( {
+                                      '_lines' => [
+                                                    6
+                                                  ],
+                                      '_file' => '(eval 133)',
+                                      'code' => sub {
+                                                    BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+                                                    use strict;
+                                                    no feature ':all';
+                                                    use feature ':5.16';
+                                                    require Math::BigFloat;
+                                                    'Math::BigFloat'->new('3.1')->beq($_);
+                                                },
+                                      'operator' => 'CODE(...)',
+                                      'name' => '<Custom Code>'
+                                    }, 'Test2::Compare::Custom' )
+                           ]
              };