chiark / gitweb /
Move unused dependency to test deps
[nailing-cargo.git] / t / toml-test / valid / integer.t
index ce1d2ced0519bc16696456dc75d76542ed5ce053..50d2fb706a0ba0be209592e6c169e2e82ea09a46 100644 (file)
@@ -2,64 +2,53 @@
 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 = {
-               'zero' => bless( {
-                                  '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('0')->beq($_);
-                                            },
-                                  '_lines' => [
-                                                6
-                                              ],
-                                  '_file' => '(eval 406)'
-                                }, 'Test2::Compare::Custom' ),
-               'neganswer' => bless( {
+               'posanswer' => bless( {
                                        '_lines' => [
                                                      6
                                                    ],
+                                       '_file' => '(eval 406)',
                                        '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('-42')->beq($_);
+                                                     'Math::BigInt'->new('42')->beq($_);
                                                  },
-                                       'operator' => 'CODE(...)',
                                        'name' => '<Custom Code>',
-                                       '_file' => '(eval 407)'
+                                       'operator' => 'CODE(...)'
                                      }, 'Test2::Compare::Custom' ),
-               'posanswer' => bless( {
-                                       '_file' => '(eval 405)',
+               'neganswer' => bless( {
                                        '_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;
                                                      no feature ':all';
                                                      use feature ':5.16';
                                                      require Math::BigInt;
-                                                     'Math::BigInt'->new('42')->beq($_);
+                                                     'Math::BigInt'->new('-42')->beq($_);
                                                  },
-                                       'name' => '<Custom Code>',
-                                       'operator' => 'CODE(...)'
+                                       '_file' => '(eval 405)'
                                      }, 'Test2::Compare::Custom' ),
                'answer' => bless( {
                                     '_lines' => [
                                                   6
                                                 ],
+                                    '_file' => '(eval 408)',
                                     '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;
@@ -68,10 +57,25 @@ my $expected1 = {
                                                   require Math::BigInt;
                                                   'Math::BigInt'->new('42')->beq($_);
                                               },
-                                    'name' => '<Custom Code>',
                                     'operator' => 'CODE(...)',
-                                    '_file' => '(eval 408)'
-                                  }, 'Test2::Compare::Custom' )
+                                    'name' => '<Custom Code>'
+                                  }, 'Test2::Compare::Custom' ),
+               'zero' => 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::BigInt;
+                                                'Math::BigInt'->new('0')->beq($_);
+                                            },
+                                  '_file' => '(eval 407)',
+                                  'operator' => 'CODE(...)',
+                                  'name' => '<Custom Code>'
+                                }, 'Test2::Compare::Custom' )
              };