Mercurial > repos > fgiacomoni > downloader_bank_hmdb

comparison t/lib/hmdb_apiTest.pm @ 0:7c9269bded0e draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Init repository for [downloader_bank_hmdb]
author fgiacomoni
date Tue, 14 Jan 2020 05:21:23 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:7c9269bded0e
1 package hmdb_apiTest ;
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 use Data::Dumper ;
10
11 our $VERSION = "1.0";
12 our @ISA = qw(Exporter);
13 our @EXPORT = qw( getMetaboliteFeaturesTest buildMetabolitesArrayTest setMetaboliteAcurrateMzToModesMzTest);
14 our %EXPORT_TAGS = ( ALL => [qw( getMetaboliteFeaturesTest buildMetabolitesArrayTest setMetaboliteAcurrateMzToModesMzTest)] );
15
16 use lib '/Users/fgiacomoni/Inra/labs/perl/downloader-bank-hmdb/lib' ;
17 use hmdb_api qw( :ALL ) ;
18
19
20 sub getMetaboliteFeaturesTest {
21 my ($xml) = @_ ;
22 my $oObject = hmdb_api->new() ;
23 my ($res, $nb) = $oObject->getMetaboliteFeatures($xml) ;
24
25 # print $res ;
26 return ($nb) ;
27 }
28
29
30 sub buildMetabolitesArrayTest {
31 my ($met, $header) = @_ ;
32 my $oObject = hmdb_api->new() ;
33 my ($res) = $oObject->buildMetabolitesArray($met, $header) ;
34 # print Dumper $res ;
35 return ($res) ;
36 }
37
38 ## SUB TEST for
39 sub setMetaboliteAcurrateMzToModesMzTest {
40 # get values
41 my ( $format, $met ) = @_;
42
43 my $var2 = hmdb_api->new() ;
44 my $var3 = $var2->setMetaboliteAcurrateMzToModesMz($format, $met, 1.007825, 0.0005486, 1) ;
45
46 return($var3) ;
47 }
48 ## End SUB
49
50
51 1 ;