chiark / gitweb /
Move unused dependency to test deps
[nailing-cargo.git] / t / toml-test / valid / float-exponent.t
index 6a5f4c15546bfe1d5f69a8dcff8d07d76c93dc2e..de54a77af3514be1c23cac7833882e386b5ef680 100644 (file)
@@ -2,19 +2,39 @@
 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 = {
-               'pointlower' => bless( {
-                                        '_file' => '(eval 387)',
-                                        'operator' => 'CODE(...)',
-                                        'name' => '<Custom Code>',
+               'lower' => 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::BigFloat;
+                                                 'Math::BigFloat'->new('300.0')->beq($_);
+                                             },
+                                   '_file' => '(eval 389)',
+                                   '_lines' => [
+                                                 6
+                                               ]
+                                 }, 'Test2::Compare::Custom' ),
+               'pointupper' => bless( {
                                         '_lines' => [
                                                       6
                                                     ],
+                                        'name' => '<Custom Code>',
+                                        'operator' => 'CODE(...)',
+                                        '_file' => '(eval 390)',
                                         '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,10 +44,27 @@ my $expected1 = {
                                                       'Math::BigFloat'->new('310.0')->beq($_);
                                                   }
                                       }, 'Test2::Compare::Custom' ),
-               'pointupper' => bless( {
-                                        '_file' => '(eval 388)',
-                                        'name' => '<Custom Code>',
-                                        'operator' => 'CODE(...)',
+               'upper' => bless( {
+                                   '_lines' => [
+                                                 6
+                                               ],
+                                   '_file' => '(eval 384)',
+                                   '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('300.0')->beq($_);
+                                             },
+                                   'name' => '<Custom Code>',
+                                   'operator' => 'CODE(...)'
+                                 }, 'Test2::Compare::Custom' ),
+               'pointlower' => bless( {
+                                        '_lines' => [
+                                                      6
+                                                    ],
+                                        '_file' => '(eval 385)',
                                         '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;
@@ -36,30 +73,13 @@ my $expected1 = {
                                                       require Math::BigFloat;
                                                       'Math::BigFloat'->new('310.0')->beq($_);
                                                   },
-                                        '_lines' => [
-                                                      6
-                                                    ]
+                                        'operator' => 'CODE(...)',
+                                        'name' => '<Custom Code>'
                                       }, 'Test2::Compare::Custom' ),
-               'pos' => 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('300.0')->beq($_);
-                                           },
-                                 '_lines' => [
-                                               6
-                                             ],
-                                 'name' => '<Custom Code>',
-                                 'operator' => 'CODE(...)',
-                                 '_file' => '(eval 389)'
-                               }, 'Test2::Compare::Custom' ),
                'zero' => bless( {
-                                  '_file' => '(eval 390)',
-                                  '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;
@@ -68,44 +88,11 @@ my $expected1 = {
                                                 require Math::BigFloat;
                                                 'Math::BigFloat'->new('3.0')->beq($_);
                                             },
-                                  '_lines' => [
-                                                6
-                                              ]
+                                  '_file' => '(eval 387)',
+                                  'name' => '<Custom Code>',
+                                  'operator' => 'CODE(...)'
                                 }, 'Test2::Compare::Custom' ),
-               'upper' => bless( {
-                                   '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;
-                                                 no feature ':all';
-                                                 use feature ':5.16';
-                                                 require Math::BigFloat;
-                                                 'Math::BigFloat'->new('300.0')->beq($_);
-                                             },
-                                   '_lines' => [
-                                                 6
-                                               ],
-                                   '_file' => '(eval 385)'
-                                 }, 'Test2::Compare::Custom' ),
-               'lower' => bless( {
-                                   '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;
-                                                 no feature ':all';
-                                                 use feature ':5.16';
-                                                 require Math::BigFloat;
-                                                 'Math::BigFloat'->new('300.0')->beq($_);
-                                             },
-                                   '_lines' => [
-                                                 6
-                                               ],
-                                   '_file' => '(eval 384)'
-                                 }, 'Test2::Compare::Custom' ),
                'neg' => bless( {
-                                 '_file' => '(eval 386)',
                                  'operator' => 'CODE(...)',
                                  'name' => '<Custom Code>',
                                  'code' => sub {
@@ -116,6 +103,23 @@ my $expected1 = {
                                                require Math::BigFloat;
                                                'Math::BigFloat'->new('0.03')->beq($_);
                                            },
+                                 '_file' => '(eval 386)',
+                                 '_lines' => [
+                                               6
+                                             ]
+                               }, 'Test2::Compare::Custom' ),
+               'pos' => bless( {
+                                 'operator' => 'CODE(...)',
+                                 'name' => '<Custom Code>',
+                                 '_file' => '(eval 388)',
+                                 '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('300.0')->beq($_);
+                                           },
                                  '_lines' => [
                                                6
                                              ]