# 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::Registration;
#Is the client-code even installed?
BEGIN { use_ok('MOBY::Client::Registration') };
END {
# Clean up after yourself, in case tests fail, or the interpreter is interrupted partway though...
};
TODO: {
local $TODO = "Everything.";
}
my @autoload = qw/success message registration_id RDF/;
my @API = ( @autoload, qw/new id/ );
my $reg = MOBY::Client::Registration->new();
foreach (@autoload) {eval{$reg->$_};} # Call all AUTOLOAD methods, to create them.
can_ok("MOBY::Client::Registration", @API)
or diag("MOBY::Client::Registration does not implement full API");