Mercurial > repos > fgiacomoni > hmdb_ms_search
diff t/lib/hmdbTest.pm @ 23:2d8a310e86ce draft
Prod branch Updating with v.:CI_COMMIT_TAG- - Fxx
author | fgiacomoni |
---|---|
date | Thu, 19 May 2022 13:43:09 +0000 |
parents | 4eb2de7c24d1 |
children |
line wrap: on
line diff
--- a/t/lib/hmdbTest.pm Fri Nov 20 17:29:18 2020 +0000 +++ b/t/lib/hmdbTest.pm Thu May 19 13:43:09 2022 +0000 @@ -8,8 +8,8 @@ our $VERSION = "1.0"; our @ISA = qw(Exporter); -our @EXPORT = qw( parse_hmdb_csv_resultsTest check_state_from_hmdb_uaTest test_matches_from_hmdb_uaTest extract_sub_mz_listsTest prepare_multi_masses_queryTest get_matches_from_hmdb_uaTest); -our %EXPORT_TAGS = ( ALL => [qw( parse_hmdb_csv_resultsTest check_state_from_hmdb_uaTest test_matches_from_hmdb_uaTest extract_sub_mz_listsTest prepare_multi_masses_queryTest get_matches_from_hmdb_uaTest)] ); +our @EXPORT = qw( testMatchesFromHmdb5WithUATest parseHmdb5CSVResultsTest getMatchesFromHmdb5WithUATest parse_hmdb_csv_resultsTest check_state_from_hmdb_uaTest test_matches_from_hmdb_uaTest extract_sub_mz_listsTest prepare_multi_masses_queryTest get_matches_from_hmdb_uaTest); +our %EXPORT_TAGS = ( ALL => [qw( testMatchesFromHmdb5WithUATest parseHmdb5CSVResultsTest getMatchesFromHmdb5WithUATest parse_hmdb_csv_resultsTest check_state_from_hmdb_uaTest test_matches_from_hmdb_uaTest extract_sub_mz_listsTest prepare_multi_masses_queryTest get_matches_from_hmdb_uaTest)] ); use lib '/Users/fgiacomoni/Inra/labs/perl/galaxy_tools/hmdb' ; use lib::hmdb qw( :ALL ) ; @@ -49,6 +49,17 @@ return ($hmdb_pages) ; } +## sub +sub getMatchesFromHmdb5WithUATest { + + my ( $hmdb_masses, $delta, $molecular_species ) = @_ ; + + my $oHmdb = lib::hmdb->new() ; + my ($hmdb_pages, $status) = $oHmdb->getMatchesFromHmdb5WithUA($hmdb_masses, $delta, $molecular_species) ; + print Dumper $hmdb_pages ; + return ($hmdb_pages) ; +} + ## sub sub test_matches_from_hmdb_uaTest { @@ -58,6 +69,13 @@ return ($status) ; } +## sub +sub testMatchesFromHmdb5WithUATest { + + my $oHmdb = lib::hmdb->new() ; + my $status = $oHmdb->testMatchesFromHmdb5WithUA() ; + return ($status) ; +} ## sub sub check_state_from_hmdb_uaTest { @@ -69,6 +87,15 @@ } +## sub +sub parseHmdb5CSVResultsTest { + my ($hmdb_pages, $mzs, $max ) = @_ ; + + my $oHmdb = lib::hmdb->new() ; + my $result = $oHmdb->parseHmdb5CSVResults($hmdb_pages, $mzs, $max) ; ## hash format result + #print Dumper $result ; + return($result) ; +} ## sub sub parse_hmdb_csv_resultsTest {