1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
# -*-Perl-*-
## Bioperl Test Harness Script for Modules
## $Id: StateMachine.t,v 1.2 2001/12/29 18:10:48 jason Exp $
##
## Tests the SearchIO::blast::blast module for parsing traditional
## BLAST reports (non-XML).
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
my $error = 0;
use strict;
BEGIN {
# to handle systems with no installed Test module
# we include the t dir (where a copy of Test.pm is located)
# as a fallback
eval { require Test; };
if( $@ ) {
use lib 't';
}
use Test;
plan tests => 2;
}
if( $error == 1 ) {
exit(0);
}
use Bio::Tools::StateMachine::IOStateMachine;
use Bio::Tools::StateMachine::AbstractStateMachine;
ok(1);
package TestAbstractStateMachine;
use Bio::Tools::StateMachine::AbstractStateMachine qw($INITIAL_STATE $FINAL_STATE);
use vars qw( @ISA );
@ISA = qw( Bio::Root::Root
Bio::Tools::StateMachine::AbstractStateMachine );
my @state_transitions = ( [ $INITIAL_STATE, 'State1'],
[ 'State1', 'State2' ],
[ 'State2', $FINAL_STATE]
);
sub new {
my($caller,@args) = @_;
my $self = $caller->SUPER::new( @args);
$self->_init_state_machine( -transition_table => \@state_transitions );
return $self;
}
package main;
my $sm = TestAbstractStateMachine->new();
ok($sm);
|
