The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SCESANO / Type-Guess-0.005 / t / 04_tolerance_and_strictness.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

              
use strict;
use warnings;
use Test::More;
use Type::Guess;
my $t;
Type::Guess->skip_empty(0);
$t = Type::Guess->new(1, 2, "", 3, 4);
is($t->type, "Int");
Type::Guess->skip_empty(1);
Type::Guess->tolerance(0.25);
$t = Type::Guess->new(1, 2, "", 3, 4);
is($t->type, "Int");
Type::Guess->tolerance(0);
$t = Type::Guess->new(1, 2, "", 3, 4);
is($t->type, "Str");
done_testing()