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
|
# Testing of some API methods;
use strict;
use warnings;
use lib 't/lib/';
use Test::More 0.99;
use TestBridge;
use CPAN::Meta::YAML;
subtest "default exports" => sub {
ok( defined(&Load), 'Found exported Load function' );
ok( defined(&Dump), 'Found exported Dump function' );
ok( \&main::Load == \&CPAN::Meta::YAML::Load, 'Load is CPAN::Meta::YAML' );
ok( \&main::Dump == \&CPAN::Meta::YAML::Dump, 'Dump is CPAN::Meta::YAML' );
ok( !defined(&LoadFile), 'LoadFile function not exported' );
ok( !defined(&DumpFile), 'DumpFile function not exported' );
ok( !defined(&freeze), 'freeze function not exported' );
ok( !defined(&thaw), 'thaw functiona not exported' );
};
subtest "all exports" => sub {
package main::all_exports;
use Test::More;
use CPAN::Meta::YAML qw/Load Dump LoadFile DumpFile freeze thaw/;
ok( defined(&Load), 'Found exported Load function' );
ok( defined(&Dump), 'Found exported Dump function' );
ok( defined(&LoadFile), 'Found exported LoadFile function' );
ok( defined(&DumpFile), 'Found exported DumpFile function' );
ok( defined(&freeze), 'Found exported freeze function' );
ok( defined(&thaw), 'Found exported thaw functiona' );
};
subtest "constructor and documents" => sub {
my @docs = ( { one => 'two' }, { three => 'four' } );
ok( my $yaml = CPAN::Meta::YAML->new( @docs ), "constructor" );
cmp_deeply( [ @$yaml ], \@docs, "the object is an arrayref of documents" );
};
done_testing;
|
