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 {