#!/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 => 7);

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

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

$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);


exit;

END {
    $test_handle->print_test_results();
}
