#!perl -w use strict; package main; use Test::More tests => 5; { BEGIN { use_ok( "BioLibeg",":all" ); } my $dna = "GCATATAGCATAG"; is(codon2aa("TAA"), "_", "Testing codon2aa for stop codon"); is(codon2aa("DAA"), "*", "Testing codon2aa for invalid codon"); is(count("t", $dna), 3, "Test count of T bases"); is(count("n", $dna), -1, "Test count of bogus base"); exit(0); }