t/WWW.t

   1 ## Bioperl Test Harness Script for Modules
   2 ## $Id$
   3
   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'
   6
   7 #-----------------------------------------------------------------------
   8 ## perl test harness expects the following output syntax only!
   9 ## 1..3
  10 ## ok 1  [not ok 1 (if test fails)]
  11 ## 2..3
  12 ## ok 2  [not ok 2 (if test fails)]
  13 ## 3..3
  14 ## ok 3  [not ok 3 (if test fails)]
  15 ##
  16 ## etc. etc. etc. (continue on for each tested function in the .t file)
  17 #-----------------------------------------------------------------------
  18
  19
  20 ## We start with some black magic to print on failure.
  21 BEGIN { $| = 1; print "1..1\n"; }
  22 END {print "not ok 1\n" unless $loaded;}
  23
  24 use lib '../';
  25 use Bio::Tools::WWW;
  26
  27 $loaded = 1;
  28 print "ok 1\n";    # 1st test passes.
  29
  30
  31 ## End of black magic.
  32 ##
  33 ## Insert additional test code below but remember to change
  34 ## the print "1..x\n" in the BEGIN block to reflect the
  35 ## total number of tests that will be run.
  36
  37
  38
  39
  40
  41
  42