t/Symbol.t

   1 # -*-Perl-*-
   2 ## Bioperl Test Harness Script for Modules
   3 ## $Id$
   4
   5 use strict;
   6
   7 BEGIN {
   8     # to handle systems with no installed Test module
   9     # we include the t dir (where a copy of Test.pm is located)
  10     # as a fallback
  11     eval { require Test; };
  12     if( $@ ) {
  13         use lib 't';
  14     }
  15     use Test;
  16
  17     plan tests => 8;
  18 }
  19
  20 use Bio::Symbol::Symbol;
  21
  22 my $thymine = new Bio::Symbol::Symbol(-name => 'Arg',
  23                                       -token=> 'R');
  24 my $a = new Bio::Symbol::Symbol(-token => 'A' );
  25 my $u = new Bio::Symbol::Symbol(-token => 'U' );
  26 my $g = new Bio::Symbol::Symbol(-token => 'G' );
  27
  28 ok($thymine);
  29 ok($thymine->name, "Arg");
  30 ok($thymine->token, "R");
  31 my $M = new Bio::Symbol::Symbol(-name  => 'Met',
  32                                 -token => 'M',
  33                                 -symbols => [ $a, $u, $g ]);
  34
  35 ok($M->name, "Met");
  36 ok($M->token, 'M');
  37 my @symbols = $M->symbols;
  38 my @expected = ($a, $u, $g);
  39 foreach ( 0..2 ) {
  40     ok($expected[$_], $symbols[$_]);
  41 }