#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 3;

#----------------------------------------------------------------------
package Foo::Object;

use base 'Clustericious::Client::Object';

sub m { 'return from m' };

#----------------------------------------------------------------------
package Foo::OtherObject;

use base 'Clustericious::Client::Object';

our %classes =
(
    a => 'Foo::Object'
);

sub n { 'return from n' };

#----------------------------------------------------------------------
package main;

use_ok('Clustericious::Client::Object');

my $data =
{
    a => [ { a => 'b' }, { c => 'd' } ]
};

my $obj = new_ok('Foo::OtherObject', [ $data ]);

isa_ok($obj->a->[0], 'Foo::Object');