Move unused dependency to test deps

[nailing-cargo.git] / t / toml-test / valid / example.t

diff --git a/t/toml-test/valid/example.t b/t/toml-test/valid/example.t
index 318fafbf5ef675bc96db7c60f1ff3b125561413a..1546360847617cb14fecc8feb6afc44dae039ac0 100644 (file)
--- a/t/toml-test/valid/example.t
+++ b/t/toml-test/valid/example.t
@@ -2,22 +2,44 @@
 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)';
 binmode STDOUT, ':encoding(UTF-8)';
 
 my $expected1 = {
+               'best-day-ever' => 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';
+                                                         my $exp = 'DateTime::Format::RFC3339'->parse_datetime('1987-07-05T17:45:00Z');
+                                                         my $got = 'DateTime::Format::RFC3339'->parse_datetime($_);
+                                                         $exp->set_time_zone('UTC');
+                                                         $got->set_time_zone('UTC');
+                                                         return 'DateTime'->compare($got, $exp) == 0;
+                                                     },
+                                           '_file' => '(eval 376)',
+                                           'name' => '<Custom Code>',
+                                           'operator' => 'CODE(...)',
+                                           '_lines' => [
+                                                         11
+                                                       ]
+                                         }, 'Test2::Compare::Custom' ),
                'numtheory' => {
                                 'boring' => 0,
                                 'perfection' => [
                                                   bless( {
-                                                           '_file' => '(eval 373)',
-                                                           'operator' => 'CODE(...)',
-                                                           'name' => '<Custom Code>',
                                                            '_lines' => [
                                                                          6
                                                                        ],
+                                                           '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;
@@ -25,7 +47,8 @@ my $expected1 = {
                                                                          use feature ':5.16';
                                                                          require Math::BigInt;
                                                                          'Math::BigInt'->new('6')->beq($_);
-                                                                     }
+                                                                     },
+                                                           '_file' => '(eval 373)'
                                                          }, 'Test2::Compare::Custom' ),
                                                   bless( {
                                                            'code' => sub {
@@ -36,19 +59,20 @@ my $expected1 = {
                                                                          require Math::BigInt;
                                                                          'Math::BigInt'->new('28')->beq($_);
                                                                      },
-                                                           '_lines' => [
-                                                                         6
-                                                                       ],
+                                                           '_file' => '(eval 374)',
                                                            'name' => '<Custom Code>',
                                                            'operator' => 'CODE(...)',
-                                                           '_file' => '(eval 374)'
+                                                           '_lines' => [
+                                                                         6
+                                                                       ]
                                                          }, 'Test2::Compare::Custom' ),
                                                   bless( {
-                                                           'name' => '<Custom Code>',
-                                                           'operator' => 'CODE(...)',
                                                            '_lines' => [
                                                                          6
                                                                        ],
+                                                           'name' => '<Custom Code>',
+                                                           'operator' => 'CODE(...)',
+                                                           '_file' => '(eval 375)',
                                                            '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;
@@ -56,30 +80,10 @@ my $expected1 = {
                                                                          use feature ':5.16';
                                                                          require Math::BigInt;
                                                                          'Math::BigInt'->new('496')->beq($_);
-                                                                     },
-                                                           '_file' => '(eval 375)'
+                                                                     }
                                                          }, 'Test2::Compare::Custom' )
                                                 ]
-                              },
-               'best-day-ever' => 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';
-                                                         my $exp = 'DateTime::Format::RFC3339'->parse_datetime('1987-07-05T17:45:00Z');
-                                                         my $got = 'DateTime::Format::RFC3339'->parse_datetime($_);
-                                                         $exp->set_time_zone('UTC');
-                                                         $got->set_time_zone('UTC');
-                                                         return 'DateTime'->compare($got, $exp) == 0;
-                                                     },
-                                           '_lines' => [
-                                                         11
-                                                       ],
-                                           'name' => '<Custom Code>',
-                                           'operator' => 'CODE(...)',
-                                           '_file' => '(eval 376)'
-                                         }, 'Test2::Compare::Custom' )
+                              }
              };