From b13770de6916931592ad9e8c6634da0ecc75626e Mon Sep 17 00:00:00 2001 From: Jeff Ober Date: Tue, 21 Jan 2020 08:33:28 -0500 Subject: [PATCH] Move unused dependency to test deps --- Changes | 2 + README.pod | 2 +- build-tests.pl | 4 + cpanfile | 9 +- lib/TOML/Tiny/Writer.pm | 1 - t/toml-test/valid/array-empty.t | 4 + t/toml-test/valid/array-nospaces.t | 24 +- .../valid/array-string-quote-comma-2.t | 4 + t/toml-test/valid/array-string-quote-comma.t | 4 + t/toml-test/valid/array-string-with-comma.t | 4 + .../array-table-array-string-backslash.t | 4 + t/toml-test/valid/arrays-hetergeneous.t | 40 +-- t/toml-test/valid/arrays-nested.t | 4 + t/toml-test/valid/arrays.t | 234 +++++++++--------- t/toml-test/valid/bool.t | 8 +- t/toml-test/valid/comments-at-eof.t | 4 + t/toml-test/valid/comments-at-eof2.t | 4 + t/toml-test/valid/comments-everywhere.t | 28 ++- t/toml-test/valid/datetime-timezone.t | 8 +- t/toml-test/valid/datetime.t | 64 ++--- t/toml-test/valid/double-quote-escape.t | 4 + t/toml-test/valid/empty.t | 4 + t/toml-test/valid/escaped-escape.t | 4 + t/toml-test/valid/example.t | 68 ++--- t/toml-test/valid/exponent-part-float.t | 54 ++-- t/toml-test/valid/float-exponent.t | 136 +++++----- t/toml-test/valid/float-underscore.t | 56 +++-- t/toml-test/valid/float.t | 66 ++--- .../valid/implicit-and-explicit-after.t | 42 ++-- .../valid/implicit-and-explicit-before.t | 26 +- t/toml-test/valid/implicit-groups.t | 10 +- t/toml-test/valid/inline-table-array.t | 8 +- t/toml-test/valid/inline-table.t | 108 ++++---- t/toml-test/valid/integer-underscore.t | 8 +- t/toml-test/valid/integer.t | 60 ++--- t/toml-test/valid/key-equals-nospace.t | 16 +- t/toml-test/valid/key-numeric.t | 16 +- t/toml-test/valid/key-space.t | 14 +- t/toml-test/valid/key-special-chars.t | 16 +- t/toml-test/valid/keys-with-dots.t | 84 ++++--- t/toml-test/valid/long-float.t | 42 ++-- t/toml-test/valid/long-integer.t | 46 ++-- t/toml-test/valid/multiline-string.t | 14 +- t/toml-test/valid/nested-inline-table-array.t | 4 + t/toml-test/valid/newline-crlf.t | 4 + t/toml-test/valid/newline-lf.t | 8 +- t/toml-test/valid/raw-multiline-string.t | 8 +- t/toml-test/valid/raw-string.t | 12 +- .../valid/right-curly-brace-after-boolean.t | 8 +- t/toml-test/valid/string-empty.t | 4 + t/toml-test/valid/string-escapes.t | 16 +- t/toml-test/valid/string-nl.t | 10 +- t/toml-test/valid/string-simple.t | 4 + t/toml-test/valid/string-with-pound.t | 4 + t/toml-test/valid/table-array-implicit.t | 4 + t/toml-test/valid/table-array-many.t | 8 +- t/toml-test/valid/table-array-nest.t | 12 +- t/toml-test/valid/table-array-one.t | 8 +- t/toml-test/valid/table-array-table-array.t | 4 + t/toml-test/valid/table-empty.t | 4 + t/toml-test/valid/table-no-eol.t | 4 + t/toml-test/valid/table-sub-empty.t | 4 + t/toml-test/valid/table-whitespace.t | 4 + t/toml-test/valid/table-with-literal-string.t | 12 +- t/toml-test/valid/table-with-pound.t | 14 +- t/toml-test/valid/table-with-single-quotes.t | 16 +- t/toml-test/valid/underscored-float.t | 12 +- t/toml-test/valid/underscored-integer.t | 10 +- t/toml-test/valid/unicode-escape.t | 8 +- t/toml-test/valid/unicode-literal.t | 4 + 70 files changed, 916 insertions(+), 652 deletions(-) diff --git a/Changes b/Changes index 5a91967..2cdbc79 100644 --- a/Changes +++ b/Changes @@ -1,4 +1,6 @@ {{$NEXT}} +-Remove superfluous dependency on DateTime::Format::RFC3339, which was only + needed for unit tests 0.03 2020-01-18 -Remove automatic inflation of numerical types using Math::Big(Int|Float); diff --git a/README.pod b/README.pod index 66ee8b1..45bbaf0 100644 --- a/README.pod +++ b/README.pod @@ -8,7 +8,7 @@ TOML::Tiny - a minimal, pure perl TOML parser and serializer =head1 VERSION -version 0.03 +version 0.04 =head1 SYNOPSIS diff --git a/build-tests.pl b/build-tests.pl index 897ff59..53d39e6 100644 --- a/build-tests.pl +++ b/build-tests.pl @@ -162,6 +162,10 @@ sub build_pospath_test_files{ 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)'; diff --git a/cpanfile b/cpanfile index 3870dde..ee63b90 100644 --- a/cpanfile +++ b/cpanfile @@ -1,10 +1,9 @@ requires 'perl' => '>= 5.018'; -requires 'Carp' => '0'; -requires 'Data::Dumper' => '0'; -requires 'DateTime::Format::RFC3339' => '0'; -requires 'Exporter' => '0'; -requires 'Scalar::Util' => '>= 1.14'; +requires 'Carp' => '0'; +requires 'Data::Dumper' => '0'; +requires 'Exporter' => '0'; +requires 'Scalar::Util' => '>= 1.14'; recommends 'Types::Serialiser' => 0; diff --git a/lib/TOML/Tiny/Writer.pm b/lib/TOML/Tiny/Writer.pm index a0a0b38..66249a8 100644 --- a/lib/TOML/Tiny/Writer.pm +++ b/lib/TOML/Tiny/Writer.pm @@ -6,7 +6,6 @@ no warnings qw(experimental); use v5.18; use Data::Dumper; -use DateTime::Format::RFC3339; use Scalar::Util qw(looks_like_number); use TOML::Tiny::Grammar; use TOML::Tiny::Util qw(is_strict_array); diff --git a/t/toml-test/valid/array-empty.t b/t/toml-test/valid/array-empty.t index b3b21be..a7d77ae 100644 --- a/t/toml-test/valid/array-empty.t +++ b/t/toml-test/valid/array-empty.t @@ -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)'; diff --git a/t/toml-test/valid/array-nospaces.t b/t/toml-test/valid/array-nospaces.t index 9407043..e982a16 100644 --- a/t/toml-test/valid/array-nospaces.t +++ b/t/toml-test/valid/array-nospaces.t @@ -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)'; @@ -10,6 +14,8 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'ints' => [ bless( { + 'name' => '', + 'operator' => 'CODE(...)', '_file' => '(eval 47)', 'code' => sub { BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"} @@ -21,15 +27,12 @@ my $expected1 = { }, '_lines' => [ 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' + ] }, 'Test2::Compare::Custom' ), bless( { + 'name' => '', + 'operator' => 'CODE(...)', '_file' => '(eval 112)', - '_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,13 +41,13 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('2')->beq($_); }, - 'operator' => 'CODE(...)', - 'name' => '' + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ), bless( { - '_file' => '(eval 113)', - 'name' => '', 'operator' => 'CODE(...)', + 'name' => '', '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; @@ -53,6 +56,7 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('3')->beq($_); }, + '_file' => '(eval 113)', '_lines' => [ 6 ] diff --git a/t/toml-test/valid/array-string-quote-comma-2.t b/t/toml-test/valid/array-string-quote-comma-2.t index ca9dc92..4bb8454 100644 --- a/t/toml-test/valid/array-string-quote-comma-2.t +++ b/t/toml-test/valid/array-string-quote-comma-2.t @@ -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)'; diff --git a/t/toml-test/valid/array-string-quote-comma.t b/t/toml-test/valid/array-string-quote-comma.t index b75ca62..36c6901 100644 --- a/t/toml-test/valid/array-string-quote-comma.t +++ b/t/toml-test/valid/array-string-quote-comma.t @@ -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)'; diff --git a/t/toml-test/valid/array-string-with-comma.t b/t/toml-test/valid/array-string-with-comma.t index 4f4111f..459b255 100644 --- a/t/toml-test/valid/array-string-with-comma.t +++ b/t/toml-test/valid/array-string-with-comma.t @@ -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)'; diff --git a/t/toml-test/valid/array-table-array-string-backslash.t b/t/toml-test/valid/array-table-array-string-backslash.t index f0a7851..1bd668e 100644 --- a/t/toml-test/valid/array-table-array-string-backslash.t +++ b/t/toml-test/valid/array-table-array-string-backslash.t @@ -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)'; diff --git a/t/toml-test/valid/arrays-hetergeneous.t b/t/toml-test/valid/arrays-hetergeneous.t index 8d7cc4a..103535a 100644 --- a/t/toml-test/valid/arrays-hetergeneous.t +++ b/t/toml-test/valid/arrays-hetergeneous.t @@ -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)'; @@ -13,9 +17,6 @@ my $expected1 = { bless( { 'name' => '', '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; @@ -24,14 +25,14 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, - '_file' => '(eval 362)' + '_file' => '(eval 362)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ), bless( { 'name' => '', '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; @@ -40,7 +41,10 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('2')->beq($_); }, - '_file' => '(eval 363)' + '_file' => '(eval 363)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ) ], [ @@ -49,12 +53,8 @@ my $expected1 = { ], [ bless( { - '_file' => '(eval 364)', 'name' => '', '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; @@ -62,9 +62,17 @@ my $expected1 = { use feature ':5.16'; require Math::BigFloat; 'Math::BigFloat'->new('1.1')->beq($_); - } + }, + '_file' => '(eval 364)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ), bless( { + '_lines' => [ + 6 + ], + '_file' => '(eval 365)', '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; @@ -73,12 +81,8 @@ my $expected1 = { require Math::BigFloat; 'Math::BigFloat'->new('2.1')->beq($_); }, - '_lines' => [ - 6 - ], - 'operator' => 'CODE(...)', 'name' => '', - '_file' => '(eval 365)' + 'operator' => 'CODE(...)' }, 'Test2::Compare::Custom' ) ] ] diff --git a/t/toml-test/valid/arrays-nested.t b/t/toml-test/valid/arrays-nested.t index c7dbda4..747a6df 100644 --- a/t/toml-test/valid/arrays-nested.t +++ b/t/toml-test/valid/arrays-nested.t @@ -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)'; diff --git a/t/toml-test/valid/arrays.t b/t/toml-test/valid/arrays.t index f2fbb4c..12e5ab9 100644 --- a/t/toml-test/valid/arrays.t +++ b/t/toml-test/valid/arrays.t @@ -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)'; @@ -10,12 +14,7 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'dates' => [ bless( { - '_file' => '(eval 139)', - 'name' => '', - 'operator' => 'CODE(...)', - '_lines' => [ - 11 - ], + '_file' => '(eval 136)', '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; @@ -26,11 +25,19 @@ my $expected1 = { $exp->set_time_zone('UTC'); $got->set_time_zone('UTC'); return 'DateTime'->compare($got, $exp) == 0; - } + }, + 'operator' => 'CODE(...)', + 'name' => '', + '_lines' => [ + 11 + ] }, 'Test2::Compare::Custom' ), bless( { - 'name' => '', + '_lines' => [ + 11 + ], 'operator' => 'CODE(...)', + 'name' => '', '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; @@ -42,12 +49,13 @@ my $expected1 = { $got->set_time_zone('UTC'); return 'DateTime'->compare($got, $exp) == 0; }, + '_file' => '(eval 357)' + }, 'Test2::Compare::Custom' ), + bless( { '_lines' => [ 11 ], - '_file' => '(eval 360)' - }, 'Test2::Compare::Custom' ), - bless( { + '_file' => '(eval 358)', '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; @@ -59,110 +67,22 @@ my $expected1 = { $got->set_time_zone('UTC'); return 'DateTime'->compare($got, $exp) == 0; }, - '_lines' => [ - 11 - ], - 'name' => '', 'operator' => 'CODE(...)', - '_file' => '(eval 361)' + 'name' => '' }, 'Test2::Compare::Custom' ) ], - 'floats' => [ - bless( { - '_file' => '(eval 136)', - '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('1.1')->beq($_); - }, - '_lines' => [ - 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' - }, 'Test2::Compare::Custom' ), - 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('2.1')->beq($_); - }, - '_lines' => [ - 6 - ], - 'name' => '', - 'operator' => 'CODE(...)', - '_file' => '(eval 137)' - }, 'Test2::Compare::Custom' ), - bless( { - '_file' => '(eval 138)', - 'operator' => 'CODE(...)', - 'name' => '', - '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.1')->beq($_); - }, - '_lines' => [ - 6 - ] - }, 'Test2::Compare::Custom' ) - ], 'strings' => [ 'a', 'b', 'c' ], - 'comments' => [ - bless( { - '_file' => '(eval 134)', - '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('1')->beq($_); - }, - '_lines' => [ - 6 - ], - 'name' => '', - 'operator' => 'CODE(...)' - }, 'Test2::Compare::Custom' ), - bless( { - '_file' => '(eval 135)', - 'operator' => 'CODE(...)', - 'name' => '', - '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('2')->beq($_); - }, - '_lines' => [ - 6 - ] - }, 'Test2::Compare::Custom' ) - ], 'ints' => [ bless( { - 'name' => '', - 'operator' => 'CODE(...)', '_lines' => [ 6 ], + 'name' => '', + '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; @@ -171,9 +91,15 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, - '_file' => '(eval 131)' + '_file' => '(eval 359)' }, 'Test2::Compare::Custom' ), bless( { + '_lines' => [ + 6 + ], + 'operator' => 'CODE(...)', + 'name' => '', + '_file' => '(eval 360)', '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; @@ -181,16 +107,11 @@ my $expected1 = { use feature ':5.16'; require Math::BigInt; 'Math::BigInt'->new('2')->beq($_); - }, - '_lines' => [ - 6 - ], - 'operator' => 'CODE(...)', - 'name' => '', - '_file' => '(eval 132)' + } }, 'Test2::Compare::Custom' ), bless( { - '_file' => '(eval 133)', + 'name' => '', + '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; @@ -199,13 +120,96 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('3')->beq($_); }, + '_file' => '(eval 361)', '_lines' => [ 6 - ], - 'name' => '', - 'operator' => 'CODE(...)' + ] }, 'Test2::Compare::Custom' ) - ] + ], + 'comments' => [ + bless( { + '_file' => '(eval 134)', + '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('1')->beq($_); + }, + 'operator' => 'CODE(...)', + 'name' => '', + '_lines' => [ + 6 + ] + }, 'Test2::Compare::Custom' ), + bless( { + 'operator' => 'CODE(...)', + 'name' => '', + '_file' => '(eval 135)', + '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('2')->beq($_); + }, + '_lines' => [ + 6 + ] + }, 'Test2::Compare::Custom' ) + ], + 'floats' => [ + 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('1.1')->beq($_); + }, + '_file' => '(eval 131)', + 'name' => '', + 'operator' => 'CODE(...)' + }, 'Test2::Compare::Custom' ), + bless( { + '_file' => '(eval 132)', + '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('2.1')->beq($_); + }, + 'operator' => 'CODE(...)', + 'name' => '', + '_lines' => [ + 6 + ] + }, 'Test2::Compare::Custom' ), + bless( { + '_lines' => [ + 6 + ], + '_file' => '(eval 133)', + '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.1')->beq($_); + }, + 'operator' => 'CODE(...)', + 'name' => '' + }, 'Test2::Compare::Custom' ) + ] }; diff --git a/t/toml-test/valid/bool.t b/t/toml-test/valid/bool.t index ddb2f04..7b8cfc7 100644 --- a/t/toml-test/valid/bool.t +++ b/t/toml-test/valid/bool.t @@ -2,14 +2,18 @@ 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 = { - 'f' => 0, - 't' => 1 + 't' => 1, + 'f' => 0 }; diff --git a/t/toml-test/valid/comments-at-eof.t b/t/toml-test/valid/comments-at-eof.t index 80d8006..df37286 100644 --- a/t/toml-test/valid/comments-at-eof.t +++ b/t/toml-test/valid/comments-at-eof.t @@ -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)'; diff --git a/t/toml-test/valid/comments-at-eof2.t b/t/toml-test/valid/comments-at-eof2.t index 3370b10..6a5d01d 100644 --- a/t/toml-test/valid/comments-at-eof2.t +++ b/t/toml-test/valid/comments-at-eof2.t @@ -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)'; diff --git a/t/toml-test/valid/comments-everywhere.t b/t/toml-test/valid/comments-everywhere.t index 3ea025b..be85893 100644 --- a/t/toml-test/valid/comments-everywhere.t +++ b/t/toml-test/valid/comments-everywhere.t @@ -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)'; @@ -10,8 +14,8 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'group' => { 'answer' => bless( { - 'operator' => 'CODE(...)', 'name' => '', + '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; @@ -20,19 +24,13 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('42')->beq($_); }, + '_file' => '(eval 368)', '_lines' => [ 6 - ], - '_file' => '(eval 366)' + ] }, 'Test2::Compare::Custom' ), 'more' => [ bless( { - '_file' => '(eval 367)', - 'name' => '', - '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; @@ -40,12 +38,19 @@ my $expected1 = { use feature ':5.16'; require Math::BigInt; 'Math::BigInt'->new('42')->beq($_); - } + }, + '_file' => '(eval 366)', + 'name' => '', + 'operator' => 'CODE(...)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ), bless( { '_lines' => [ 6 ], + '_file' => '(eval 367)', '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; @@ -55,8 +60,7 @@ my $expected1 = { 'Math::BigInt'->new('42')->beq($_); }, 'operator' => 'CODE(...)', - 'name' => '', - '_file' => '(eval 368)' + 'name' => '' }, 'Test2::Compare::Custom' ) ] } diff --git a/t/toml-test/valid/datetime-timezone.t b/t/toml-test/valid/datetime-timezone.t index f153e97..e24ab5d 100644 --- a/t/toml-test/valid/datetime-timezone.t +++ b/t/toml-test/valid/datetime-timezone.t @@ -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)'; @@ -23,9 +27,9 @@ my $expected1 = { $got->set_time_zone('UTC'); return 'DateTime'->compare($got, $exp) == 0; }, - 'operator' => 'CODE(...)', + '_file' => '(eval 372)', 'name' => '', - '_file' => '(eval 372)' + 'operator' => 'CODE(...)' }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/datetime.t b/t/toml-test/valid/datetime.t index c5a6e8b..0cdaa78 100644 --- a/t/toml-test/valid/datetime.t +++ b/t/toml-test/valid/datetime.t @@ -2,15 +2,36 @@ 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 = { + 'bestdayever' => 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 369)', + 'name' => '', + 'operator' => 'CODE(...)', + '_lines' => [ + 11 + ] + }, 'Test2::Compare::Custom' ), 'milliseconds' => bless( { - 'operator' => 'CODE(...)', - 'name' => '', '_lines' => [ 11 ], @@ -25,15 +46,11 @@ my $expected1 = { $got->set_time_zone('UTC'); return 'DateTime'->compare($got, $exp) == 0; }, - '_file' => '(eval 369)' + '_file' => '(eval 371)', + 'name' => '', + 'operator' => 'CODE(...)' }, 'Test2::Compare::Custom' ), 'numoffset' => bless( { - '_file' => '(eval 370)', - 'name' => '', - 'operator' => 'CODE(...)', - '_lines' => [ - 11 - ], '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; @@ -44,27 +61,14 @@ my $expected1 = { $exp->set_time_zone('UTC'); $got->set_time_zone('UTC'); return 'DateTime'->compare($got, $exp) == 0; - } - }, 'Test2::Compare::Custom' ), - 'bestdayever' => bless( { - 'name' => '', - 'operator' => 'CODE(...)', - '_lines' => [ - 11 - ], - '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 371)' - }, 'Test2::Compare::Custom' ) + }, + '_file' => '(eval 370)', + 'name' => '', + 'operator' => 'CODE(...)', + '_lines' => [ + 11 + ] + }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/double-quote-escape.t b/t/toml-test/valid/double-quote-escape.t index 7d00ce1..8fcff55 100644 --- a/t/toml-test/valid/double-quote-escape.t +++ b/t/toml-test/valid/double-quote-escape.t @@ -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)'; diff --git a/t/toml-test/valid/empty.t b/t/toml-test/valid/empty.t index bdb9f45..a58ba34 100644 --- a/t/toml-test/valid/empty.t +++ b/t/toml-test/valid/empty.t @@ -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)'; diff --git a/t/toml-test/valid/escaped-escape.t b/t/toml-test/valid/escaped-escape.t index c6a5fd1..fae09c5 100644 --- a/t/toml-test/valid/escaped-escape.t +++ b/t/toml-test/valid/escaped-escape.t @@ -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)'; diff --git a/t/toml-test/valid/example.t b/t/toml-test/valid/example.t index 318fafb..1546360 100644 --- 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' => '', + 'operator' => 'CODE(...)', + '_lines' => [ + 11 + ] + }, 'Test2::Compare::Custom' ), 'numtheory' => { 'boring' => 0, 'perfection' => [ bless( { - '_file' => '(eval 373)', - 'operator' => 'CODE(...)', - 'name' => '', '_lines' => [ 6 ], + 'operator' => 'CODE(...)', + 'name' => '', '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' => '', 'operator' => 'CODE(...)', - '_file' => '(eval 374)' + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ), bless( { - 'name' => '', - 'operator' => 'CODE(...)', '_lines' => [ 6 ], + 'name' => '', + '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' => '', - 'operator' => 'CODE(...)', - '_file' => '(eval 376)' - }, 'Test2::Compare::Custom' ) + } }; diff --git a/t/toml-test/valid/exponent-part-float.t b/t/toml-test/valid/exponent-part-float.t index c19418d..f102174 100644 --- a/t/toml-test/valid/exponent-part-float.t +++ b/t/toml-test/valid/exponent-part-float.t @@ -2,16 +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 = { + 'minustenth' => bless( { + '_lines' => [ + 6 + ], + 'operator' => 'CODE(...)', + 'name' => '', + '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('-0.1')->beq($_); + }, + '_file' => '(eval 377)' + }, 'Test2::Compare::Custom' ), 'million' => bless( { - '_file' => '(eval 377)', + '_lines' => [ + 6 + ], 'operator' => 'CODE(...)', 'name' => '', + '_file' => '(eval 379)', '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; @@ -19,29 +42,12 @@ my $expected1 = { use feature ':5.16'; require Math::BigFloat; 'Math::BigFloat'->new('1000000')->beq($_); - }, - '_lines' => [ - 6 - ] + } }, 'Test2::Compare::Custom' ), - 'minustenth' => bless( { - '_file' => '(eval 378)', - '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('-0.1')->beq($_); - }, - '_lines' => [ - 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' - }, 'Test2::Compare::Custom' ), 'beast' => bless( { - '_file' => '(eval 379)', + '_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; @@ -50,9 +56,7 @@ my $expected1 = { require Math::BigFloat; 'Math::BigFloat'->new('666')->beq($_); }, - '_lines' => [ - 6 - ], + '_file' => '(eval 378)', 'name' => '', 'operator' => 'CODE(...)' }, 'Test2::Compare::Custom' ) diff --git a/t/toml-test/valid/float-exponent.t b/t/toml-test/valid/float-exponent.t index 6a5f4c1..de54a77 100644 --- a/t/toml-test/valid/float-exponent.t +++ b/t/toml-test/valid/float-exponent.t @@ -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' => '', + 'lower' => bless( { + 'operator' => 'CODE(...)', + 'name' => '', + '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' => '', + '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' => '', - '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' => '', + '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' => '' }, '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' => '', - 'operator' => 'CODE(...)', - '_file' => '(eval 389)' - }, 'Test2::Compare::Custom' ), 'zero' => bless( { - '_file' => '(eval 390)', - 'name' => '', - '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' => '', + 'operator' => 'CODE(...)' }, 'Test2::Compare::Custom' ), - 'upper' => bless( { - 'name' => '', - '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' => '', - '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' => '', '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' => '', + '_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 ] diff --git a/t/toml-test/valid/float-underscore.t b/t/toml-test/valid/float-underscore.t index 7e9308a..f4dcb8c 100644 --- a/t/toml-test/valid/float-underscore.t +++ b/t/toml-test/valid/float-underscore.t @@ -2,32 +2,18 @@ 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 = { - 'before' => bless( { - '_file' => '(eval 393)', - '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('3141.5927')->beq($_); - }, - '_lines' => [ - 6 - ], - 'name' => '', - 'operator' => 'CODE(...)' - }, 'Test2::Compare::Custom' ), 'after' => bless( { - '_lines' => [ - 6 - ], + '_file' => '(eval 393)', '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,14 +22,33 @@ my $expected1 = { require Math::BigFloat; 'Math::BigFloat'->new('3141.5927')->beq($_); }, - 'operator' => 'CODE(...)', 'name' => '', - '_file' => '(eval 392)' + 'operator' => 'CODE(...)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ), + 'before' => bless( { + '_lines' => [ + 6 + ], + 'operator' => 'CODE(...)', + 'name' => '', + '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('3141.5927')->beq($_); + }, + '_file' => '(eval 392)' + }, 'Test2::Compare::Custom' ), 'exponent' => bless( { + '_lines' => [ + 6 + ], '_file' => '(eval 391)', - 'operator' => 'CODE(...)', - 'name' => '', '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,9 +57,8 @@ my $expected1 = { require Math::BigFloat; 'Math::BigFloat'->new('3e14')->beq($_); }, - '_lines' => [ - 6 - ] + 'operator' => 'CODE(...)', + 'name' => '' }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/float.t b/t/toml-test/valid/float.t index 395a030..1a4914e 100644 --- a/t/toml-test/valid/float.t +++ b/t/toml-test/valid/float.t @@ -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' => '', - '_file' => '(eval 381)' - }, 'Test2::Compare::Custom' ), 'zero-intpart' => bless( { - '_file' => '(eval 380)', - 'name' => '', - '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' => '', + 'operator' => 'CODE(...)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ), 'pospi' => bless( { - '_file' => '(eval 383)', - 'name' => '', - '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' => '', + 'operator' => 'CODE(...)', '_lines' => [ 6 ] }, 'Test2::Compare::Custom' ), 'negpi' => bless( { - 'name' => '', - 'operator' => 'CODE(...)', '_lines' => [ 6 ], + 'name' => '', + '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' => '', + '_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' ) }; diff --git a/t/toml-test/valid/implicit-and-explicit-after.t b/t/toml-test/valid/implicit-and-explicit-after.t index eaad20d..43b881b 100644 --- a/t/toml-test/valid/implicit-and-explicit-after.t +++ b/t/toml-test/valid/implicit-and-explicit-after.t @@ -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' => '', + '_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' => '', - '_file' => '(eval 395)' + 'name' => '' }, 'Test2::Compare::Custom' ) } - }, - 'better' => bless( { - '_file' => '(eval 394)', - 'name' => '', - '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' ) + } } }; diff --git a/t/toml-test/valid/implicit-and-explicit-before.t b/t/toml-test/valid/implicit-and-explicit-before.t index 82602e2..c865365 100644 --- a/t/toml-test/valid/implicit-and-explicit-before.t +++ b/t/toml-test/valid/implicit-and-explicit-before.t @@ -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)'; @@ -12,7 +16,6 @@ my $expected1 = { 'b' => { 'c' => { 'answer' => bless( { - '_file' => '(eval 396)', '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; @@ -21,16 +24,22 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('42')->beq($_); }, + '_file' => '(eval 397)', + 'operator' => 'CODE(...)', + 'name' => '', '_lines' => [ 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' + ] }, 'Test2::Compare::Custom' ) } }, 'better' => bless( { - '_file' => '(eval 397)', + '_lines' => [ + 6 + ], + 'operator' => 'CODE(...)', + 'name' => '', + '_file' => '(eval 396)', '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 +47,7 @@ my $expected1 = { use feature ':5.16'; require Math::BigInt; 'Math::BigInt'->new('43')->beq($_); - }, - '_lines' => [ - 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' + } }, 'Test2::Compare::Custom' ) } }; diff --git a/t/toml-test/valid/implicit-groups.t b/t/toml-test/valid/implicit-groups.t index 458ba5a..448d9e8 100644 --- a/t/toml-test/valid/implicit-groups.t +++ b/t/toml-test/valid/implicit-groups.t @@ -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)'; @@ -12,12 +16,12 @@ my $expected1 = { 'b' => { 'c' => { 'answer' => bless( { - '_file' => '(eval 398)', - 'operator' => 'CODE(...)', - 'name' => '', '_lines' => [ 6 ], + 'operator' => 'CODE(...)', + 'name' => '', + '_file' => '(eval 398)', '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; diff --git a/t/toml-test/valid/inline-table-array.t b/t/toml-test/valid/inline-table-array.t index d4b446d..6e8ce78 100644 --- a/t/toml-test/valid/inline-table-array.t +++ b/t/toml-test/valid/inline-table-array.t @@ -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)'; @@ -18,8 +22,8 @@ my $expected1 = { 'first_name' => 'Eric' }, { - 'last_name' => 'Seger', - 'first_name' => 'Bob' + 'first_name' => 'Bob', + 'last_name' => 'Seger' } ] }; diff --git a/t/toml-test/valid/inline-table.t b/t/toml-test/valid/inline-table.t index 4019c15..53aeb06 100644 --- a/t/toml-test/valid/inline-table.t +++ b/t/toml-test/valid/inline-table.t @@ -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,49 +13,48 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'name' => { - 'first' => 'Tom', - 'last' => 'Preston-Werner' + 'last' => 'Preston-Werner', + 'first' => 'Tom' }, 'point' => { - 'y' => bless( { - '_file' => '(eval 399)', + 'x' => 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('2')->beq($_); + 'Math::BigInt'->new('1')->beq($_); }, + '_file' => '(eval 401)', + 'name' => '', + 'operator' => 'CODE(...)' + }, 'Test2::Compare::Custom' ), + 'y' => bless( { '_lines' => [ 6 ], - 'operator' => 'CODE(...)', - 'name' => '' - }, 'Test2::Compare::Custom' ), - 'x' => bless( { - 'name' => '', - '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::BigInt; - 'Math::BigInt'->new('1')->beq($_); + 'Math::BigInt'->new('2')->beq($_); }, - '_lines' => [ - 6 - ], - '_file' => '(eval 400)' + '_file' => '(eval 400)', + 'operator' => 'CODE(...)', + 'name' => '' }, 'Test2::Compare::Custom' ) }, 'simple' => { 'a' => bless( { - '_file' => '(eval 401)', - '_lines' => [ - 6 - ], + 'name' => '', + 'operator' => 'CODE(...)', + '_file' => '(eval 399)', '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; @@ -60,36 +63,17 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, - 'operator' => 'CODE(...)', - 'name' => '' + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ) }, - 'str-key' => { - 'a' => bless( { - 'name' => '', - '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('1')->beq($_); - }, - '_file' => '(eval 404)' - }, 'Test2::Compare::Custom' ) - }, 'table-array' => [ { 'a' => bless( { - 'operator' => 'CODE(...)', 'name' => '', - '_lines' => [ - 6 - ], + 'operator' => 'CODE(...)', + '_file' => '(eval 403)', '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; @@ -98,17 +82,15 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, - '_file' => '(eval 402)' + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ) }, { 'b' => bless( { - '_file' => '(eval 403)', - 'operator' => 'CODE(...)', 'name' => '', - '_lines' => [ - 6 - ], + '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; @@ -116,10 +98,32 @@ my $expected1 = { use feature ':5.16'; require Math::BigInt; 'Math::BigInt'->new('2')->beq($_); - } + }, + '_file' => '(eval 404)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ) } - ] + ], + 'str-key' => { + 'a' => bless( { + '_file' => '(eval 402)', + '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('1')->beq($_); + }, + 'name' => '', + 'operator' => 'CODE(...)', + '_lines' => [ + 6 + ] + }, 'Test2::Compare::Custom' ) + } }; diff --git a/t/toml-test/valid/integer-underscore.t b/t/toml-test/valid/integer-underscore.t index 4cb7e12..3aa8d92 100644 --- a/t/toml-test/valid/integer-underscore.t +++ b/t/toml-test/valid/integer-underscore.t @@ -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)'; @@ -19,10 +23,10 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1000')->beq($_); }, + '_file' => '(eval 409)', '_lines' => [ 6 - ], - '_file' => '(eval 409)' + ] }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/integer.t b/t/toml-test/valid/integer.t index ce1d2ce..50d2fb7 100644 --- a/t/toml-test/valid/integer.t +++ b/t/toml-test/valid/integer.t @@ -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' => '', - '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' => '', - '_file' => '(eval 407)' + 'operator' => 'CODE(...)' }, 'Test2::Compare::Custom' ), - 'posanswer' => bless( { - '_file' => '(eval 405)', + 'neganswer' => bless( { '_lines' => [ 6 ], + 'operator' => 'CODE(...)', + 'name' => '', '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' => '', - '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' => '', 'operator' => 'CODE(...)', - '_file' => '(eval 408)' - }, 'Test2::Compare::Custom' ) + 'name' => '' + }, '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' => '' + }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/key-equals-nospace.t b/t/toml-test/valid/key-equals-nospace.t index faf80b7..6ecf6b3 100644 --- a/t/toml-test/valid/key-equals-nospace.t +++ b/t/toml-test/valid/key-equals-nospace.t @@ -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,9 +13,9 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'answer' => bless( { - '_file' => '(eval 410)', - 'operator' => 'CODE(...)', - 'name' => '', + '_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; @@ -20,9 +24,9 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('42')->beq($_); }, - '_lines' => [ - 6 - ] + '_file' => '(eval 410)', + 'operator' => 'CODE(...)', + 'name' => '' }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/key-numeric.t b/t/toml-test/valid/key-numeric.t index ed2da32..91e7baa 100644 --- a/t/toml-test/valid/key-numeric.t +++ b/t/toml-test/valid/key-numeric.t @@ -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,8 +13,9 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { '1' => bless( { - 'operator' => 'CODE(...)', - 'name' => '', + '_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; @@ -19,10 +24,9 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, - '_lines' => [ - 6 - ], - '_file' => '(eval 411)' + '_file' => '(eval 411)', + 'operator' => 'CODE(...)', + 'name' => '' }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/key-space.t b/t/toml-test/valid/key-space.t index 42ace11..677d8bd 100644 --- a/t/toml-test/valid/key-space.t +++ b/t/toml-test/valid/key-space.t @@ -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,6 +13,9 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'a b' => 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; @@ -17,12 +24,9 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, - '_lines' => [ - 6 - ], + '_file' => '(eval 412)', 'operator' => 'CODE(...)', - 'name' => '', - '_file' => '(eval 412)' + 'name' => '' }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/key-special-chars.t b/t/toml-test/valid/key-special-chars.t index 9d2db15..ff3e6bc 100644 --- a/t/toml-test/valid/key-special-chars.t +++ b/t/toml-test/valid/key-special-chars.t @@ -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,10 +13,8 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { '~!@$^&*()_+-`1234567890[]|/?><.,;:\'' => bless( { - '_file' => '(eval 413)', - '_lines' => [ - 6 - ], + 'operator' => 'CODE(...)', + 'name' => '', '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; @@ -21,8 +23,10 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, - 'operator' => 'CODE(...)', - 'name' => '' + '_file' => '(eval 413)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/keys-with-dots.t b/t/toml-test/valid/keys-with-dots.t index 7366893..1b428e8 100644 --- a/t/toml-test/valid/keys-with-dots.t +++ b/t/toml-test/valid/keys-with-dots.t @@ -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,25 +13,10 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'plain_table' => { - 'with.dot' => bless( { - '_file' => '(eval 415)', - 'name' => '', - '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::BigInt; - 'Math::BigInt'->new('4')->beq($_); - }, - '_lines' => [ - 6 - ] - }, 'Test2::Compare::Custom' ), 'plain' => bless( { 'operator' => 'CODE(...)', 'name' => '', + '_file' => '(eval 417)', '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,14 +27,34 @@ my $expected1 = { }, '_lines' => [ 6 - ], - '_file' => '(eval 414)' - }, 'Test2::Compare::Custom' ) + ] + }, 'Test2::Compare::Custom' ), + 'with.dot' => bless( { + '_file' => '(eval 416)', + '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('4')->beq($_); + }, + 'name' => '', + 'operator' => 'CODE(...)', + '_lines' => [ + 6 + ] + }, 'Test2::Compare::Custom' ) }, 'table' => { 'withdot' => { 'plain' => bless( { - '_file' => '(eval 416)', + '_lines' => [ + 6 + ], + 'name' => '', + 'operator' => 'CODE(...)', + '_file' => '(eval 419)', '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; @@ -53,17 +62,12 @@ my $expected1 = { use feature ':5.16'; require Math::BigInt; 'Math::BigInt'->new('5')->beq($_); - }, - '_lines' => [ - 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' + } }, 'Test2::Compare::Custom' ), 'key.with.dots' => bless( { - '_file' => '(eval 417)', - 'operator' => 'CODE(...)', - 'name' => '', + '_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; @@ -72,16 +76,15 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('6')->beq($_); }, - '_lines' => [ - 6 - ] + '_file' => '(eval 418)', + 'operator' => 'CODE(...)', + 'name' => '' }, 'Test2::Compare::Custom' ) } }, 'plain' => bless( { - '_file' => '(eval 418)', - 'name' => '', 'operator' => 'CODE(...)', + 'name' => '', '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; @@ -90,14 +93,14 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1')->beq($_); }, + '_file' => '(eval 414)', '_lines' => [ 6 ] }, 'Test2::Compare::Custom' ), 'with.dot' => bless( { - '_lines' => [ - 6 - ], + 'name' => '', + '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; @@ -106,9 +109,10 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('2')->beq($_); }, - 'operator' => 'CODE(...)', - 'name' => '', - '_file' => '(eval 419)' + '_file' => '(eval 415)', + '_lines' => [ + 6 + ] }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/long-float.t b/t/toml-test/valid/long-float.t index f694959..a0358c0 100644 --- a/t/toml-test/valid/long-float.t +++ b/t/toml-test/valid/long-float.t @@ -2,32 +2,21 @@ 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 = { - 'neglongpi' => bless( { - 'name' => '', - '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::BigFloat; - 'Math::BigFloat'->new('-3.141592653589793')->beq($_); - }, - '_file' => '(eval 420)' - }, 'Test2::Compare::Custom' ), 'longpi' => bless( { '_lines' => [ 6 ], + '_file' => '(eval 421)', '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,10 +25,25 @@ my $expected1 = { require Math::BigFloat; 'Math::BigFloat'->new('3.141592653589793')->beq($_); }, - 'operator' => 'CODE(...)', 'name' => '', - '_file' => '(eval 421)' - }, 'Test2::Compare::Custom' ) + 'operator' => 'CODE(...)' + }, 'Test2::Compare::Custom' ), + 'neglongpi' => bless( { + '_lines' => [ + 6 + ], + 'name' => '', + '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('-3.141592653589793')->beq($_); + }, + '_file' => '(eval 420)' + }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/long-integer.t b/t/toml-test/valid/long-integer.t index 4ee0e91..906e87b 100644 --- a/t/toml-test/valid/long-integer.t +++ b/t/toml-test/valid/long-integer.t @@ -2,33 +2,23 @@ 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 = { - 'neganswer' => bless( { - '_file' => '(eval 423)', - '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('-9223372036854775808')->beq($_); - }, - '_lines' => [ - 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' - }, 'Test2::Compare::Custom' ), 'answer' => bless( { - '_file' => '(eval 422)', '_lines' => [ 6 ], + 'operator' => 'CODE(...)', + 'name' => '', + '_file' => '(eval 422)', '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,10 +26,24 @@ my $expected1 = { use feature ':5.16'; require Math::BigInt; 'Math::BigInt'->new('9223372036854775807')->beq($_); - }, - 'name' => '', - 'operator' => 'CODE(...)' - }, 'Test2::Compare::Custom' ) + } + }, 'Test2::Compare::Custom' ), + 'neganswer' => bless( { + 'operator' => 'CODE(...)', + 'name' => '', + '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('-9223372036854775808')->beq($_); + }, + '_file' => '(eval 423)', + '_lines' => [ + 6 + ] + }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/multiline-string.t b/t/toml-test/valid/multiline-string.t index 8ac171f..1ce2157 100644 --- a/t/toml-test/valid/multiline-string.t +++ b/t/toml-test/valid/multiline-string.t @@ -2,19 +2,23 @@ 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 = { - 'equivalent_three' => 'The quick brown fox jumps over the lazy dog.', - 'equivalent_one' => 'The quick brown fox jumps over the lazy dog.', - 'equivalent_two' => 'The quick brown fox jumps over the lazy dog.', - 'multiline_empty_four' => '', 'multiline_empty_one' => '', + 'equivalent_one' => 'The quick brown fox jumps over the lazy dog.', + 'multiline_empty_three' => '', 'multiline_empty_two' => '', - 'multiline_empty_three' => '' + 'multiline_empty_four' => '', + 'equivalent_three' => 'The quick brown fox jumps over the lazy dog.', + 'equivalent_two' => 'The quick brown fox jumps over the lazy dog.' }; diff --git a/t/toml-test/valid/nested-inline-table-array.t b/t/toml-test/valid/nested-inline-table-array.t index 0afd5f2..8b3cd40 100644 --- a/t/toml-test/valid/nested-inline-table-array.t +++ b/t/toml-test/valid/nested-inline-table-array.t @@ -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)'; diff --git a/t/toml-test/valid/newline-crlf.t b/t/toml-test/valid/newline-crlf.t index bea9477..677a87d 100644 --- a/t/toml-test/valid/newline-crlf.t +++ b/t/toml-test/valid/newline-crlf.t @@ -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)'; diff --git a/t/toml-test/valid/newline-lf.t b/t/toml-test/valid/newline-lf.t index 0046668..aed448e 100644 --- a/t/toml-test/valid/newline-lf.t +++ b/t/toml-test/valid/newline-lf.t @@ -2,14 +2,18 @@ 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 = { - 'os' => 'unix', - 'newline' => 'lf' + 'newline' => 'lf', + 'os' => 'unix' }; diff --git a/t/toml-test/valid/raw-multiline-string.t b/t/toml-test/valid/raw-multiline-string.t index 0d2496f..5757461 100644 --- a/t/toml-test/valid/raw-multiline-string.t +++ b/t/toml-test/valid/raw-multiline-string.t @@ -2,19 +2,23 @@ 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 = { + 'oneline' => 'This string has a \' quote character.', 'multiline' => 'This string has \' a quote character and more than one newline in it.', - 'firstnl' => 'This string has a \' quote character.', - 'oneline' => 'This string has a \' quote character.' + 'firstnl' => 'This string has a \' quote character.' }; diff --git a/t/toml-test/valid/raw-string.t b/t/toml-test/valid/raw-string.t index d1aac75..b72cee9 100644 --- a/t/toml-test/valid/raw-string.t +++ b/t/toml-test/valid/raw-string.t @@ -2,19 +2,23 @@ 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 = { + 'backspace' => 'This string has a \\b backspace character.', + 'newline' => 'This string has a \\n new line character.', 'formfeed' => 'This string has a \\f form feed character.', - 'slash' => 'This string has a \\/ slash character.', 'carriage' => 'This string has a \\r carriage return character.', + 'backslash' => 'This string has a \\\\ backslash character.', 'tab' => 'This string has a \\t tab character.', - 'backspace' => 'This string has a \\b backspace character.', - 'newline' => 'This string has a \\n new line character.', - 'backslash' => 'This string has a \\\\ backslash character.' + 'slash' => 'This string has a \\/ slash character.' }; diff --git a/t/toml-test/valid/right-curly-brace-after-boolean.t b/t/toml-test/valid/right-curly-brace-after-boolean.t index dd3a70d..76d545d 100644 --- a/t/toml-test/valid/right-curly-brace-after-boolean.t +++ b/t/toml-test/valid/right-curly-brace-after-boolean.t @@ -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)'; @@ -10,8 +14,8 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'black' => { 'python' => '>3.6', - 'allow_prereleases' => 1, - 'version' => '>=18.9b0' + 'version' => '>=18.9b0', + 'allow_prereleases' => 1 } }; diff --git a/t/toml-test/valid/string-empty.t b/t/toml-test/valid/string-empty.t index 25e85a2..bb79bef 100644 --- a/t/toml-test/valid/string-empty.t +++ b/t/toml-test/valid/string-empty.t @@ -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)'; diff --git a/t/toml-test/valid/string-escapes.t b/t/toml-test/valid/string-escapes.t index 4df271a..80fa9c2 100644 --- a/t/toml-test/valid/string-escapes.t +++ b/t/toml-test/valid/string-escapes.t @@ -2,24 +2,28 @@ 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 = { + 'formfeed' => 'This string has a form feed character.', 'notunicode1' => 'This string does not have a unicode \\u escape.', - 'notunicode4' => 'This string does not have a unicode \\u escape.', + 'quote' => 'This string has a " quote character.', 'newline' => 'This string has a new line character.', - 'tab' => 'This string has a tab character.', + 'notunicode3' => 'This string does not have a unicode \\u0075 escape.', 'carriage' => 'This string has a carriage return character.', - 'backspace' => 'This string has a  backspace character.', - 'formfeed' => 'This string has a form feed character.', + 'tab' => 'This string has a tab character.', 'backslash' => 'This string has a \\ backslash character.', - 'quote' => 'This string has a " quote character.', + 'backspace' => 'This string has a  backspace character.', 'notunicode2' => 'This string does not have a unicode \\u escape.', - 'notunicode3' => 'This string does not have a unicode \\u0075 escape.' + 'notunicode4' => 'This string does not have a unicode \\u escape.' }; diff --git a/t/toml-test/valid/string-nl.t b/t/toml-test/valid/string-nl.t index 282d903..dc9d8ff 100644 --- a/t/toml-test/valid/string-nl.t +++ b/t/toml-test/valid/string-nl.t @@ -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,12 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'lit_nl_end' => 'value\\n', - 'lit_nl_uni' => 'val\\ue', - 'lit_nl_mid' => 'val\\nue', 'nl_mid' => 'val ue', + 'lit_nl_mid' => 'val\\nue', 'nl_end' => 'value -' +', + 'lit_nl_uni' => 'val\\ue' }; diff --git a/t/toml-test/valid/string-simple.t b/t/toml-test/valid/string-simple.t index 85b62e5..39fc46e 100644 --- a/t/toml-test/valid/string-simple.t +++ b/t/toml-test/valid/string-simple.t @@ -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)'; diff --git a/t/toml-test/valid/string-with-pound.t b/t/toml-test/valid/string-with-pound.t index 55bcb4d..939de67 100644 --- a/t/toml-test/valid/string-with-pound.t +++ b/t/toml-test/valid/string-with-pound.t @@ -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)'; diff --git a/t/toml-test/valid/table-array-implicit.t b/t/toml-test/valid/table-array-implicit.t index d26a5a3..b8a4c8a 100644 --- a/t/toml-test/valid/table-array-implicit.t +++ b/t/toml-test/valid/table-array-implicit.t @@ -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)'; diff --git a/t/toml-test/valid/table-array-many.t b/t/toml-test/valid/table-array-many.t index bda74bb..fb9695d 100644 --- a/t/toml-test/valid/table-array-many.t +++ b/t/toml-test/valid/table-array-many.t @@ -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)'; @@ -18,8 +22,8 @@ my $expected1 = { 'last_name' => 'Clapton' }, { - 'last_name' => 'Seger', - 'first_name' => 'Bob' + 'first_name' => 'Bob', + 'last_name' => 'Seger' } ] }; diff --git a/t/toml-test/valid/table-array-nest.t b/t/toml-test/valid/table-array-nest.t index 4ed1f21..b87f6ea 100644 --- a/t/toml-test/valid/table-array-nest.t +++ b/t/toml-test/valid/table-array-nest.t @@ -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)'; @@ -10,7 +14,6 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'albums' => [ { - 'name' => 'Born to Run', 'songs' => [ { 'name' => 'Jungleland' @@ -18,9 +21,11 @@ my $expected1 = { { 'name' => 'Meeting Across the River' } - ] + ], + 'name' => 'Born to Run' }, { + 'name' => 'Born in the USA', 'songs' => [ { 'name' => 'Glory Days' @@ -28,8 +33,7 @@ my $expected1 = { { 'name' => 'Dancing in the Dark' } - ], - 'name' => 'Born in the USA' + ] } ] }; diff --git a/t/toml-test/valid/table-array-one.t b/t/toml-test/valid/table-array-one.t index f8a9c83..c5362b9 100644 --- a/t/toml-test/valid/table-array-one.t +++ b/t/toml-test/valid/table-array-one.t @@ -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)'; @@ -10,8 +14,8 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'people' => [ { - 'first_name' => 'Bruce', - 'last_name' => 'Springsteen' + 'last_name' => 'Springsteen', + 'first_name' => 'Bruce' } ] }; diff --git a/t/toml-test/valid/table-array-table-array.t b/t/toml-test/valid/table-array-table-array.t index 04fe42e..e38a620 100644 --- a/t/toml-test/valid/table-array-table-array.t +++ b/t/toml-test/valid/table-array-table-array.t @@ -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)'; diff --git a/t/toml-test/valid/table-empty.t b/t/toml-test/valid/table-empty.t index b41b5cf..149f647 100644 --- a/t/toml-test/valid/table-empty.t +++ b/t/toml-test/valid/table-empty.t @@ -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)'; diff --git a/t/toml-test/valid/table-no-eol.t b/t/toml-test/valid/table-no-eol.t index 40d6e45..d4ee30a 100644 --- a/t/toml-test/valid/table-no-eol.t +++ b/t/toml-test/valid/table-no-eol.t @@ -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)'; diff --git a/t/toml-test/valid/table-sub-empty.t b/t/toml-test/valid/table-sub-empty.t index 7324c87..ddb7b7d 100644 --- a/t/toml-test/valid/table-sub-empty.t +++ b/t/toml-test/valid/table-sub-empty.t @@ -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)'; diff --git a/t/toml-test/valid/table-whitespace.t b/t/toml-test/valid/table-whitespace.t index da94dd3..50a6fef 100644 --- a/t/toml-test/valid/table-whitespace.t +++ b/t/toml-test/valid/table-whitespace.t @@ -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)'; diff --git a/t/toml-test/valid/table-with-literal-string.t b/t/toml-test/valid/table-with-literal-string.t index bc580ee..436e0f7 100644 --- a/t/toml-test/valid/table-with-literal-string.t +++ b/t/toml-test/valid/table-with-literal-string.t @@ -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)'; @@ -12,7 +16,6 @@ my $expected1 = { '"b"' => { 'c' => { 'answer' => bless( { - '_file' => '(eval 424)', '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; @@ -21,11 +24,12 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('42')->beq($_); }, + '_file' => '(eval 424)', + 'name' => '', + 'operator' => 'CODE(...)', '_lines' => [ 6 - ], - 'operator' => 'CODE(...)', - 'name' => '' + ] }, 'Test2::Compare::Custom' ) } } diff --git a/t/toml-test/valid/table-with-pound.t b/t/toml-test/valid/table-with-pound.t index 1039f41..530a157 100644 --- a/t/toml-test/valid/table-with-pound.t +++ b/t/toml-test/valid/table-with-pound.t @@ -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)'; @@ -10,9 +14,11 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'key#group' => { 'answer' => bless( { - '_file' => '(eval 425)', - 'name' => '', + '_lines' => [ + 6 + ], 'operator' => 'CODE(...)', + 'name' => '', '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; @@ -21,9 +27,7 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('42')->beq($_); }, - '_lines' => [ - 6 - ] + '_file' => '(eval 425)' }, 'Test2::Compare::Custom' ) } }; diff --git a/t/toml-test/valid/table-with-single-quotes.t b/t/toml-test/valid/table-with-single-quotes.t index 139fba2..c6d4770 100644 --- a/t/toml-test/valid/table-with-single-quotes.t +++ b/t/toml-test/valid/table-with-single-quotes.t @@ -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)'; @@ -12,7 +16,9 @@ my $expected1 = { 'b' => { 'c' => { 'answer' => bless( { - '_file' => '(eval 426)', + '_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; @@ -21,11 +27,9 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('42')->beq($_); }, - '_lines' => [ - 6 - ], - 'name' => '', - 'operator' => 'CODE(...)' + '_file' => '(eval 426)', + 'operator' => 'CODE(...)', + 'name' => '' }, 'Test2::Compare::Custom' ) } } diff --git a/t/toml-test/valid/underscored-float.t b/t/toml-test/valid/underscored-float.t index 177d3c0..5dfb753 100644 --- a/t/toml-test/valid/underscored-float.t +++ b/t/toml-test/valid/underscored-float.t @@ -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,9 +13,6 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'electron_mass' => bless( { - '_file' => '(eval 427)', - 'operator' => 'CODE(...)', - 'name' => '', '_lines' => [ 6 ], @@ -22,7 +23,10 @@ my $expected1 = { use feature ':5.16'; require Math::BigFloat; 'Math::BigFloat'->new('9.109109383e-31')->beq($_); - } + }, + '_file' => '(eval 427)', + 'operator' => 'CODE(...)', + 'name' => '' }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/underscored-integer.t b/t/toml-test/valid/underscored-integer.t index ec6ac4f..d043cf4 100644 --- a/t/toml-test/valid/underscored-integer.t +++ b/t/toml-test/valid/underscored-integer.t @@ -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,11 +13,10 @@ binmode STDOUT, ':encoding(UTF-8)'; my $expected1 = { 'million' => bless( { - 'operator' => 'CODE(...)', - 'name' => '', '_lines' => [ 6 ], + '_file' => '(eval 428)', '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; @@ -22,7 +25,8 @@ my $expected1 = { require Math::BigInt; 'Math::BigInt'->new('1000000')->beq($_); }, - '_file' => '(eval 428)' + 'name' => '', + 'operator' => 'CODE(...)' }, 'Test2::Compare::Custom' ) }; diff --git a/t/toml-test/valid/unicode-escape.t b/t/toml-test/valid/unicode-escape.t index c42211c..a65eb5d 100644 --- a/t/toml-test/valid/unicode-escape.t +++ b/t/toml-test/valid/unicode-escape.t @@ -2,14 +2,18 @@ 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 = { - 'answer8' => "\x{3b4}", - 'answer4' => "\x{3b4}" + 'answer4' => "\x{3b4}", + 'answer8' => "\x{3b4}" }; diff --git a/t/toml-test/valid/unicode-literal.t b/t/toml-test/valid/unicode-literal.t index 217e956..8b25732 100644 --- a/t/toml-test/valid/unicode-literal.t +++ b/t/toml-test/valid/unicode-literal.t @@ -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)'; -- 2.30.2