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

AEREAL / JSON-TypeInference-1.0.1 / t / JSON-TypeInference-Type.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154

              
use strict;
use warnings;
use Test::More;
use Types::Serialiser;
require_ok 'JSON::TypeInference::Type::Array';
require_ok 'JSON::TypeInference::Type::Boolean';
require_ok 'JSON::TypeInference::Type::Maybe';
require_ok 'JSON::TypeInference::Type::Null';
require_ok 'JSON::TypeInference::Type::Number';
require_ok 'JSON::TypeInference::Type::Object';
require_ok 'JSON::TypeInference::Type::String';
require_ok 'JSON::TypeInference::Type::Union';
require_ok 'JSON::TypeInference::Type::Unknown';
subtest '#signature' => sub {
  subtest 'array' => sub {
    my $string = JSON::TypeInference::Type::String->new;
    my $string_array = JSON::TypeInference::Type::Array->new($string);
    is $string_array->signature, 'array[string]';
  };
  subtest 'boolean' => sub {
    my $boolean = JSON::TypeInference::Type::Boolean->new;
    is $boolean->signature, 'boolean';
  };
  subtest 'maybe' => sub {
    my $string = JSON::TypeInference::Type::String->new;
    my $maybe_string = JSON::TypeInference::Type::Maybe->new($string);
    is $maybe_string->signature, 'maybe[string]';
  };
  subtest 'null' => sub {
    my $null = JSON::TypeInference::Type::Null->new;
    is $null->signature, 'null';
  };
  subtest 'number' => sub {
    my $number = JSON::TypeInference::Type::Number->new;
    is $number->signature, 'number';
  };
  subtest 'object' => sub {
    my $string = JSON::TypeInference::Type::String->new;
    my $number = JSON::TypeInference::Type::Number->new;
    my $object = JSON::TypeInference::Type::Object->new({ name => $string, id => $number });
    is $object->signature, 'object[id:number, name:string]';
  };
  subtest 'string' => sub {
    my $string = JSON::TypeInference::Type::String->new;
    is $string->signature, 'string';
  };
  subtest 'union' => sub {
    my $string = JSON::TypeInference::Type::String->new;
    my $number = JSON::TypeInference::Type::Number->new;
    my $string_or_number = JSON::TypeInference::Type::Union->new($string, $number);
    is $string_or_number->signature, 'number|string';
  };
  subtest 'unknown' => sub {
    my $unknown = JSON::TypeInference::Type::Unknown->new;
    is $unknown->signature, 'unknown';
  };
};
subtest '#accepts' => sub {
  subtest 'string' => sub {
    ok + JSON::TypeInference::Type::String->accepts('a');
    ok ! JSON::TypeInference::Type::String->accepts(1);
    ok ! JSON::TypeInference::Type::String->accepts(\1);
    ok ! JSON::TypeInference::Type::String->accepts(\0);
    ok ! JSON::TypeInference::Type::String->accepts([]);
    ok ! JSON::TypeInference::Type::String->accepts({});
    ok ! JSON::TypeInference::Type::String->accepts(undef);
  };
  subtest 'number' => sub {
    ok ! JSON::TypeInference::Type::Number->accepts('a');
    ok + JSON::TypeInference::Type::Number->accepts(1);
    ok ! JSON::TypeInference::Type::Number->accepts(\1);
    ok ! JSON::TypeInference::Type::Number->accepts(\0);
    ok ! JSON::TypeInference::Type::Number->accepts([]);
    ok ! JSON::TypeInference::Type::Number->accepts({});
    ok ! JSON::TypeInference::Type::Number->accepts(undef);
  };
  subtest 'null' => sub {
    ok ! JSON::TypeInference::Type::Null->accepts('a');
    ok ! JSON::TypeInference::Type::Null->accepts(1);
    ok ! JSON::TypeInference::Type::Null->accepts(\1);
    ok ! JSON::TypeInference::Type::Null->accepts(\0);
    ok ! JSON::TypeInference::Type::Null->accepts([]);
    ok ! JSON::TypeInference::Type::Null->accepts({});
    ok + JSON::TypeInference::Type::Null->accepts(undef);
  };
  subtest 'array' => sub {
    ok ! JSON::TypeInference::Type::Array->accepts('a');
    ok ! JSON::TypeInference::Type::Array->accepts(1);
    ok ! JSON::TypeInference::Type::Array->accepts(\1);
    ok ! JSON::TypeInference::Type::Array->accepts(\0);
    ok + JSON::TypeInference::Type::Array->accepts([]);
    ok ! JSON::TypeInference::Type::Array->accepts({});
    ok ! JSON::TypeInference::Type::Array->accepts(undef);
  };
  subtest 'object' => sub {
    ok ! JSON::TypeInference::Type::Object->accepts('a');
    ok ! JSON::TypeInference::Type::Object->accepts(1);
    ok ! JSON::TypeInference::Type::Object->accepts(\1);
    ok ! JSON::TypeInference::Type::Object->accepts(\0);
    ok ! JSON::TypeInference::Type::Object->accepts([]);
    ok + JSON::TypeInference::Type::Object->accepts({});
    ok ! JSON::TypeInference::Type::Object->accepts(undef);
  };
  subtest 'boolean' => sub {
    ok ! JSON::TypeInference::Type::Boolean->accepts('a');
    ok ! JSON::TypeInference::Type::Boolean->accepts(1);
    ok ! JSON::TypeInference::Type::Boolean->accepts(\(my $str = 'str'));
    ok + JSON::TypeInference::Type::Boolean->accepts(Types::Serialiser::true);
    ok + JSON::TypeInference::Type::Boolean->accepts(Types::Serialiser::false);
    ok ! JSON::TypeInference::Type::Boolean->accepts([]);
    ok ! JSON::TypeInference::Type::Boolean->accepts({});
    ok ! JSON::TypeInference::Type::Boolean->accepts(undef);
  };
  subtest 'maybe' => sub {
    ok ! JSON::TypeInference::Type::Maybe->accepts('a');
    ok ! JSON::TypeInference::Type::Maybe->accepts(1);
    ok ! JSON::TypeInference::Type::Maybe->accepts(\1);
    ok ! JSON::TypeInference::Type::Maybe->accepts(\0);
    ok ! JSON::TypeInference::Type::Maybe->accepts([]);
    ok ! JSON::TypeInference::Type::Maybe->accepts({});
    ok ! JSON::TypeInference::Type::Maybe->accepts(undef);
  };
  subtest 'union' => sub {
    ok ! JSON::TypeInference::Type::Union->accepts('a');
    ok ! JSON::TypeInference::Type::Union->accepts(1);
    ok ! JSON::TypeInference::Type::Union->accepts(\1);
    ok ! JSON::TypeInference::Type::Union->accepts(\0);
    ok ! JSON::TypeInference::Type::Union->accepts([]);
    ok ! JSON::TypeInference::Type::Union->accepts({});
    ok ! JSON::TypeInference::Type::Union->accepts(undef);
  };
  subtest 'unknown' => sub {
    ok ! JSON::TypeInference::Type::Unknown->accepts('a');
    ok ! JSON::TypeInference::Type::Unknown->accepts(1);
    ok ! JSON::TypeInference::Type::Unknown->accepts(\1);
    ok ! JSON::TypeInference::Type::Unknown->accepts(\0);
    ok ! JSON::TypeInference::Type::Unknown->accepts([]);
    ok ! JSON::TypeInference::Type::Unknown->accepts({});
    ok ! JSON::TypeInference::Type::Unknown->accepts(undef);
  };
};
done_testing;