diff t/lib/massbank_api_Test.pm @ 0:023c380900ef draft default tip

Init repository with last massbank_ws_searchspectrum master version

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/lib/massbank_api_Test.pm	Wed Apr 19 11:31:58 2017 -0400
@@ -0,0 +1,119 @@
+package lib::massbank_api_Test ;
+
+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 ;
+
+use Data::Dumper ;
+
+our $VERSION = "1.0";
+our @ISA = qw(Exporter);
+our @EXPORT = qw(   initRecordObjectTest threading_methods_getRecordInfoTest connectMassBankTest connectMassBankJPTest connectMassBankDETest getInstrumentTypesTest getRecordInfoTest searchSpectrumTest searchSpectrumNBTest getPeakTest);
+our %EXPORT_TAGS = ( ALL => [qw(  initRecordObjectTest threading_methods_getRecordInfoTest connectMassBankTest connectMassBankJPTest connectMassBankDETest getInstrumentTypesTest getRecordInfoTest searchSpectrumTest searchSpectrumNBTest getPeakTest)] );
+
+use lib '/Users/fgiacomoni/Inra/labs/perl/galaxy_tools/massbank_ws_searchspectrum' ;
+use lib::massbank_api qw( :ALL ) ;
+use lib::threader qw( :ALL ) ;
+use lib::mapper qw( :ALL ) ;
+
+
+my $server = 'JP' ;
+
+sub connectMassBankTest {
+	my ($uri, $proxy) = @_ ;
+    my $oBih = lib::massbank_api->new() ;
+    my ($soap) = $oBih->connectMassBank($uri, $proxy) ;
+    return ($soap) ;
+}
+
+sub connectMassBankJPTest {
+    my $oBih = lib::massbank_api->new() ;
+    my ($soap) = $oBih->connectMassBankJP() ;
+    return ($soap) ;
+}
+
+sub connectMassBankDETest {
+    my $oBih = lib::massbank_api->new() ;
+    my ($soap) = $oBih->connectMassBankDE() ;
+    return ($soap) ;
+}
+
+sub getInstrumentTypesTest {
+	my ($server) = @_ ;
+	my $osoap = undef ;
+    my $oBih = lib::massbank_api->new() ;
+    
+    if ($server eq 'JP') { 		($osoap) = $oBih->connectMassBankJP() ; }
+    elsif ($server eq 'EU') {	($osoap) = $oBih->connectMassBankDE() ; }
+    else {						croak "Can't call an unknown server through MassBank API\n" ; }
+    
+    my $res = $oBih->getInstrumentTypes($osoap) ;
+    return ($res) ;
+}
+
+sub getRecordInfoTest {
+	my ($server, $ids) = @_ ;
+	
+	my $oBih = lib::massbank_api->new() ;
+    my ($osoap) = $oBih->selectMassBank($server) ;
+    my ($res) = $oBih->getRecordInfo($osoap, $ids) ;
+
+    return($res) ;
+}
+
+
+sub searchSpectrumTest {
+	my ($mzs, $intensities, $ion, $instruments, $max, $unit, $tol, $cutoff) = @_ ;
+	my $pcgroup_id = 1 ;
+	my $oBih = lib::massbank_api->new() ;
+    my ($osoap) = $oBih->selectMassBank($server) ;
+    my ($res, $num) = $oBih->searchSpectrum($osoap, $pcgroup_id, $mzs, $intensities, $ion, $instruments, $max, $unit, $tol, $cutoff) ;
+    print Dumper $res ;
+    return($res) ;
+}
+
+sub searchSpectrumNBTest {
+	my ($mzs, $intensities, $ion, $instruments, $max, $unit, $tol, $cutoff) = @_ ;
+	my $pcgroup_id = 1 ;
+	my $oBih = lib::massbank_api->new() ;
+    my ($osoap) = $oBih->selectMassBank($server) ;
+    my ($res, $num) = $oBih->searchSpectrum($osoap, $pcgroup_id, $mzs, $intensities, $ion, $instruments, $max, $unit, $tol, $cutoff) ;
+    return($num) ;
+}
+
+sub getPeakTest {
+	my ($ids) = @_ ;
+	
+	my $oBih = lib::massbank_api->new() ;
+    my ($osoap) = $oBih->selectMassBank($server) ;
+    my ($res) = $oBih->getPeak($osoap, $ids) ;
+    return($res) ;
+}
+
+sub threading_methods_getRecordInfoTest {
+	my ($ids) = @_ ;
+	
+	my $results = undef ;
+	my $othreads = lib::threader->new() ;
+	my $oquery = lib::massbank_api->new() ;
+	my ($osoap) = $oquery->selectMassBank($server) ;
+	$results = $othreads->threading_getRecordInfo($osoap, $ids) ; 
+	return($results) ;
+}
+
+## SUB TEST for initRecordObject
+sub initRecordObjectTest {
+    # get values
+    my ( $string ) = @_;
+    
+    my $omassbank = lib::massbank_api->new() ;
+    my $record = $omassbank->initRecordObject($string) ;
+#    print Dumper $record ;
+    return($record) ;
+}
+## End SUB
+
+
+1 ;
\ No newline at end of file