#!/usr/bin/perl -w
use strict;
use PBS::Client;
use Test::More (tests => 1);
#----------------------------------------
# Test copying job
#----------------------------------------
my $fail = 0;
my $oJob = PBS::Client::Job->new(
mem => '600mb',
nodes => 1,
);
#----------------------
# Copy without argument
my $nJob = $oJob->copy;
$fail = 1 if ($nJob->{mem} ne '600mb' || $nJob->{nodes} ne 1);
$oJob->nodes(2);
$fail = 1 if ($oJob->{nodes} ne 2 || $nJob->{nodes} ne 1);
$nJob->nodes(10);
$fail = 1 if ($oJob->{nodes} ne 2 || $nJob->{nodes} ne 10);
#----------------------
#---------------------
# Make multiple copies
my @nJob = $oJob->copy(2);
$fail = 1 if (@nJob ne 2);
$fail = 1 if ($nJob[0]->{mem} ne '600mb' || $nJob[0]->{nodes} ne 2);
$fail = 1 if ($nJob[1]->{mem} ne '600mb' || $nJob[1]->{nodes} ne 2);
$oJob->nodes(1);
$fail = 1 if ($oJob->{nodes} ne 1 || $nJob[0]->{nodes} ne 2 ||
$nJob[1]->{nodes} ne 2);
$nJob[0]->nodes(10);
$fail = 1 if ($oJob->{nodes} ne 1 || $nJob[0]->{nodes} ne 10 ||
$nJob[1]->{nodes} ne 2);
$nJob[1]->nodes(20);
$fail = 1 if ($oJob->{nodes} ne 1 || $nJob[0]->{nodes} ne 10 ||
$nJob[1]->{nodes} ne 20);
#---------------------
is($fail, 0, "copying job object");