Project

General

Profile

« Previous | Next » 

Revision 9234

Added by ben leinfelder about 9 years ago

correct logout method (old change still in workspace)

View differences:

test.pl
40 40 
# Insert your test code below (better if it prints "ok 13"
41 41 
# (correspondingly "not ok 13") depending on the success of chunk 13
42 42 
# of the test code):
43 
my $metacatUrl = "http://snow.joneseckert.org:8080/metacat/metacat";
44 
my $username = 'uid=jones,o=NCEAS,dc=ecoinformatics,dc=org';
45 
my $password = 'your-pw-goes-here';
43 
my $metacatUrl = "https://dev.nceas.ucsb.edu/knb/metacat";
44 
my $username = 'uid=kepler,o=unaffiliated,dc=ecoinformatics,dc=org';
45 
my $password = 'kepler';
46 46 

  		




  47
  47
  
    
# Set up a date stamp


  		




  48
  48
  
    
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);


  		




  ......




  139
  139
  
    
  print $metacat->getMessage();


  		




  140
  140
  
    
  print "not ok 9 getlastid\n";


  		




  141
  141
  
    
}


  		




  
  142
  
    

  		




  
  143
  
    
# Chunk 10: Test metacat logout


  		




  
  144
  
    
my $response = $metacat->logout($username, $password);


  		




  
  145
  
    
if ($response) {


  		




  
  146
  
    
  print "ok 10 logout\n";


  		




  
  147
  
    
} else {


  		




  
  148
  
    
  print $metacat->getMessage();


  		




  
  149
  
    
  print "not ok 10 logout\n";


  		




  
  150
  
    
}


  		












Also available in:  Unified diff