#!/usr/bin/perl -w
use strict;
use Test::More tests=> 15;
BEGIN {
use_ok('WWW::Mediawiki::Client::Exceptions');
}
eval { WWW::Mediawiki::Client::Exception->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::Exception',
'Can throw a WWW::Mediawiki::Client::Exception.');
eval { WWW::Mediawiki::Client::URLConstructionException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::URLConstructionException',
'Can throw a WWW::Mediawiki::Client::URLConstructionException.');
eval { WWW::Mediawiki::Client::AuthException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::AuthException',
'Can throw a WWW::Mediawiki::Client::AuthException.');
eval { WWW::Mediawiki::Client::LoginException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::LoginException',
'Can throw a WWW::Mediawiki::Client::LoginException.');
eval { WWW::Mediawiki::Client::CookieJarException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::CookieJarException',
'Can throw a WWW::Mediawiki::Client::CookieJarException.');
eval { WWW::Mediawiki::Client::FileAccessException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::FileAccessException',
'Can throw a WWW::Mediawiki::Client::FileAccessException.');
eval { WWW::Mediawiki::Client::FileTypeException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::FileTypeException',
'Can throw a WWW::Mediawiki::Client::FileTypeException.');
eval { WWW::Mediawiki::Client::CommitMessageException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::CommitMessageException',
'Can throw a WWW::Mediawiki::Client::CommitMessageException.');
eval { WWW::Mediawiki::Client::PageDoesNotExistException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::PageDoesNotExistException',
'Can throw a WWW::Mediawiki::Client::PageDoesNotExistException.');
eval { WWW::Mediawiki::Client::UpdateNeededException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::UpdateNeededException',
'Can throw a WWW::Mediawiki::Client::UpdateNeededException.');
eval { WWW::Mediawiki::Client::ConflictsPresentException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::ConflictsPresentException',
'Can throw a WWW::Mediawiki::Client::ConflictsPresentException.');
eval { WWW::Mediawiki::Client::CorruptedConfigFileException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::CorruptedConfigFileException',
'Can throw a WWW::Mediawiki::Client::CorruptedConfigFileException.');
eval { WWW::Mediawiki::Client::ServerPageException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::ServerPageException',
'Can throw a WWW::Mediawiki::Client::ServerPageException.');
eval { WWW::Mediawiki::Client::ReadOnlyFieldException->throw() };
isa_ok($@, 'WWW::Mediawiki::Client::ReadOnlyFieldException',
'Can throw a WWW::Mediawiki::Client::ReadOnlyFieldException.');
1;
__END__
# vim:syntax=perl: