#!perl
# vim:ft=perl:
use strict;
use warnings;

use Test::More;
use Test::Exception;

use constant METHODS => (
    'new',     'to_form', 'from_form',
    'rt_type', 'id',

    # attributes:
    'name',        'password',      'real_name',   'gecos',
    'privileged',  'email_address', 'comments',    'organization',
    'address_one', 'address_two',   'city',        'state', 'zip', 'country',
    'home_phone',  'work_phone',    'cell_phone',  'pager', 'disabled',
    'nickname',    'lang',          'contactinfo', 'signature'
);

BEGIN {
    use_ok('RT::Client::REST::User');
}

my $user;

lives_ok {
    $user = RT::Client::REST::User->new;
}
'User can get successfully created';

for my $method (METHODS) {
    can_ok( $user, $method );
}

ok( 'user' eq $user->rt_type );

done_testing;