-
Notifications
You must be signed in to change notification settings - Fork 62
/
SitePicture.t
82 lines (65 loc) · 2.05 KB
/
SitePicture.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
use strict;
use warnings;
use Test::More;
use lib "lib";
use Data::Dumper;
use FindBin;
BEGIN { use_ok('Netdot::Model::Site'); }
BEGIN { use_ok('Netdot::Model::SitePicture'); }
my $site = Site->insert({ name => "t/SitePicture.t" });
ok($site, "site insert");
my $picture_file = "$FindBin::Bin/../htdocs/img/title.png";
ok(-f($picture_file), "picture file exists");
my $picture_data;
{
local $/;
if (open my $fh, "<", $picture_file) {
$picture_data = <$fh>;
}
}
is(length($picture_data), 8826, "the picture is right");
my $pic = SitePicture->insert({
site => $site->id,
filename => $picture_file,
bindata => $picture_data,
});
ok($pic, "picture insert");
is($pic->bindata, $picture_data, "picture object holds correct data");
my $pic_id = $pic->id;
undef $pic;
$pic = SitePicture->retrieve($pic_id);
ok($pic, "picture retrieve");
is($pic->bindata, $picture_data, "retrieved picture object holds correct data");
$site->delete;
isa_ok($site, 'Class::DBI::Object::Has::Been::Deleted', 'cleanup ok');
done_testing;
exit;
# Ipblock
my $subnet = Ipblock->insert({address => '1.1.1.0',
prefix => 24,
status => 'Subnet'});
my $subnet_id = $subnet->id;
ok(defined $subnet, 'subnet insert');
$subnet->set('description', 'test1');
ok($subnet->update, "update without params returns success");
undef $subnet;
$subnet = Ipblock->retrieve($subnet_id);
is($subnet->description, 'test1', 'update without params');
ok($subnet->update({description => 'test2'}), "update with params returns success");
undef $subnet;
$subnet = Ipblock->retrieve($subnet_id);
is($subnet->description, 'test2', 'update with params');
eval {
my $vlan = Vlan->insert({name => 'test vlan',
vid => 1});
ok(defined $vlan, "vlan insert");
$subnet->update({vlan => $vlan});
is($subnet->vlan, $vlan, 'set vlan to subnet');
$vlan->delete;
undef $subnet;
$subnet = Ipblock->retrieve($subnet_id);
ok(!$subnet->vlan, 'nullify');
};
fail($@) if $@;
$subnet->delete;
done_testing;