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
|
# Copyright (c) 2010 by David Golden. All rights reserved.
# Licensed under terms of Perl itself (the "License").
# You may not use this file except in compliance with the License.
# A copy of the License was distributed with this file or you may obtain a
# copy of the License from http://dev.perl.org/licenses/
use strict;
use warnings;
use Test::More;
use Test::Exception;
use lib 't/lib';
plan tests => 7;
require_ok( 'Metabase::Resource' );
#--------------------------------------------------------------------------#
# fixtures
#--------------------------------------------------------------------------#
my ($obj, $err);
#--------------------------------------------------------------------------#
# required parameters missing
#--------------------------------------------------------------------------#
eval { $obj = Metabase::Resource->new() };
$err = $@;
like( $err, qr/no resource string provided/, "new() without string throws error" );
#--------------------------------------------------------------------------#
# new should create proper subtype object
#--------------------------------------------------------------------------#
my $string = "cpan:///distfile/JOHNDOE/Foo-Bar-1.23.tar.gz";
lives_ok{ $obj = Metabase::Resource->new( $string ) }
"Metabase::Resource->new(\$string) should not die";
isa_ok( $obj, 'Metabase::Resource::cpan' );
is( $obj->resource, $string, "object content correct" );
#--------------------------------------------------------------------------#
# generates typed metadata
#--------------------------------------------------------------------------#
# test metadata
my $metadata_types = {
type => '//str',
cpan_id => '//str',
dist_file => '//str',
dist_name => '//str',
dist_version => '//str',
};
my $expected_metadata = {
type => 'Metabase-Resource-cpan-distfile',
cpan_id => 'JOHNDOE',
dist_file => 'JOHNDOE/Foo-Bar-1.23.tar.gz',
dist_name => 'Foo-Bar',
dist_version => '1.23',
};
is_deeply( $metadata_types, $obj->metadata_types, "Metadata types" );
is_deeply( $expected_metadata, $obj->metadata, "Metadata" );
|
