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
|
# $Id: 205-parse-classes-pk.t,v 1.3 2009/03/30 10:57:44 aff Exp $
use warnings;
use strict;
use Data::Dumper;
use Test::More;
use File::Spec::Functions;
use lib catdir qw ( blib lib );
plan tests => 47;
use_ok ('Parse::Dia::SQL');
my $diasql = Parse::Dia::SQL->new( file => catfile(qw(t data TestERD.dia)), db => 'db2' );
isa_ok($diasql, q{Parse::Dia::SQL}, q{Expect a Parse::Dia::SQL object});
# TODO: Add test on return value - call wrapper
$diasql->convert();
my $classes = $diasql->get_classes_ref();
# Expect an array ref with 14 elements
isa_ok($classes, 'ARRAY');
cmp_ok(scalar(@$classes), q{==}, 14, q{Expect 14 classes});
# Hash with class/view names as keys and primary key as (hashref) elements
my %pk = (
imageInfo => [ [ 'id', 'numeric (18)', '', '2', '' ] ],
subImageInfo => [
[ 'imageInfo_id', 'numeric (18)', '', '2', '' ],
[ 'pixSize', 'integer', '', '2', '' ]
],
imageCategoryList => [
[ 'imageInfo_id', 'numeric (18)', '', '2', '' ],
[ 'name', 'varchar (32)', '', '2', '' ]
],
categoryNames => [ [ 'name', 'varchar (32)', '', '2', '' ] ],
imageAttribute => [
[ 'imageInfo_id', 'numeric (18)', '', '2', '' ],
[ 'attributeCategory_id', 'numeric (18)', '', '2', '' ]
],
userInfo => [ [ 'id', 'numeric (18)', '', '2', '' ] ],
userAttribute => [
[ 'userInfo_id', 'numeric (18)', '', '2', '' ],
[ 'attributeCategory_id', 'numeric (18)', '', '2', '' ]
],
userImageRating => [
[ 'userInfo_id', 'numeric (18)', '', '2', '' ],
[ 'imageInfo_id', 'numeric (15)', '', '2', '' ]
],
attributeCategory => [ [ 'id', 'numeric (18)', '', '2', '' ] ],
userSession => [
[ 'userInfo_id', 'numeric (18)', '', '2', '' ],
[ 'md5sum', 'char (32)', '', '2', '' ]
],
extremes => [ [ 'name', 'varchar (32)', '', '2', '' ] ],
ratings_view => [],
whorated_view => [],
users_view => [],
);
# Check that each class has of the expected pk attributes
foreach my $class (@$classes) {
isa_ok($class, 'HASH');
ok(exists($pk{$class->{name}})) or
diag(q{Unexpected class name: }. $class->{name});
#diag($class->{name} . ' pk :' . Dumper($class->{pk}));
# check contents
is_deeply(
$class->{pk},
$pk{ $class->{name} },
q{pk for } . $class->{name}
);
# remove class from hash
delete $pk{$class->{name}};
}
# Expect no classes left now
cmp_ok(scalar(keys %pk), q{==}, 0, q{Expect 0 classes left});
__END__
|
