##############################################################################
# Copyright (c) 2004, The Regents of the University of California.
# Produced at the Lawrence Livermore National Laboratory.
# Written by Tim Harsch <harsch1@llnl.gov>
# UCRL-CODE-155918
# All rights reserved.
#
# This file is part of Schedule::DRMAAc. For details, see CPAN
# Please also read LICENSE.txt which is found in this source distribution.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (as published by the
# Free Software Foundation) version 2, dated June 1991.
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the IMPLIED WARRANTY
# OF MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# See the terms and conditions of the GNU General Public License for more
# details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
##############################################################################
# $Id: 02_subs.t,v 1.2 2004/04/27 20:50:36 harsch Exp $
##############################################################################
use Schedule::DRMAAc qw/ :all /;
use Test::More;
my @funcs = qw/
drmaa_get_next_attr_name drmaa_get_next_attr_value drmaa_get_next_job_id drmaa_release_attr_names
drmaa_release_attr_values drmaa_release_job_ids drmaa_init drmaa_exit drmaa_allocate_job_template
drmaa_delete_job_template drmaa_set_attribute drmaa_get_attribute drmaa_set_vector_attribute
drmaa_get_vector_attribute drmaa_get_attribute_names drmaa_get_vector_attribute_names drmaa_run_job
drmaa_run_bulk_jobs drmaa_control drmaa_synchronize drmaa_wait drmaa_wifexited drmaa_wexitstatus
drmaa_wifsignaled drmaa_wtermsig drmaa_wcoredump drmaa_wifaborted drmaa_job_ps drmaa_strerror
drmaa_get_contact drmaa_version drmaa_get_DRM_system drmaa_get_DRMAA_implementation
/;
plan tests => scalar( @funcs );
foreach my $x ( @funcs ) {
ok( defined *{$x}, "$x defined? " );
}
1; # Ancient Druid Custom