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
|
#!perl
# vim:ft=perl:
use strict;
use warnings;
use Test::More tests => 11;
use Test::Exception;
use constant METHODS => (
'new', 'to_form', 'from_form',
'rt_type', 'id',
# attributes:
'name', 'description', 'members'
);
BEGIN {
use_ok('RT::Client::REST::Group');
}
my $user;
lives_ok {
$user = RT::Client::REST::Group->new;
} 'User can get successfully created';
for my $method (METHODS) {
can_ok($user, $method);
}
ok('group' eq $user->rt_type, 'rt_type is ok');
|
