#! /usr/local/bin/perl  -w


use strict; 
use Data::Dumper;
use Selenium::Chrome; 
use Selenium::ActionChains;
use Selenium::Waiter qw/wait_until/;
use Test::More;   
use Test::Selenium::Remote::Driver;
use Test::Selenium::Remote::WebElement;

my $BASE_URL=$ENV{'TWD_BASE_URL'} || "http://ddr-dev.ccbio.es";    #DO NOT ADD TRAINLING SLASH!!!

my $driver = Test::Selenium::Remote::Driver->new(webelement_class=>'Test::Selenium::Remote::WebElement',javascript=>1);
$driver->get("$BASE_URL/index.php");
my $action_chains = Selenium::ActionChains->new(driver => $driver);
#tabs
   #exits
   #work

# (fulltext, age, network, organism, autofill)
    
	# download tsv
		#modal open  
		#selection affect file
		#file download /open
		#file content
		
	#dynatable     
		#columns, 
		#sort
		#links
		#colors for age
		#pagination
		
	#map
		#proper selection
		#proper colors
		#proper legend
		#change coloring
			#proper colors
			#proper legend
		#download
			
	 #NO RESULTS
   
 	                      
#hmmer    

sub submitSeq($$){
	my $fasta=shift;
	my $db=shift;    #TODO
	my $textbox=$driver->find_element_by_id("textbox");  
	my $form=$driver->find_element_by_id("hmmer"); 
	
	#For orthDB selecction
	if($db){
		my $db_radius = $driver->find_element_by_id($db);
		$db_radius->click();
	}
	
	$textbox->clear();
    
	#$textbox->send_keys($fasta);    # do not work for multiline input since it activete submit
	   
	my $script = q{
	        var fasta = arguments[0]; 
			var elem =  document.forms['hmmer'].elements["Sequence"];
		    elem.value=fasta; 
			return elem;
	};
	my $elem=$driver->execute_script($script,$fasta);  
	$form->submit(); 
	my $table = wait_until { $driver->find_element_by_id('results_table') } timeout => 100, interval => 5; 
	return $table;
}

	#example sequence
	   
	my $fasta=<<FASTA
>Sequence | Test sequence for DDR-Site 
MGEHGLELASMIPALRELGSATPEEYNTVVQKPRQILCQFIDRILTDVNVVAVELVKKTD
SQPTSVMLLDFIQHIMKSSPLMFVNVSGSHEAKGSCIEFSNWIITRLLRIAATPSCHLLH
KKICEVICSLLFLFKSKSPAIFGVLTKELLQLFEDLVYLHRRNVMGHAVEWPVVMSRFLS
QLDEHMGYLQSAPLQLMSMQNLEFIEVTLLMVLTRIIAIVFFRRQELLLWQIGCVLLEYG
SPKIKSLAISFLTELFQLGGLPAQPASTFFSSFLELLKHLVEMDTDQLKLYEEPLSKLIK
TLFPFEAEAYRNIEPVYLNMLLEKLCVMFEDGVLMRLKSDLLKAALCHLLQYFLKFVPAG
YESALQVRKVYVRNICKALLDVLGIEVDAEYLLGPLYAALKMESMEIIEEIQCQTQQENL
SSNSDGISPKRRRLSSSLNPSKRAPKQTEEIKHVDMNQKSILWSALKQKAESLQISLEYS
GLKNPVIEMLEGIAVVLQLTALCTVHCSHQNMNCRTFKDCQHKSKKKPSVVITWMSLDFY
TKVLKSCRSLLESVQKLDLEATIDKVVKIYDALIYMQVNSSFEDHILEDLCGMLSLPWI
SHSDDGCLKLTTFAANLLTLSCRISDSYSPQAQSRCVFLLTLFPRRIFLEWRTAVYNWA
QSSHEVIRASCVSGFFILLQQQNSCNRVPKILIDKVKDDSDIVKKEFASILGQLVCTLH
MFYLTSSLTEPFSEHGHVDLFCRNLKATSQHECSSSQLKASVCKPFLFLLKKKIPSPVK
AFIDNLHHLCKHLDFREDETDVKAVLGTLLNLMEDPDKDVRVAFSGNIKHILESLDSED
FIKELFVLRMKEAYTHAQISRNNELKDTLILTTGDIGRAAKGDLVPFALLHLLHCLLSK
ASVSGAAYTEIRALVAAKSVKLQSFFSQYKKPICQFLVESLHSSQMTALPNTPCQNADV
KQDVAHQREMALNTLSEIANVFDFPDLNRFLTRTLQVLLPDLAAKASPAASALIRTLGK
LNVNRREILINNFKYIFSHLVCSCSKDELERALHYLKNETEIELGSLLRQDFQGLHNEL
LRIGEHYQQVFNGLSILASFASSDDPYQGPRDIISPELMADYLQPKLLGILAFFNMQLL
SSVGIEDKKMALNSLMSLMKLMGPKHVSSVRVKMMTTLRTGLRFKDDFPELCCRAWDCF
RCLDHACLGSLLSHVIVALLPLIHIQPKETAAIFHYLIIENRDAVQDFLHEIYFLPDHP
LKKIKAVLQEYRKETSESTDLQTTLQLSMKAIQHENVDVRIHALTSLKETLYKNQEKLI
YATDSETVEPIISQLVTVLLKGCQDANSQARLLCGECLGELGAIDPGRLDFSTTETQGK
FTFVTGVEDSSFAYGLLMELTRAYLAYADNSRAQDSAAYAIQELLSIYDCREMETNGPG
QLWRRFPEHVREILEPHLNTRYKSSQKSTDWSGVKKPIYLSKLGSNFAEWSASWAGYLI
KVRHDLASKIFTCCSIMMKHDFKVTIYLLPHILVYVLLGCNQEDQQEVYAEIMAVLKHD
QHTINTQDIASDLCQLSTQTVFSMLDHLTQWARHKFQALKAEKCPHSKSNRNKVDSMVS
VDYEDYQSVTRFLDLIPQDTLAVASFRSKAYTRAVMHFESFITEKKQNIQEHLGFLQKL
AAMHEPDGVAGVSAIRKAEPSLKEQILEHESLGLLRDATACYDRAIQLEPDQIIHYHGV
KSMLGLGQLSTVITQVNGVHANRSEWTDELNTYRVEAAWKLSQWDLVENYLAADGKSTT
SVRLGQLLLSAKKRDITAFYDSLKLVRAEQIVPLSAASFERGSYQRGYEYIVRLHMLCE
EHSIKPLFQHSPGDSSQEDSLNWVARLEMTQNSYRAKEPILALRRALLSLNKRPDYNEM
GECWLQSARVARKAGHHQTAYNALLNAGESRLAELYVERAKWLWSKGDVHQALIVLQKG
ELCFPENETPPEGKNMLIHGRAMLLVGRFMEETANFESNAIMKKYKDVTACLPEWEDGH
YLAKYYDKLMPMVTDNKMEKQGDLIRYIVLHFGRSLQYGNQFIYQSMPRMLTLWLDYGT
FASTA
;   
	my $table = submitSeq($fasta,"DDR") ; 
	say STDERR $table->get_attribute('id');
	my $count_text=$driver->find_element("#dynatable-record-count-results_table",'css') ;
	 
	$count_text->text_like('/of 2 records/',"More than one sequence: number of targets" );  
	my @tds=$driver->find_child_elements($table,"tbody tr td",'css');
	is(@tds,7*2,"number of table cells"); 
   	$tds[0]->text_is("Sequence","Query Name");
    my $target_link=$driver->find_child_element($tds[1],"a",'css');
	$target_link->text_is("Q13535",'target name Uniprot');
	$target_link->attribute_is("href","http://www.uniprot.org/uniprot/Q13535","target link url Uniprot");
	my $ddr_link=$driver->find_child_element($tds[2],"a",'css');
	$ddr_link->text_is("ATR",'DRR target name ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=2","DDR link url"); 
	$tds[3]->text_is("0","Evalue text Uniprot");
	$tds[4]->text_is("4581.7","Score text Uniprot");
	$tds[5]->text_is("Serine/threonine-protein kinase ATR","Description text Uniprot");  
	my $age_link=$driver->find_child_element($tds[6],"a",'css');
	$age_link->text_is("Early Eukaryote","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Early%20Eukaryote","Age link url");     
	#$age_link->css_attribute_is("color","#D53F4F","Age link color");   #unimplemented in Package
	
	$tds[7]->text_is("Sequence","Query Name");
    my $target_link=$driver->find_child_element($tds[8],"a",'css');
	$target_link->text_is("Q13315",'target name ATM');
	$target_link->attribute_is("href","http://www.uniprot.org/uniprot/Q13315","target link url ATM");
	my $ddr_link=$driver->find_child_element($tds[9],"a",'css');
	$ddr_link->text_is("ATM",'DRR target name ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=1","DDR link url"); 
	$tds[10]->text_is("2.6e-17","Evalue text ATM");
	$tds[11]->text_is("54.1","Score text ATM");
	$tds[12]->text_is("Serine-protein kinase ATM","Description text Ensembl");  
	my $age_link=$driver->find_child_element($tds[13],"a",'css');
	$age_link->text_is("Viridiplantae","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Viridiplantae","Age link url");
	
 
#varias secuencias

	$driver->get("$BASE_URL/index.php"); 

my $fasta2=<<FASTA2
>Mdo_MDM2
MCNTKMSSDTDGALSTSQMPASEQEA--------LVRPKPLLLKLLKFAGAQKDTFTMKE
VLFYLGQYIMSKQLYDKKQQHIVYCSDDLLGDLFGVPSFSVKEHRRLYAMISRNLIA---
-----VNQQQEPAFPNTSRNETRCQLEIASGQKESVQELQEEK-P-SPNLNSRPTTSS--
-RRRTLSET----EENLDELPGERHRKRHKSD---SISLPFDE----SCALCVISEIC--
---CERSNSSDSTEIPSSPDIDTGVLSENSD-------DSVSDQFSV---EFE----VES
IDSDDYSHNEEGQELTDE------DDEIYQVTVY---EAEESDTDSFDEDPEISLADYWK
CTSCDKMNPPLPSHCHRCWALRENWLPEEKSDMS---ADKGKLENP---------TQ-GE
EEGFDLPDCKKN--------KMNDSQDSSIEEN-DEKI--IQLSESQE-SEDYSQPSTSK
SIICSSQEDARDFEREEAQDKERSME-SIPPSTVEP-CVICQSRPKNGCIVHGRT--GHL
MACFTCAKKLKKRNKPCPVCRQPIQMIVLTYFL
>Mdo_MDM4
MSLSPTSTHCSASENA-CKISPGQVN--------QVRPKLPLLKILQAAGAHGEMFTMKE
VMHYLGQYIMVKQLYDQQEQHMVYCGGDLLGELLGLQSFSVKDPSPLYDMLRKNLVTATV
FSFCFTHRLDAAQTLALAQDQSMDIPSQD--QLKQGTEGSSSSRNGTEEGDDPA-LSTSQ
RKCRNPKEDEDLIENLVPN--K--------SP---RLDLMFEEWDVAGLPWWFLGNLR--
--NNYTPRSNGSTDLQTNQDIDTAIVSDTTDDLWFL-NESNSEQLNV---AVK----VEA
TDT-EQAS-E-GGKEG--------DKKLIEVRIF--DDLEDSQCLSDDTDTEINSEDEWQ
CTKCKKFNSPSKRYCFRCWALRKDWYSD--CPKLSHSLSVSNITAM---------PTKKD
DQGIDVPDCRRTISDPLVRPKE------AYKIEEKPKL--MDPCSSVE-FLDLAQSSESQ
ETVSSLGEQSDNLYEQKTD--AMAMEDYKNL--FKP-CKLCEKRPRDGNIIHGRT--AHL
VVCFRCAKRLKKTQAPCPICKKSIQMVIKIFVA
>MDM2_MOUSE
MCNTNMSVSTEGAASTSQIPASEQET--------LVRPKPLLLKLLKSVGAQNDTYTMKE
IIFYIGQYIMTKRLYDEKQQHIVYCSNDLLGDVFGVPSFSVKEHRKIYAMIYRNLVA---
-----VS-QQ---DSGTSLSESRRQPEGGSDLKDPLQAPPEEK-PSSSDLISRLSTSS--
-RRRSISET----EENTDELPGERHRKRRR-------SLSFDP----SLGLCELREMCSG
GSSSSSSSSSESTETPSHQDLDDGVSEHSGD--CLD-QDSVSDQFSV---EFE----VES
LDSEDYSLSDEGHELSDE------DDEVYRVTVY---QTGESDTDSFEGDPEISLADYWK
CTSCNEMNPPLPSHCKRCWTLRENWLPDDKGKDKVEISEKAKLENS---------AQ-A-
EEGLDVPDGKKL--------TENDAKEPCAEEDSEEKA--EQTPLSQE-SDDYSQPSTSS
SIVYSSQESVKEL-KEETQDKDESVESSFSLNAIEP-CVICQGRPKNGCIVHGKT--GHL
MSCFTCAKKLKKRNKPCPVCRQPIQMIVLSYFN
>MDM4_MOUSE
MTSHSTSAQCSASDSA-CRISSEQIS--------QVRPKLQLLKILHAAGAQGEVFTMKE
VMHYLGQYIMVKQLYDQQEQHMVYCGGDLLGDLLGCQSFSVKDPSPLYDMLRKNLVTSA-
-----SNNTDAAQTLALAQDHTMDFPSQD--RLKHGATEYSNPRKRTEEEDTHT-LPTSR
HKCRDSRADEDLIEHLSQD--E--------TS---RLDLDFEEWDVAGLPWWFLGNLR--
--NNCIPKSNGSTDLQTNQDIGTAIVSDTTDDLWFL-NETVSEQLGV---GIK----VEA
ANS-EQTS-E-VGKTS--------NKKTVEVGKD--DDLEDSRSLSDDTDVELTSEDEWQ
CTECKKFNSPSKRYCFRCWALRKDWYSD--CSKLTHSLSTSNITAI---------PEKKD
NEGIDVPDCRRTISAPVVRPKD------GYLKEEKPR---FDPCNSVG-FLDLAHSSESQ
EIISSAREQTDIFSEQKAE--TESMEDFQNV--LKP-CSLCEKRPRDGNIIHGKT--SHL
TTCFHCARRLKKSGASCPVCKKEIQLVIKVFIA
>MDM2_HUMAN
MCNTNMSVPTDGAVTTSQIPASEQET--------LVRPKPLLLKLLKSVGAQKDTYTMKE
VLFYLGQYIMTKRLYDEKQQHIVYCSNDLLGDLFGVPSFSVKEHRKIYTMIYRNLVV---
-----VN-QQESSDSGTSVSENRCHLEGGSDQKDLVQELQEEK-PSSSHLVSRPSTSS--
-RRRAISET----EENSDELSGERQRKRHKSD---SISLSFDE----SLALCVIREIC--
---CERSSSSESTGTPSNPDLDAGVSEHSGD--WLD-QDSVSDQFSV---EFE----VES
LDSEDYSLSEEGQELSDE------DDEVYQVTVY---QAGESDTDSFEEDPEISLADYWK
CTSCNEMNPPLPSHCNRCWALRENWLPEDKGKDKGEISEKAKLENS---------TQ-A-
EEGFDVPDCKKT--------IVNDSRESCVEEN-DDKI--TQASQSQE-SEDYSQPSTSS
SIIYSSQEDVKEFEREETQDKEESVESSLPLNAIEP-CVICQGRPKNGCIVHGKT--GHL
MACFTCAKKLKKRNKPCPVCRQPIQMIVLTYFP
>MDM4_HUMAN
MTSFSTSAQCSTSDSA-CRISPGQIN--------QVRPKLPLLKILHAAGAQGEMFTVKE
VMHYLGQYIMVKQLYDQQEQHMVYCGGDLLGELLGRQSFSVKDPSPLYDMLRKNLVTLA-
-----TATTDAAQTLALAQDHSMDIPSQD--QLKQSAEESSTSRKRTTEDDIPT-LPTSE
HKCIHSREDEDLIENLAQD--E--------TS---RLDLGFEEWDVAGLPWWFLGNLR--
--SNYTPRSNGSTDLQTNQDVGTAIVSDTTDDLWFL-NESVSEQLGV---GIK----VEA
ADT-EQTSEE-VGKVS--------DKKVIEVGKN--DDLEDSKSLSDDTDVEVTSEDEWQ
CTECKKFNSPSKRYCFRCWALRKDWYSD--CSKLTHSLSTSDITAI---------PE-KE
NEGNDVPDCRRTISAPVVRPKD------AYIKKENSKL--FDPCNSVE-FLDLAHSSESQ
ETISSMGEQLDNLSEQRTD--TENMEDCQNL--LKP-CSLCEKRPRDGNIIHGRT--GHL
VTCFHCARRLKKAGASCPICKKEIQLVIKVFIA
FASTA2
;      

#Query	Target	DDR Gene	Evalue	Score ▼	Description	Age
#MDM4_HUMAN 	O15151	MDM4	2.00E-266	874.3	E3 ubiquitin-protein ligase Mdm2	Metazoa
#MDM2_HUMAN	Q00987	MDM2	9.10E-265	868.8	Protein Mdm4	Vertebrata
#MDM4_MOUSE	O15151	MDM4	1.80E-205	673.3	E3 ubiquitin-protein ligase Mdm2	Metazoa
#Mdo_MDM4	O15151	MDM4	5.10E-188	616.2	E3 ubiquitin-protein ligase Mdm2	Metazoa
#MDM2_MOUSE	Q00987	MDM2	1.70E-186	610.8	Protein Mdm4	Vertebrata
#Mdo_MDM2	Q00987	MDM2	5.70E-175	572.6	Protein Mdm4	Vertebrata
#Mdo_MDM2	O15151	MDM4	3.60E-51	164.5	E3 ubiquitin-protein ligase Mdm2	Metazoa
#MDM2_HUMAN	O15151	MDM4	6.70E-50	160.4	E3 ubiquitin-protein ligase Mdm2	Metazoa
#Mdo_MDM4	Q00987	MDM2	4.40E-49	158	Protein Mdm4	Vertebrata
#MDM4_MOUSE	Q00987	MDM2	1.30E-48	156.1	Protein Mdm4	Vertebrata
#MDM2_MOUSE	O15151	MDM4	3.60E-48	154.8	E3 ubiquitin-protein ligase Mdm2	Metazoa
#MDM4_HUMAN 	Q00987	MDM2	3.10E-47	151.6	Protein Mdm4	Vertebrata

	my $table = submitSeq($fasta2,"DDR") ; 
	say STDERR $table->get_attribute('id');
	my $count_text=$driver->find_element("#dynatable-record-count-results_table",'css') ;
	$count_text->text_like('/of 12 records/',"Example sequence: number of targets" );
   
	my @tds=$driver->find_child_elements($table,"tbody tr td",'css');	
 	is(@tds,7*10,"number of table cells");
	$tds[0]->text_is("MDM4_HUMAN","Query Name HUMAN MDM4");
    my $target_link=$driver->find_child_element($tds[1],"a",'css');
	$target_link->text_is("O15151",'target name MDM4');
	$target_link->attribute_is("href","http://www.uniprot.org/uniprot/O15151","target link url MDM4");
	my $ddr_link=$driver->find_child_element($tds[2],"a",'css');
	$ddr_link->text_is("MDM4",'DRR target name ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=49","DDR link url"); 
	$tds[3]->text_is(2.00E-266,"Evalue text MDM4");
	$tds[4]->text_is(874.3,"Score text MDM4");
	$tds[5]->text_is("Protein Mdm4","Description text MDM4");  
	my $age_link=$driver->find_child_element($tds[6],"a",'css');
	$age_link->text_is("Vertebrata","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Vertebrata","Age link url"); 
	
	
	$tds[7]->text_is("MDM2_HUMAN","Query Name HUMAN MDM2");
    my $target_link=$driver->find_child_element($tds[8],"a",'css');
	$target_link->text_is("Q00987",'target name MDM2');
	$target_link->attribute_is("href","http://www.uniprot.org/uniprot/Q00987","target link url MDM2");
	my $ddr_link=$driver->find_child_element($tds[9],"a",'css');
	$ddr_link->text_is("MDM2",'DRR target name MDM2 ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=48","DDR link url"); 
	$tds[10]->text_is("9.1e-265","Evalue text MDM2");
	$tds[11]->text_is(868.8,"Score text MDM2");
	$tds[12]->text_is("E3 ubiquitin-protein ligase Mdm2","Description text MDM2");
	my $age_link=$driver->find_child_element($tds[13],"a",'css');
	$age_link->text_is("Metazoa","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Metazoa","Age link url");
	
	my $age_link=$driver->find_child_element($tds[6],"a",'css');
	$age_link->text_is("Vertebrata","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Vertebrata","Age link url");
    
	$tds[14]->text_is("MDM4_MOUSE","Query Name MOUSE MDM4");
    my $target_link=$driver->find_child_element($tds[15],"a",'css');
	$target_link->text_is("O15151",'target name Uniprot');
	$target_link->attribute_is("href","http://www.uniprot.org/uniprot/O15151","target link url MDM4");
	my $ddr_link=$driver->find_child_element($tds[16],"a",'css');
	$ddr_link->text_is("MDM4",'DRR target name ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=49","DDR link url"); 
	$tds[17]->text_is(1.80E-205,"Evalue text MDM4  MOUSE VS HUMAN");
	$tds[18]->text_is(673.3,"Score text MDM4  MOUSE VS HUMAN");

	#10 sequences
	#no results  
	
	
	#testing Orth
	$driver->get("$BASE_URL/index.php");
	my $table = submitSeq($fasta,"Orth") ; 
    #say STDERR $table->get_attribute('id');
	my $count_text=$driver->find_element("#dynatable-record-count-results_table",'css') ;
	$count_text->text_like('/of 26 records/',"Example sequence: number of targets" );
   
	my @tds=$driver->find_child_elements($table,"tbody tr td",'css');
	is(@tds,7*10,"number of table cells"); 
   	$tds[0]->text_is("Sequence","Query Name");
    my $target_link=$driver->find_child_element($tds[1],"a",'css');
	$target_link->text_is("Q13535",'target name Uniprot');
	$target_link->attribute_is("href","http://www.uniprot.org/uniprot/Q13535","target link url Uniprot");
	my $ddr_link=$driver->find_child_element($tds[2],"a",'css');
	$ddr_link->text_is("ATR",'DRR target name ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=2","DDR link url"); 
	$tds[3]->text_is("0","Evalue text Uniprot");
	$tds[4]->text_is("4581.7","Score text Uniprot");
	$tds[5]->text_is("Serine/threonine-protein kinase ATR","Description text Uniprot");  
	my $age_link=$driver->find_child_element($tds[6],"a",'css');
	$age_link->text_is("Early Eukaryote","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Early%20Eukaryote","Age link url");
	
	$tds[7]->text_is("Sequence","Query Name");
    my $target_link=$driver->find_child_element($tds[8],"a",'css');
	$target_link->text_is("Q9JKK8",'target name Uniprot');
	$target_link->attribute_is("href","http://www.uniprot.org/uniprot/Q9JKK8","target link url Uniprot");
	my $ddr_link=$driver->find_child_element($tds[9],"a",'css');
	$ddr_link->text_is("ATR",'DRR target name ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=2","DDR link url"); 
	$tds[10]->text_is("0","Evalue text Uniprot");
	$tds[11]->text_is("4080","Score text Uniprot");
	$tds[12]->text_is("Serine/threonine-protein kinase ATR","Description text Uniprot");  
	my $age_link=$driver->find_child_element($tds[13],"a",'css');
	$age_link->text_is("Early Eukaryote","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Early%20Eukaryote","Age link url"); 
	
	$tds[14]->text_is("Sequence","Query Name");
    my $target_link=$driver->find_child_element($tds[15],"a",'css');
	$target_link->text_is("ENSMODP00000026543",'target name Uniprot');
	$target_link->attribute_is("href","http://www.ensembl.org/Multi/Search/Results?q=ENSMODP00000026543","target link url Uniprot");
	my $ddr_link=$driver->find_child_element($tds[16],"a",'css');
	$ddr_link->text_is("ATR",'DRR target name ');
	$ddr_link->attribute_is("href","$BASE_URL/Php/display?id=2","DDR link url"); 
	$tds[17]->text_is("0","Evalue text Uniprot");
	$tds[18]->text_is("3762.7","Score text Uniprot");
	$tds[19]->text_is("Serine/threonine-protein kinase ATR","Description text Uniprot");  
	my $age_link=$driver->find_child_element($tds[20],"a",'css');
	$age_link->text_is("Early Eukaryote","Age Text"); 
	$age_link->attribute_is("href","$BASE_URL/Php/result?age=Early%20Eukaryote","Age link url");

#RESULTS (hmmer DDRdb) 
	#table
	 	#columns
		#links
		#sort
		#pagination
		
	 #NO RESULTS  
		
#RESULTS (hmmer DDRdb) 
	 
	#table
	 	#columns
		#links
		#sort
		#pagination   
		
	 #NO RESULTS  
done_testing; 	
$driver->quit;