3 ## Bioperl Test Harness Script for Modules
8 test_begin(-tests => 7);
9 use_ok('Bio::Tools::Run::Eponine');
14 #Java and java version check
17 diag("You must have java to run eponine");
18 skip("Skipping because no java present to run eponine",5);
20 open(my $PIPE,"java -version 2>&1 |") || exit;
23 if (/Java\sversion\:?\s+\"?(\d+\.\d+)\"?/i) {
29 diag("You need at least version 1.2 of JDK to run eponine");
30 skip("Skipping due to old java version",5);
33 test_skip( -requires_env => 'EPONINEDIR', -tests => 5);
34 my $inputfilename= test_input_file("eponine.fa");
35 my $fact = Bio::Tools::Run::Eponine->new("threshold" => 0.999);
37 is ($fact->threshold, 0.999);
38 my @feats = $fact->run($inputfilename);
39 is ($feats[0]->start, 69);
40 is ($feats[0]->end, 69);
41 is ($feats[0]->strand, 1);
42 is ($feats[1]->start,178 );