chiark / gitweb /
Move unused dependency to test deps
[nailing-cargo.git] / t / toml-test / valid / implicit-and-explicit-after.t
index eaad20db618382de9e71426d188439fa81700deb..43b881b601a58dffaed567bfc76a13c122814e2d 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)';
@@ -9,12 +13,29 @@ binmode STDOUT, ':encoding(UTF-8)';
 
 my $expected1 = {
                'a' => {
+                        'better' => bless( {
+                                             'operator' => 'CODE(...)',
+                                             'name' => '<Custom Code>',
+                                             '_file' => '(eval 394)',
+                                             '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('43')->beq($_);
+                                                       },
+                                             '_lines' => [
+                                                           6
+                                                         ]
+                                           }, 'Test2::Compare::Custom' ),
                         'b' => {
                                  'c' => {
                                           'answer' => bless( {
                                                                '_lines' => [
                                                                              6
                                                                            ],
+                                                               '_file' => '(eval 395)',
                                                                '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;
@@ -24,27 +45,10 @@ my $expected1 = {
                                                                              'Math::BigInt'->new('42')->beq($_);
                                                                          },
                                                                'operator' => 'CODE(...)',
-                                                               'name' => '<Custom Code>',
-                                                               '_file' => '(eval 395)'
+                                                               'name' => '<Custom Code>'
                                                              }, 'Test2::Compare::Custom' )
                                         }
-                               },
-                        'better' => bless( {
-                                             '_file' => '(eval 394)',
-                                             'name' => '<Custom Code>',
-                                             'operator' => 'CODE(...)',
-                                             '_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::BigInt;
-                                                           'Math::BigInt'->new('43')->beq($_);
-                                                       }
-                                           }, 'Test2::Compare::Custom' )
+                               }
                       }
              };