#!/usr/local/bin/perl


#..do this to pick up TestTools.
BEGIN { unshift(@INC,"./test_data/"); }

use TestTools;
use strict;

my $test_handle = TestTools->new(tests_to_run => 9);

$test_handle->run_tested("-caf test.caf -fasta c2ptest 2>/dev/null");

$test_handle->readCafFile('test.caf');

$test_handle->check_null();

$test_handle->checkForMissingInfo();

$test_handle->checkRawSequences();

$test_handle->check_seq_quality_length();

my $std = $test_handle->read_standard_output();

$test_handle->compare_against_caf($std);

$test_handle->compare_fasta();

$test_handle->compare_qual();


exit;

END {
    $test_handle->print_test_results();
}
