#!/usr/bin/perl

use ExtUtils::testlib;
use PBS;

$c=PBS::pbs_connect(PBS::pbs_default());
 $j=PBS::pbs_submit($c, 
   {$PBS::ATTR_N => "test",
    $PBS::ATTR_l.".nodes" => "1", 
    $PBS::ATTR_c => $PBS::CHECKPOINT_UNSPECIFIED, 
    $PBS::ATTR_h => $PBS::NO_HOLD, 
    $PBS::ATTR_j => $PBS::NO_JOIN, 
    $PBS::ATTR_k => $PBS::NO_KEEP, 
    $PBS::ATTR_m => $PBS::MAIL_AT_ABORT, 
    $PBS::ATTR_p => "0", 
    $PBS::ATTR_r => "TRUE"
   }, "/tmp/pbssubmit",undef,undef);
 print $j||PBS::pbs_geterrmsg($c),"\n";
