#!/usr/bin/env perl
#
# Copyright 2008-2010 Tim Rayner
# 
# This file is part of Bio::MAGETAB.
# 
# Bio::MAGETAB 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, either version 2 of the License, or
# (at your option) any later version.
# 
# Bio::MAGETAB 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
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with Bio::MAGETAB.  If not, see <http://www.gnu.org/licenses/>.
#
# $Id: 001_load.t 333 2010-06-02 16:41:31Z tfrayner $
#
# t/001_load.t - check module loading

use strict;
use warnings;

use Test::More tests => 56;

BEGIN {
    use_ok( 'Bio::MAGETAB' );
    use_ok( 'Bio::MAGETAB::BaseClass' );
    use_ok( 'Bio::MAGETAB::ArrayDesign' );
    use_ok( 'Bio::MAGETAB::Assay' );
    use_ok( 'Bio::MAGETAB::Comment' );
    use_ok( 'Bio::MAGETAB::CompositeElement' );
    use_ok( 'Bio::MAGETAB::Contact' );
    use_ok( 'Bio::MAGETAB::ControlledTerm' );
    use_ok( 'Bio::MAGETAB::Data' );
    use_ok( 'Bio::MAGETAB::DataAcquisition' );
    use_ok( 'Bio::MAGETAB::DatabaseEntry' );
    use_ok( 'Bio::MAGETAB::DataFile' );
    use_ok( 'Bio::MAGETAB::DataMatrix' );
    use_ok( 'Bio::MAGETAB::DesignElement' );
    use_ok( 'Bio::MAGETAB::Edge' );
    use_ok( 'Bio::MAGETAB::Event' );
    use_ok( 'Bio::MAGETAB::Extract' );
    use_ok( 'Bio::MAGETAB::Factor' );
    use_ok( 'Bio::MAGETAB::FactorValue' );
    use_ok( 'Bio::MAGETAB::Feature' );
    use_ok( 'Bio::MAGETAB::Investigation' );
    use_ok( 'Bio::MAGETAB::LabeledExtract' );
    use_ok( 'Bio::MAGETAB::Material' );
    use_ok( 'Bio::MAGETAB::MatrixColumn' );
    use_ok( 'Bio::MAGETAB::MatrixRow' );
    use_ok( 'Bio::MAGETAB::Measurement' );
    use_ok( 'Bio::MAGETAB::Node' );
    use_ok( 'Bio::MAGETAB::Normalization' );
    use_ok( 'Bio::MAGETAB::ParameterValue' );
    use_ok( 'Bio::MAGETAB::Protocol' );
    use_ok( 'Bio::MAGETAB::ProtocolApplication' );
    use_ok( 'Bio::MAGETAB::ProtocolParameter' );
    use_ok( 'Bio::MAGETAB::Publication' );
    use_ok( 'Bio::MAGETAB::Reporter' );
    use_ok( 'Bio::MAGETAB::Sample' );
    use_ok( 'Bio::MAGETAB::SDRF' );
    use_ok( 'Bio::MAGETAB::SDRFRow' );
    use_ok( 'Bio::MAGETAB::Source' );
    use_ok( 'Bio::MAGETAB::TermSource' );
    use_ok( 'Bio::MAGETAB::Util::Builder' );
    use_ok( 'Bio::MAGETAB::Util::Reader::Tabfile' );
    use_ok( 'Bio::MAGETAB::Util::Reader::TagValueFile' );
    use_ok( 'Bio::MAGETAB::Util::Reader::ADF' );
    use_ok( 'Bio::MAGETAB::Util::Reader::DataMatrix' );
    use_ok( 'Bio::MAGETAB::Util::Reader::IDF' );
    use_ok( 'Bio::MAGETAB::Util::Reader::SDRF' );
    use_ok( 'Bio::MAGETAB::Util::Reader' );
    use_ok( 'Bio::MAGETAB::Util::Writer' );
    use_ok( 'Bio::MAGETAB::Util::Writer::Tabfile' );
    use_ok( 'Bio::MAGETAB::Util::Writer::IDF' );
    use_ok( 'Bio::MAGETAB::Util::Writer::ADF' );
    use_ok( 'Bio::MAGETAB::Util::Writer::SDRF' );
    use_ok( 'Bio::MAGETAB::Util::RewriteAE' );
}

SKIP: {

    eval {
        require Tangram;
        require DBI;
    };

    skip 'Persistence needs Tangram and DBI.',
        2 if $@;

    require_ok('Bio::MAGETAB::Util::Persistence');
    require_ok('Bio::MAGETAB::Util::DBLoader');
}

SKIP: {

    eval {
        require GraphViz;
    };

    skip 'Visualisation needs GraphViz',
        1 if $@;

    use_ok( 'Bio::MAGETAB::Util::Writer::GraphViz' );
}