0
|
1 package lib::hrTest ;
|
|
2
|
|
3 use diagnostics; # this gives you more debugging information
|
|
4 use warnings; # this warns you of bad practices
|
|
5 use strict; # this prevents silly errors
|
|
6 use Exporter ;
|
|
7 use Carp ;
|
|
8
|
|
9 our $VERSION = "1.0";
|
|
10 our @ISA = qw(Exporter);
|
|
11 our @EXPORT = qw( manage_atomsTest check_hr_exeTest manage_toleranceTest manage_modeTest );
|
|
12 our %EXPORT_TAGS = ( ALL => [qw(manage_atomsTest check_hr_exeTest manage_toleranceTest manage_modeTest )] );
|
|
13
|
|
14 use lib '/Users/fgiacomoni/Inra/labs/perl/galaxy_tools/hr2' ;
|
|
15 use lib::hr qw( :ALL ) ;
|
|
16
|
|
17 sub manage_atomsTest {
|
|
18
|
|
19 my ($input_atoms, $conf_atoms, ) = @_ ;
|
|
20
|
|
21 my $oAtom = lib::hr->new() ;
|
|
22 my $ref_atoms = $oAtom->manage_atoms(\$input_atoms, \$conf_atoms) ;
|
|
23 my $atoms = $$ref_atoms ;
|
|
24
|
|
25 return ($atoms) ;
|
|
26 }
|
|
27
|
|
28 sub check_hr_exeTest {
|
|
29 my ( $hr_path, $hr_version ) = @_ ;
|
|
30 my $oHr = lib::hr->new() ;
|
|
31 my $res = $oHr->check_hr_exe(\$hr_path, \$hr_version) ;
|
|
32
|
|
33 return ($res) ;
|
|
34 }
|
|
35
|
|
36 sub manage_toleranceTest {
|
|
37 my ( $tolerance, $default_value ) = @_ ;
|
|
38 my $oHr = lib::hr->new() ;
|
|
39 my $tol = $oHr->manage_tolerance( \$tolerance, \$default_value ) ;
|
|
40 return ($$tol) ;
|
|
41 }
|
|
42
|
|
43 sub manage_modeTest {
|
|
44 my ( $mode, $charge, $electron, $proton, $mass ) = @_ ;
|
|
45 my $oHr = lib::hr->new() ;
|
|
46 my $exact_mass = $oHr->manage_mode( \$mode, \$charge, \$electron, \$proton, \$mass ) ;
|
|
47 return ($$exact_mass) ;
|
|
48 }
|
|
49
|
|
50
|
|
51
|
|
52
|
|
53 1 ; |