Mercurial > repos > fgiacomoni > hmdb_ms_search
view t/lib/hmdbTest.pm @ 29:29195cb5d378 draft default tip
master branch Updating with tag :CI_COMMIT_TAG - - Fxx
author | fgiacomoni |
---|---|
date | Tue, 04 Jun 2024 09:42:17 +0000 |
parents | 2d8a310e86ce |
children |
line wrap: on
line source
package lib::hmdbTest ; use diagnostics; # this gives you more debugging information use warnings; # this warns you of bad practices use strict; # this prevents silly errors use Exporter ; use Carp ; our $VERSION = "1.0"; our @ISA = qw(Exporter); 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 ) ; use Data::Dumper ; ## sub sub extract_sub_mz_listsTest { my ($masses, $hmdb_limits, ) = @_ ; my $oHmdb = lib::hmdb->new() ; my $submasses = $oHmdb->extract_sub_mz_lists($masses, $hmdb_limits ) ; return ($submasses) ; } ## sub sub prepare_multi_masses_queryTest { my ($mzs ) = @_ ; my $oHmdb = lib::hmdb->new() ; my ( $hmdb_masses, $nb_masses_to_submit ) = $oHmdb->prepare_multi_masses_query($mzs) ; return ($hmdb_masses) ; } ## sub sub get_matches_from_hmdb_uaTest { my ( $hmdb_masses, $delta, $molecular_species ) = @_ ; my $oHmdb = lib::hmdb->new() ; my $hmdb_pages = $oHmdb->get_matches_from_hmdb_ua($hmdb_masses, $delta, $molecular_species) ; print Dumper $hmdb_pages ; 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 { my $oHmdb = lib::hmdb->new() ; my $status = $oHmdb->test_matches_from_hmdb_ua() ; return ($status) ; } ## sub sub testMatchesFromHmdb5WithUATest { my $oHmdb = lib::hmdb->new() ; my $status = $oHmdb->testMatchesFromHmdb5WithUA() ; return ($status) ; } ## sub sub check_state_from_hmdb_uaTest { my ($status ) = @_ ; my $oHmdb = lib::hmdb->new() ; my $res = $oHmdb->check_state_from_hmdb_ua($status) ; return($res) ; } ## 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 { my ($hmdb_pages, $mzs, $max ) = @_ ; my $oHmdb = lib::hmdb->new() ; my $result = $oHmdb->parse_hmdb_csv_results($hmdb_pages, $mzs, $max) ; ## hash format result print Dumper $result ; return($result) ; } 1 ;