use Test::More tests => 8;
use Test::Exception;
use VM::JiffyBox; # we have checked this already in 00_load.t
my $module = 'VM::JiffyBox';
can_ok($module, 'new');
dies_ok { $module->new(); } 'Die if no token';
my $token = 'MyToken';
my $jiffy = $module->new(token => $token);
isa_ok($jiffy, $module);
is($jiffy->token, $token, 'Check Token');
can_ok($jiffy, 'get_vm');
dies_ok{$jiffy->get_vm();} 'Die if no ID';
my $box_id = 'MyBoxID';
my $box = $jiffy->get_vm($box_id);
is($box->id, $box_id, 'Check ID');
is($box->{hypervisor}->token, $token, 'Check Token @ Box');