1use Data::Perl;
2use Test::More;
3
4
5my $array = array(qw/1 2 3 4/);
6isa_ok($array, 'Data::Perl::Collection::Array');
7
8my $hash = hash(qw/1 2 3 4/);
9isa_ok($hash, 'Data::Perl::Collection::Hash');
10
11my $code = code();
12isa_ok($code, 'Data::Perl::Code');
13
14my $code2 = code(sub { 'foo' });
15isa_ok($code2, 'Data::Perl::Code');
16
17my $number = number();
18isa_ok($number, 'Data::Perl::Number');
19
20$number2 = number(2);
21isa_ok($number2, 'Data::Perl::Number');
22
23my $bool = bool(1);
24isa_ok($bool, 'Data::Perl::Bool');
25
26my $string = string();
27isa_ok($string, 'Data::Perl::String');
28
29my $string2 = string('foo');
30isa_ok($string2, 'Data::Perl::String');
31
32my $counter = counter();
33isa_ok($counter, 'Data::Perl::Counter');
34
35my $counter2 = counter(1);
36isa_ok($counter2, 'Data::Perl::Counter');
37
38done_testing();
39