1 ## Bioperl Test Harness Script for Modules
4 # Before `make install' is performed this script should be runnable with
5 # `make test'. After `make install' it should work as `perl test.t'
7 #-----------------------------------------------------------------------
8 # Test script for Bio::UnivAln.pm
9 # Georg Fuellen, adapted for the Bioperl distribution by Steve A. Chervitz
10 # Very rudimentary. Eventually will incorporate Georg's univaln.t2
12 ## perl test harness expects the following output syntax only!
14 ## ok 1 [not ok 1 (if test fails)]
16 ## ok 2 [not ok 2 (if test fails)]
18 ## ok 3 [not ok 3 (if test fails)]
20 ## etc. etc. etc. (continue on for each tested function in the .t file)
21 #-----------------------------------------------------------------------
24 $| = 1; print "1..2\n";
27 # print "not ok 1\n" unless $loaded;
28 # unlink $testout; # commented out since you may want to check it...
35 my($num, $true,$msg) = @_;
36 print($true ? "ok $num\n" : "not ok $num $msg\n");
40 test 1, $aln = Bio::UnivAln->new(-seqs=>"TCCCGCGTCAACTG\nTGGTGCTTCAACCG\nACTTG--TCAACTG");
41 test 2, print $aln->layout("fasta");
43 # print STDERR "\n\n\nTHIS TEST SCRIPT PREFORMS ONLY ONE BASIC TEST.\n";
44 # print STDERR "For intensive testing, see t/univaln.t2. Run that script via\n";
45 # print STDERR "% perl t/univaln.t2 > t/my_univaln\n";
46 # print STDERR "and compare the output with t/univaln.o\n";
47 # print STDERR "Expected error messages can be found in t/univaln2_expected_errors\n\n";