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
|
use strict;
use warnings;
use Test::More tests => 34;
use RT;
RT::LoadConfig();
RT::Init();
my $runid = rand(200);
my $attribute = "squelch-$runid";
ok(require RT::Attributes);
my $user = RT::User->new($RT::SystemUser);
ok (UNIVERSAL::isa($user, 'RT::User'));
my ($id,$msg) = $user->Create(Name => 'attrtest-'.$runid);
ok ($id, $msg);
ok($user->id, "Created a test user");
ok(1, $user->Attributes->BuildSelectQuery);
my $attr = $user->Attributes;
# XXX: Order by id as some tests depend on it
$attr->OrderByCols({ FIELD => 'id' });
ok(1, $attr->BuildSelectQuery);
ok (UNIVERSAL::isa($attr,'RT::Attributes'), 'got the attributes object');
($id, $msg) = $user->AddAttribute(Name => 'TestAttr', Content => 'The attribute has content');
ok ($id, $msg);
is ($attr->Count,1, " One attr after adidng a first one");
my $first_attr = $user->FirstAttribute('TestAttr');
ok($first_attr, "got some sort of attribute");
isa_ok($first_attr, 'RT::Attribute');
is($first_attr->Content, 'The attribute has content', "got the right content back");
($id, $msg) = $attr->DeleteEntry(Name => $runid);
ok(!$id, "Deleted non-existant entry - $msg");
is ($attr->Count,1, "1 attr after deleting an empty attr");
my @names = $attr->Names;
is ("@names", "TestAttr");
($id, $msg) = $user->AddAttribute(Name => $runid, Content => "First");
ok($id, $msg);
my $runid_attr = $user->FirstAttribute($runid);
ok($runid_attr, "got some sort of attribute");
isa_ok($runid_attr, 'RT::Attribute');
is($runid_attr->Content, 'First', "got the right content back");
is ($attr->Count,2, " Two attrs after adding an attribute named $runid");
($id, $msg) = $user->AddAttribute(Name => $runid, Content => "Second");
ok($id, $msg);
$runid_attr = $user->FirstAttribute($runid);
ok($runid_attr, "got some sort of attribute");
isa_ok($runid_attr, 'RT::Attribute');
is($runid_attr->Content, 'First', "got the first content back still");
is ($attr->Count,3, " Three attrs after adding a secondvalue to $runid");
($id, $msg) = $attr->DeleteEntry(Name => $runid, Content => "First");
ok($id, $msg);
is ($attr->Count,2);
#$attr->_DoSearch();
($id, $msg) = $attr->DeleteEntry(Name => $runid, Content => "Second");
ok($id, $msg);
is ($attr->Count,1);
#$attr->_DoSearch();
ok(1, $attr->BuildSelectQuery);
($id, $msg) = $attr->DeleteEntry(Name => "moose");
ok(!$id, "Deleted non-existant entry - $msg");
is ($attr->Count,1);
ok(1, $attr->BuildSelectQuery);
@names = $attr->Names;
is("@names", "TestAttr");
1;
|
