{{$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);
=head1 VERSION
-version 0.03
+version 0.04
=head1 SYNOPSIS
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)';
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;
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);
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)';
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)';
my $expected1 = {
'ints' => [
bless( {
+ 'name' => '<Custom Code>',
+ '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"}
},
'_lines' => [
6
- ],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ ]
}, 'Test2::Compare::Custom' ),
bless( {
+ 'name' => '<Custom Code>',
+ '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;
require Math::BigInt;
'Math::BigInt'->new('2')->beq($_);
},
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' ),
bless( {
- '_file' => '(eval 113)',
- 'name' => '<Custom Code>',
'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;
require Math::BigInt;
'Math::BigInt'->new('3')->beq($_);
},
+ '_file' => '(eval 113)',
'_lines' => [
6
]
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)';
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)';
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)';
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)';
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)';
bless( {
'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;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
- '_file' => '(eval 362)'
+ '_file' => '(eval 362)',
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' ),
bless( {
'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;
require Math::BigInt;
'Math::BigInt'->new('2')->beq($_);
},
- '_file' => '(eval 363)'
+ '_file' => '(eval 363)',
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' )
],
[
],
[
bless( {
- '_file' => '(eval 364)',
'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;
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;
require Math::BigFloat;
'Math::BigFloat'->new('2.1')->beq($_);
},
- '_lines' => [
- 6
- ],
- 'operator' => 'CODE(...)',
'name' => '<Custom Code>',
- '_file' => '(eval 365)'
+ 'operator' => 'CODE(...)'
}, 'Test2::Compare::Custom' )
]
]
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)';
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)';
my $expected1 = {
'dates' => [
bless( {
- '_file' => '(eval 139)',
- 'name' => '<Custom Code>',
- '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;
$exp->set_time_zone('UTC');
$got->set_time_zone('UTC');
return 'DateTime'->compare($got, $exp) == 0;
- }
+ },
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ '_lines' => [
+ 11
+ ]
}, 'Test2::Compare::Custom' ),
bless( {
- 'name' => '<Custom Code>',
+ '_lines' => [
+ 11
+ ],
'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;
$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;
$got->set_time_zone('UTC');
return 'DateTime'->compare($got, $exp) == 0;
},
- '_lines' => [
- 11
- ],
- 'name' => '<Custom Code>',
'operator' => 'CODE(...)',
- '_file' => '(eval 361)'
+ 'name' => '<Custom Code>'
}, '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' => '<Custom Code>'
- }, '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' => '<Custom Code>',
- 'operator' => 'CODE(...)',
- '_file' => '(eval 137)'
- }, 'Test2::Compare::Custom' ),
- bless( {
- '_file' => '(eval 138)',
- '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('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' => '<Custom Code>',
- 'operator' => 'CODE(...)'
- }, 'Test2::Compare::Custom' ),
- bless( {
- '_file' => '(eval 135)',
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
- 'code' => sub {
- BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
- use strict;
- no feature ':all';
- use feature ':5.16';
- require Math::BigInt;
- 'Math::BigInt'->new('2')->beq($_);
- },
- '_lines' => [
- 6
- ]
- }, 'Test2::Compare::Custom' )
- ],
'ints' => [
bless( {
- 'name' => '<Custom Code>',
- 'operator' => 'CODE(...)',
'_lines' => [
6
],
+ '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;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
- '_file' => '(eval 131)'
+ '_file' => '(eval 359)'
}, 'Test2::Compare::Custom' ),
bless( {
+ '_lines' => [
+ 6
+ ],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ '_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;
use feature ':5.16';
require Math::BigInt;
'Math::BigInt'->new('2')->beq($_);
- },
- '_lines' => [
- 6
- ],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
- '_file' => '(eval 132)'
+ }
}, 'Test2::Compare::Custom' ),
bless( {
- '_file' => '(eval 133)',
+ '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;
require Math::BigInt;
'Math::BigInt'->new('3')->beq($_);
},
+ '_file' => '(eval 361)',
'_lines' => [
6
- ],
- 'name' => '<Custom Code>',
- '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' => '<Custom Code>',
+ '_lines' => [
+ 6
+ ]
+ }, 'Test2::Compare::Custom' ),
+ bless( {
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ '_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' => '<Custom Code>',
+ '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' => '<Custom Code>',
+ '_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' => '<Custom Code>'
+ }, 'Test2::Compare::Custom' )
+ ]
};
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
};
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)';
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)';
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)';
my $expected1 = {
'group' => {
'answer' => bless( {
- 'operator' => 'CODE(...)',
'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;
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' => '<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;
use feature ':5.16';
require Math::BigInt;
'Math::BigInt'->new('42')->beq($_);
- }
+ },
+ '_file' => '(eval 366)',
+ 'name' => '<Custom Code>',
+ '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;
'Math::BigInt'->new('42')->beq($_);
},
'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
- '_file' => '(eval 368)'
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
]
}
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)';
$got->set_time_zone('UTC');
return 'DateTime'->compare($got, $exp) == 0;
},
- 'operator' => 'CODE(...)',
+ '_file' => '(eval 372)',
'name' => '<Custom Code>',
- '_file' => '(eval 372)'
+ 'operator' => 'CODE(...)'
}, 'Test2::Compare::Custom' )
};
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' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
+ '_lines' => [
+ 11
+ ]
+ }, 'Test2::Compare::Custom' ),
'milliseconds' => bless( {
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
'_lines' => [
11
],
$got->set_time_zone('UTC');
return 'DateTime'->compare($got, $exp) == 0;
},
- '_file' => '(eval 369)'
+ '_file' => '(eval 371)',
+ 'name' => '<Custom Code>',
+ 'operator' => 'CODE(...)'
}, 'Test2::Compare::Custom' ),
'numoffset' => bless( {
- '_file' => '(eval 370)',
- 'name' => '<Custom Code>',
- '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;
$exp->set_time_zone('UTC');
$got->set_time_zone('UTC');
return 'DateTime'->compare($got, $exp) == 0;
- }
- }, 'Test2::Compare::Custom' ),
- 'bestdayever' => bless( {
- 'name' => '<Custom Code>',
- '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' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
+ '_lines' => [
+ 11
+ ]
+ }, 'Test2::Compare::Custom' )
};
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)';
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)';
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)';
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' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
+ '_lines' => [
+ 11
+ ]
+ }, 'Test2::Compare::Custom' ),
'numtheory' => {
'boring' => 0,
'perfection' => [
bless( {
- '_file' => '(eval 373)',
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
'_lines' => [
6
],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
use feature ':5.16';
require Math::BigInt;
'Math::BigInt'->new('6')->beq($_);
- }
+ },
+ '_file' => '(eval 373)'
}, 'Test2::Compare::Custom' ),
bless( {
'code' => sub {
require Math::BigInt;
'Math::BigInt'->new('28')->beq($_);
},
- '_lines' => [
- 6
- ],
+ '_file' => '(eval 374)',
'name' => '<Custom Code>',
'operator' => 'CODE(...)',
- '_file' => '(eval 374)'
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' ),
bless( {
- 'name' => '<Custom Code>',
- 'operator' => 'CODE(...)',
'_lines' => [
6
],
+ 'name' => '<Custom Code>',
+ '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;
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' => '<Custom Code>',
- 'operator' => 'CODE(...)',
- '_file' => '(eval 376)'
- }, 'Test2::Compare::Custom' )
+ }
};
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' => '<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('-0.1')->beq($_);
+ },
+ '_file' => '(eval 377)'
+ }, 'Test2::Compare::Custom' ),
'million' => bless( {
- '_file' => '(eval 377)',
+ '_lines' => [
+ 6
+ ],
'operator' => 'CODE(...)',
'name' => '<Custom Code>',
+ '_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;
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' => '<Custom Code>'
- }, '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;
require Math::BigFloat;
'Math::BigFloat'->new('666')->beq($_);
},
- '_lines' => [
- 6
- ],
+ '_file' => '(eval 378)',
'name' => '<Custom Code>',
'operator' => 'CODE(...)'
}, 'Test2::Compare::Custom' )
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;
'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;
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;
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 {
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
]
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' => '<Custom Code>',
- '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;
require Math::BigFloat;
'Math::BigFloat'->new('3141.5927')->beq($_);
},
- 'operator' => 'CODE(...)',
'name' => '<Custom Code>',
- '_file' => '(eval 392)'
+ 'operator' => 'CODE(...)',
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' ),
+ 'before' => bless( {
+ '_lines' => [
+ 6
+ ],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ 'code' => sub {
+ BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+ use strict;
+ no feature ':all';
+ use feature ':5.16';
+ require Math::BigFloat;
+ 'Math::BigFloat'->new('3141.5927')->beq($_);
+ },
+ '_file' => '(eval 392)'
+ }, 'Test2::Compare::Custom' ),
'exponent' => bless( {
+ '_lines' => [
+ 6
+ ],
'_file' => '(eval 391)',
- '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;
require Math::BigFloat;
'Math::BigFloat'->new('3e14')->beq($_);
},
- '_lines' => [
- 6
- ]
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
};
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;
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;
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;
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' )
};
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)';
my $expected1 = {
'a' => {
+ 'better' => bless( {
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ '_file' => '(eval 394)',
+ 'code' => sub {
+ BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+ use strict;
+ no feature ':all';
+ use feature ':5.16';
+ require Math::BigInt;
+ 'Math::BigInt'->new('43')->beq($_);
+ },
+ '_lines' => [
+ 6
+ ]
+ }, 'Test2::Compare::Custom' ),
'b' => {
'c' => {
'answer' => bless( {
'_lines' => [
6
],
+ '_file' => '(eval 395)',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
'Math::BigInt'->new('42')->beq($_);
},
'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
- '_file' => '(eval 395)'
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
}
- },
- 'better' => bless( {
- '_file' => '(eval 394)',
- 'name' => '<Custom Code>',
- 'operator' => 'CODE(...)',
- '_lines' => [
- 6
- ],
- 'code' => sub {
- BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
- use strict;
- no feature ':all';
- use feature ':5.16';
- require Math::BigInt;
- 'Math::BigInt'->new('43')->beq($_);
- }
- }, 'Test2::Compare::Custom' )
+ }
}
};
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)';
'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;
require Math::BigInt;
'Math::BigInt'->new('42')->beq($_);
},
+ '_file' => '(eval 397)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
'_lines' => [
6
- ],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ ]
}, 'Test2::Compare::Custom' )
}
},
'better' => bless( {
- '_file' => '(eval 397)',
+ '_lines' => [
+ 6
+ ],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ '_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;
use feature ':5.16';
require Math::BigInt;
'Math::BigInt'->new('43')->beq($_);
- },
- '_lines' => [
- 6
- ],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ }
}, 'Test2::Compare::Custom' )
}
};
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)';
'b' => {
'c' => {
'answer' => bless( {
- '_file' => '(eval 398)',
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
'_lines' => [
6
],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ '_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;
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)';
'first_name' => 'Eric'
},
{
- 'last_name' => 'Seger',
- 'first_name' => 'Bob'
+ 'first_name' => 'Bob',
+ 'last_name' => 'Seger'
}
]
};
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)';
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' => '<Custom Code>',
+ 'operator' => 'CODE(...)'
+ }, 'Test2::Compare::Custom' ),
+ 'y' => bless( {
'_lines' => [
6
],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
- }, 'Test2::Compare::Custom' ),
- 'x' => 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::BigInt;
- 'Math::BigInt'->new('1')->beq($_);
+ 'Math::BigInt'->new('2')->beq($_);
},
- '_lines' => [
- 6
- ],
- '_file' => '(eval 400)'
+ '_file' => '(eval 400)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
},
'simple' => {
'a' => bless( {
- '_file' => '(eval 401)',
- '_lines' => [
- 6
- ],
+ 'name' => '<Custom Code>',
+ '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;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' )
},
- 'str-key' => {
- 'a' => bless( {
- 'name' => '<Custom Code>',
- 'operator' => 'CODE(...)',
- '_lines' => [
- 6
- ],
- 'code' => sub {
- BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
- use strict;
- no feature ':all';
- use feature ':5.16';
- require Math::BigInt;
- 'Math::BigInt'->new('1')->beq($_);
- },
- '_file' => '(eval 404)'
- }, 'Test2::Compare::Custom' )
- },
'table-array' => [
{
'a' => bless( {
- 'operator' => 'CODE(...)',
'name' => '<Custom Code>',
- '_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;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
- '_file' => '(eval 402)'
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' )
},
{
'b' => bless( {
- '_file' => '(eval 403)',
- 'operator' => 'CODE(...)',
'name' => '<Custom Code>',
- '_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;
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' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
+ '_lines' => [
+ 6
+ ]
+ }, 'Test2::Compare::Custom' )
+ }
};
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)';
require Math::BigInt;
'Math::BigInt'->new('1000')->beq($_);
},
+ '_file' => '(eval 409)',
'_lines' => [
6
- ],
- '_file' => '(eval 409)'
+ ]
}, 'Test2::Compare::Custom' )
};
use utf8;
use Test2::V0;
use Data::Dumper;
+use DateTime;
+use DateTime::Format::RFC3339;
+use Math::BigInt;
+use Math::BigFloat;
use TOML::Tiny;
binmode STDIN, ':encoding(UTF-8)';
binmode STDOUT, ':encoding(UTF-8)';
my $expected1 = {
- 'zero' => bless( {
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
- 'code' => sub {
- BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
- use strict;
- no feature ':all';
- use feature ':5.16';
- require Math::BigInt;
- 'Math::BigInt'->new('0')->beq($_);
- },
- '_lines' => [
- 6
- ],
- '_file' => '(eval 406)'
- }, 'Test2::Compare::Custom' ),
- 'neganswer' => bless( {
+ 'posanswer' => bless( {
'_lines' => [
6
],
+ '_file' => '(eval 406)',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
- 'Math::BigInt'->new('-42')->beq($_);
+ 'Math::BigInt'->new('42')->beq($_);
},
- 'operator' => 'CODE(...)',
'name' => '<Custom Code>',
- '_file' => '(eval 407)'
+ 'operator' => 'CODE(...)'
}, 'Test2::Compare::Custom' ),
- 'posanswer' => bless( {
- '_file' => '(eval 405)',
+ 'neganswer' => bless( {
'_lines' => [
6
],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
- 'Math::BigInt'->new('42')->beq($_);
+ 'Math::BigInt'->new('-42')->beq($_);
},
- 'name' => '<Custom Code>',
- 'operator' => 'CODE(...)'
+ '_file' => '(eval 405)'
}, 'Test2::Compare::Custom' ),
'answer' => bless( {
'_lines' => [
6
],
+ '_file' => '(eval 408)',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
require Math::BigInt;
'Math::BigInt'->new('42')->beq($_);
},
- 'name' => '<Custom Code>',
'operator' => 'CODE(...)',
- '_file' => '(eval 408)'
- }, 'Test2::Compare::Custom' )
+ 'name' => '<Custom Code>'
+ }, 'Test2::Compare::Custom' ),
+ 'zero' => bless( {
+ '_lines' => [
+ 6
+ ],
+ 'code' => sub {
+ BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+ use strict;
+ no feature ':all';
+ use feature ':5.16';
+ require Math::BigInt;
+ 'Math::BigInt'->new('0')->beq($_);
+ },
+ '_file' => '(eval 407)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
+ }, 'Test2::Compare::Custom' )
};
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)';
my $expected1 = {
'answer' => bless( {
- '_file' => '(eval 410)',
- 'operator' => 'CODE(...)',
- 'name' => '<Custom 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;
require Math::BigInt;
'Math::BigInt'->new('42')->beq($_);
},
- '_lines' => [
- 6
- ]
+ '_file' => '(eval 410)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
};
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)';
my $expected1 = {
'1' => bless( {
- 'operator' => 'CODE(...)',
- 'name' => '<Custom 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;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
- '_lines' => [
- 6
- ],
- '_file' => '(eval 411)'
+ '_file' => '(eval 411)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
};
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)';
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;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
- '_lines' => [
- 6
- ],
+ '_file' => '(eval 412)',
'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
- '_file' => '(eval 412)'
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
};
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)';
my $expected1 = {
'~!@$^&*()_+-`1234567890[]|/?><.,;:\'' => bless( {
- '_file' => '(eval 413)',
- '_lines' => [
- 6
- ],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ '_file' => '(eval 413)',
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' )
};
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)';
my $expected1 = {
'plain_table' => {
- 'with.dot' => bless( {
- '_file' => '(eval 415)',
- '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::BigInt;
- 'Math::BigInt'->new('4')->beq($_);
- },
- '_lines' => [
- 6
- ]
- }, 'Test2::Compare::Custom' ),
'plain' => bless( {
'operator' => 'CODE(...)',
'name' => '<Custom Code>',
+ '_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;
},
'_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' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
+ '_lines' => [
+ 6
+ ]
+ }, 'Test2::Compare::Custom' )
},
'table' => {
'withdot' => {
'plain' => bless( {
- '_file' => '(eval 416)',
+ '_lines' => [
+ 6
+ ],
+ 'name' => '<Custom Code>',
+ '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;
use feature ':5.16';
require Math::BigInt;
'Math::BigInt'->new('5')->beq($_);
- },
- '_lines' => [
- 6
- ],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ }
}, 'Test2::Compare::Custom' ),
'key.with.dots' => bless( {
- '_file' => '(eval 417)',
- 'operator' => 'CODE(...)',
- 'name' => '<Custom 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;
require Math::BigInt;
'Math::BigInt'->new('6')->beq($_);
},
- '_lines' => [
- 6
- ]
+ '_file' => '(eval 418)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
}
},
'plain' => bless( {
- '_file' => '(eval 418)',
- 'name' => '<Custom Code>',
'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;
require Math::BigInt;
'Math::BigInt'->new('1')->beq($_);
},
+ '_file' => '(eval 414)',
'_lines' => [
6
]
}, 'Test2::Compare::Custom' ),
'with.dot' => bless( {
- '_lines' => [
- 6
- ],
+ '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;
require Math::BigInt;
'Math::BigInt'->new('2')->beq($_);
},
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
- '_file' => '(eval 419)'
+ '_file' => '(eval 415)',
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' )
};
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' => '<Custom Code>',
- 'operator' => 'CODE(...)',
- '_lines' => [
- 6
- ],
- 'code' => sub {
- BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
- use strict;
- no feature ':all';
- use feature ':5.16';
- require Math::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;
require Math::BigFloat;
'Math::BigFloat'->new('3.141592653589793')->beq($_);
},
- 'operator' => 'CODE(...)',
'name' => '<Custom Code>',
- '_file' => '(eval 421)'
- }, 'Test2::Compare::Custom' )
+ 'operator' => 'CODE(...)'
+ }, 'Test2::Compare::Custom' ),
+ 'neglongpi' => bless( {
+ '_lines' => [
+ 6
+ ],
+ '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('-3.141592653589793')->beq($_);
+ },
+ '_file' => '(eval 420)'
+ }, 'Test2::Compare::Custom' )
};
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' => '<Custom Code>'
- }, 'Test2::Compare::Custom' ),
'answer' => bless( {
- '_file' => '(eval 422)',
'_lines' => [
6
],
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ '_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;
use feature ':5.16';
require Math::BigInt;
'Math::BigInt'->new('9223372036854775807')->beq($_);
- },
- 'name' => '<Custom Code>',
- 'operator' => 'CODE(...)'
- }, 'Test2::Compare::Custom' )
+ }
+ }, 'Test2::Compare::Custom' ),
+ 'neganswer' => bless( {
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
+ 'code' => sub {
+ BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
+ use strict;
+ no feature ':all';
+ use feature ':5.16';
+ require Math::BigInt;
+ 'Math::BigInt'->new('-9223372036854775808')->beq($_);
+ },
+ '_file' => '(eval 423)',
+ '_lines' => [
+ 6
+ ]
+ }, 'Test2::Compare::Custom' )
};
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.'
};
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)';
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)';
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'
};
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.'
};
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.'
};
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)';
my $expected1 = {
'black' => {
'python' => '>3.6',
- 'allow_prereleases' => 1,
- 'version' => '>=18.9b0'
+ 'version' => '>=18.9b0',
+ 'allow_prereleases' => 1
}
};
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)';
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 \f 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 \r carriage return character.',
- 'backspace' => 'This string has a \b backspace character.',
- 'formfeed' => 'This string has a \f 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 \b 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.'
};
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)';
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'
};
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)';
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)';
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)';
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)';
'last_name' => 'Clapton'
},
{
- 'last_name' => 'Seger',
- 'first_name' => 'Bob'
+ 'first_name' => 'Bob',
+ 'last_name' => 'Seger'
}
]
};
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)';
my $expected1 = {
'albums' => [
{
- 'name' => 'Born to Run',
'songs' => [
{
'name' => 'Jungleland'
{
'name' => 'Meeting Across the River'
}
- ]
+ ],
+ 'name' => 'Born to Run'
},
{
+ 'name' => 'Born in the USA',
'songs' => [
{
'name' => 'Glory Days'
{
'name' => 'Dancing in the Dark'
}
- ],
- 'name' => 'Born in the USA'
+ ]
}
]
};
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)';
my $expected1 = {
'people' => [
{
- 'first_name' => 'Bruce',
- 'last_name' => 'Springsteen'
+ 'last_name' => 'Springsteen',
+ 'first_name' => 'Bruce'
}
]
};
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)';
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)';
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)';
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)';
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)';
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)';
'"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;
require Math::BigInt;
'Math::BigInt'->new('42')->beq($_);
},
+ '_file' => '(eval 424)',
+ 'name' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
'_lines' => [
6
- ],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ ]
}, 'Test2::Compare::Custom' )
}
}
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)';
my $expected1 = {
'key#group' => {
'answer' => bless( {
- '_file' => '(eval 425)',
- 'name' => '<Custom Code>',
+ '_lines' => [
+ 6
+ ],
'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
require Math::BigInt;
'Math::BigInt'->new('42')->beq($_);
},
- '_lines' => [
- 6
- ]
+ '_file' => '(eval 425)'
}, 'Test2::Compare::Custom' )
}
};
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)';
'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;
require Math::BigInt;
'Math::BigInt'->new('42')->beq($_);
},
- '_lines' => [
- 6
- ],
- 'name' => '<Custom Code>',
- 'operator' => 'CODE(...)'
+ '_file' => '(eval 426)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
}
}
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)';
my $expected1 = {
'electron_mass' => bless( {
- '_file' => '(eval 427)',
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
'_lines' => [
6
],
use feature ':5.16';
require Math::BigFloat;
'Math::BigFloat'->new('9.109109383e-31')->beq($_);
- }
+ },
+ '_file' => '(eval 427)',
+ 'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>'
}, 'Test2::Compare::Custom' )
};
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)';
my $expected1 = {
'million' => bless( {
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>',
'_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;
require Math::BigInt;
'Math::BigInt'->new('1000000')->beq($_);
},
- '_file' => '(eval 428)'
+ 'name' => '<Custom Code>',
+ 'operator' => 'CODE(...)'
}, 'Test2::Compare::Custom' )
};
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}"
};
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)';