chiark / gitweb /
Move unused dependency to test deps
[nailing-cargo.git] / t / toml-test / valid / float.t
index 395a030ad07443aa27908893f5dbfb06bc87e004..1a4914e65e9459df5603f003eab465cc48f829dc 100644 (file)
@@ -2,35 +2,17 @@
 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 = {
-               'pi' => 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('3.14')->beq($_);
-                                          },
-                                'operator' => 'CODE(...)',
-                                'name' => '<Custom Code>',
-                                '_file' => '(eval 381)'
-                              }, 'Test2::Compare::Custom' ),
                'zero-intpart' => bless( {
-                                          '_file' => '(eval 380)',
-                                          '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;
@@ -38,12 +20,15 @@ my $expected1 = {
                                                         use feature ':5.16';
                                                         require Math::BigFloat;
                                                         'Math::BigFloat'->new('0.123')->beq($_);
-                                                    }
+                                                    },
+                                          '_file' => '(eval 383)',
+                                          'name' => '<Custom Code>',
+                                          'operator' => 'CODE(...)',
+                                          '_lines' => [
+                                                        6
+                                                      ]
                                         }, 'Test2::Compare::Custom' ),
                'pospi' => bless( {
-                                   '_file' => '(eval 383)',
-                                   '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;
@@ -52,16 +37,20 @@ my $expected1 = {
                                                  require Math::BigFloat;
                                                  'Math::BigFloat'->new('3.14')->beq($_);
                                              },
+                                   '_file' => '(eval 382)',
+                                   'name' => '<Custom Code>',
+                                   'operator' => 'CODE(...)',
                                    '_lines' => [
                                                  6
                                                ]
                                  }, 'Test2::Compare::Custom' ),
                'negpi' => bless( {
-                                   'name' => '<Custom Code>',
-                                   'operator' => 'CODE(...)',
                                    '_lines' => [
                                                  6
                                                ],
+                                   'name' => '<Custom Code>',
+                                   'operator' => 'CODE(...)',
+                                   '_file' => '(eval 381)',
                                    '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;
@@ -69,9 +58,24 @@ my $expected1 = {
                                                  use feature ':5.16';
                                                  require Math::BigFloat;
                                                  'Math::BigFloat'->new('-3.14')->beq($_);
-                                             },
-                                   '_file' => '(eval 382)'
-                                 }, 'Test2::Compare::Custom' )
+                                             }
+                                 }, 'Test2::Compare::Custom' ),
+               'pi' => bless( {
+                                'operator' => 'CODE(...)',
+                                'name' => '<Custom Code>',
+                                '_file' => '(eval 380)',
+                                '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.14')->beq($_);
+                                          },
+                                '_lines' => [
+                                              6
+                                            ]
+                              }, 'Test2::Compare::Custom' )
              };