#!perl
package MyObject;

# vim:ft=perl:

# For testing purposes -- Object with 'id' attribute.

@ISA = qw(RT::Client::REST::Object);

sub id {
    my $self = shift;
    if (@_) {
        $self->{_id} = shift;
    }
    return $self->{_id};
}

sub rt_type { 'myobject' }

sub _attributes {
    { id => {}, }
}

package main;

use strict;
use warnings;

use Test::More tests => 38;
use Test::Exception;

use constant METHODS => (
    'new',           'to_form',
    'from_form',     '_generate_methods',
    'store',         'retrieve',
    'param',         'rt',
    'cf',            'search',
    'count',         'use_single_rt',
    'use_autostore', 'use_autoget',
    'use_autosync',  'be_transparent',
    'autostore',     'autosync',
    'autoget',
);

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

my $obj;

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

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

use RT::Client::REST;
my $rt = RT::Client::REST->new;

for my $method (qw(retrieve)) {
    my $obj = MyObject->new;    # local copy;

    throws_ok {
        $obj->$method;
    }
    'RT::Client::REST::Object::RequiredAttributeUnsetException',
      "won't go on without 'rt' set";

    lives_ok {
        $obj->rt($rt)
    }
    "Successfully set 'rt'";

    throws_ok {
        $obj->$method;
    }
    'RT::Client::REST::Object::RequiredAttributeUnsetException',
      "won't go on without 'id' set";

    lives_ok {
        $obj->id(1);
    }
    "Successfully set 'id' to 1";

    throws_ok {
        $obj->$method;
    }
    'RT::Client::REST::RequiredAttributeUnsetException',
      "rt object is not correctly initialized";
}

for my $method (qw(store count search)) {
    my $obj = MyObject->new;    # local copy;

    throws_ok {
        $obj->$method;
    }
    'RT::Client::REST::Object::RequiredAttributeUnsetException',
      "won't go on without 'rt' set";

    lives_ok {
        $obj->rt($rt)
    }
    "Successfully set 'rt'";

    lives_ok {
        $obj->id(1);
    }
    "Successfully set 'id' to 1";

    throws_ok {
        $obj->$method;
    }
    'RT::Client::REST::RequiredAttributeUnsetException',
      "rt object is not correctly initialized";
}