# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'
# Note added by Frank Gibbons.
# Tests should, as far as possible, avoid the use of literals.
# If you register a service with authURI => mysite.com,
# and you want to test a retrieved description of the service,
# don't test that the service returns authURI eq "mysite.com",
# test so that it returns the same value as you used to register it in the first place.
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
#use SOAP::Lite +trace;
use Test::More 'no_plan'; # perldoc Test::More for details
use strict;
use English;
use Data::Dumper;
use MOBY::Client::ServiceInstance;
#Is the client-code even installed?
BEGIN { use_ok('MOBY::Client::ServiceInstance') };
END {
# Clean up after yourself, in case tests fail, or the interpreter is interrupted partway though...
};
TODO: {
local $TODO = "Everything.";
}
my @API = (qw/new authority name type input output
secondary category description registry
XML authoritative URL contactEmail LSID/);
my $si = MOBY::Client::ServiceInstance->new();
foreach (@API) {eval{$si->$_};} # Call all AUTOLOAD methods, to create them.
can_ok("MOBY::Client::ServiceInstance", @API)
or diag("ServiceInstance doesn't implement full API");