From e3969531bf179c80132d5d8476032e62f8a96993 Mon Sep 17 00:00:00 2001 From: dbs Date: Mon, 31 Jan 2011 03:30:42 +0000 Subject: [PATCH] Add basic unit tests for Evergreen Perl modules By "basic", I mean, "Can we use them without provoking a syntax error?" and the answer is... all but one appear to be clean, or have a legit reason for not being able to be used normally. Stay tuned for the culprit... git-svn-id: svn://svn.open-ils.org/ILS/trunk@19342 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/t/00-OpenILS.t | 13 ++++++++++++ .../src/perlmods/t/01-OpenILS-Application.t | 20 ++++++++++++++++++ .../perlmods/t/02-OpenILS-Application-Acq.t | 18 ++++++++++++++++ .../perlmods/t/03-OpenILS-Application-Actor.t | 13 ++++++++++++ .../perlmods/t/04-OpenILS-Application-Cat.t | 13 ++++++++++++ .../perlmods/t/05-OpenILS-Application-Circ.t | 20 ++++++++++++++++++ .../t/06-OpenILS-Application-Search.t | 15 +++++++++++++ .../t/07-OpenILS-Application-Storage.t | 10 +++++++++ .../t/08-OpenILS-Application-Storage-CDBI.t | 20 ++++++++++++++++++ .../t/09-OpenILS-Application-Storage-Driver.t | 12 +++++++++++ ...10-OpenILS-Application-Storage-Publisher.t | 18 ++++++++++++++++ Open-ILS/src/perlmods/t/11-OpenILS-Reporter.t | 6 ++++++ Open-ILS/src/perlmods/t/12-OpenILS-SIP.t | 15 +++++++++++++ Open-ILS/src/perlmods/t/13-OpenILS-Template.t | 7 +++++++ Open-ILS/src/perlmods/t/14-OpenILS-Utils.t | 21 +++++++++++++++++++ Open-ILS/src/perlmods/t/15-OpenILS-WWW.t | 16 ++++++++++++++ .../perlmods/t/16-OpenILS-WWW-AddedContent.t | 12 +++++++++++ .../src/perlmods/t/17-OpenILS-WWW-Reporter.t | 8 +++++++ .../src/perlmods/t/18-OpenILS-WWW-SuperCat.t | 8 +++++++ 19 files changed, 265 insertions(+) create mode 100644 Open-ILS/src/perlmods/t/00-OpenILS.t create mode 100644 Open-ILS/src/perlmods/t/01-OpenILS-Application.t create mode 100644 Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t create mode 100644 Open-ILS/src/perlmods/t/03-OpenILS-Application-Actor.t create mode 100644 Open-ILS/src/perlmods/t/04-OpenILS-Application-Cat.t create mode 100644 Open-ILS/src/perlmods/t/05-OpenILS-Application-Circ.t create mode 100644 Open-ILS/src/perlmods/t/06-OpenILS-Application-Search.t create mode 100644 Open-ILS/src/perlmods/t/07-OpenILS-Application-Storage.t create mode 100644 Open-ILS/src/perlmods/t/08-OpenILS-Application-Storage-CDBI.t create mode 100644 Open-ILS/src/perlmods/t/09-OpenILS-Application-Storage-Driver.t create mode 100644 Open-ILS/src/perlmods/t/10-OpenILS-Application-Storage-Publisher.t create mode 100644 Open-ILS/src/perlmods/t/11-OpenILS-Reporter.t create mode 100644 Open-ILS/src/perlmods/t/12-OpenILS-SIP.t create mode 100644 Open-ILS/src/perlmods/t/13-OpenILS-Template.t create mode 100644 Open-ILS/src/perlmods/t/14-OpenILS-Utils.t create mode 100644 Open-ILS/src/perlmods/t/15-OpenILS-WWW.t create mode 100644 Open-ILS/src/perlmods/t/16-OpenILS-WWW-AddedContent.t create mode 100644 Open-ILS/src/perlmods/t/17-OpenILS-WWW-Reporter.t create mode 100644 Open-ILS/src/perlmods/t/18-OpenILS-WWW-SuperCat.t diff --git a/Open-ILS/src/perlmods/t/00-OpenILS.t b/Open-ILS/src/perlmods/t/00-OpenILS.t new file mode 100644 index 0000000000..2c35bf9a93 --- /dev/null +++ b/Open-ILS/src/perlmods/t/00-OpenILS.t @@ -0,0 +1,13 @@ +#!perl -T + +use Test::More tests => 4; + +BEGIN { + use_ok( 'OpenILS' ); +} + +use_ok( 'OpenILS::Const' ); +use_ok( 'OpenILS::Event' ); +use_ok( 'OpenILS::Perm' ); + +diag( "Testing OpenILS $OpenILS::VERSION, Perl $], $^X" ); diff --git a/Open-ILS/src/perlmods/t/01-OpenILS-Application.t b/Open-ILS/src/perlmods/t/01-OpenILS-Application.t new file mode 100644 index 0000000000..06f3ad4987 --- /dev/null +++ b/Open-ILS/src/perlmods/t/01-OpenILS-Application.t @@ -0,0 +1,20 @@ +#!perl -T + +use Test::More tests => 13; + +BEGIN { + use_ok( 'OpenILS::Application' ); +} + +use_ok( 'OpenILS::Application::AppUtils' ); +use_ok( 'OpenILS::Application::Booking' ); +use_ok( 'OpenILS::Application::Collections' ); +use_ok( 'OpenILS::Application::Fielder' ); +use_ok( 'OpenILS::Application::Ingest' ); +use_ok( 'OpenILS::Application::Penalty' ); +use_ok( 'OpenILS::Application::PermaCrud' ); +use_ok( 'OpenILS::Application::Reporter' ); +use_ok( 'OpenILS::Application::ResolverResolver' ); +use_ok( 'OpenILS::Application::Serial' ); +use_ok( 'OpenILS::Application::SuperCat' ); +use_ok( 'OpenILS::Application::Vandelay' ); diff --git a/Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t b/Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t new file mode 100644 index 0000000000..2ef4035b67 --- /dev/null +++ b/Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t @@ -0,0 +1,18 @@ +#!perl -T + +use Test::More tests => 11; + +BEGIN { + use_ok( 'OpenILS::Application::Acq' ); +} + +use_ok( 'OpenILS::Application::Acq::Claims '); +use_ok( 'OpenILS::Application::Acq::EDI '); +use_ok( 'OpenILS::Application::Acq::EDI '); +use_ok( 'OpenILS::Application::Acq::Financials '); +use_ok( 'OpenILS::Application::Acq::Invoice '); +use_ok( 'OpenILS::Application::Acq::Lineitem '); +use_ok( 'OpenILS::Application::Acq::Order '); +use_ok( 'OpenILS::Application::Acq::Picklist '); +use_ok( 'OpenILS::Application::Acq::Provider '); +use_ok( 'OpenILS::Application::Acq::Search '); diff --git a/Open-ILS/src/perlmods/t/03-OpenILS-Application-Actor.t b/Open-ILS/src/perlmods/t/03-OpenILS-Application-Actor.t new file mode 100644 index 0000000000..86bb62dd81 --- /dev/null +++ b/Open-ILS/src/perlmods/t/03-OpenILS-Application-Actor.t @@ -0,0 +1,13 @@ +#!perl -T + +use Test::More tests => 6; + +BEGIN { + use_ok( 'OpenILS::Application::Actor' ); +} + +use_ok( 'OpenILS::Application::Actor::ClosedDates' ); +use_ok( 'OpenILS::Application::Actor::Container' ); +use_ok( 'OpenILS::Application::Actor::Friends' ); +use_ok( 'OpenILS::Application::Actor::Stage' ); +use_ok( 'OpenILS::Application::Actor::UserGroups' ); diff --git a/Open-ILS/src/perlmods/t/04-OpenILS-Application-Cat.t b/Open-ILS/src/perlmods/t/04-OpenILS-Application-Cat.t new file mode 100644 index 0000000000..b5a671ae78 --- /dev/null +++ b/Open-ILS/src/perlmods/t/04-OpenILS-Application-Cat.t @@ -0,0 +1,13 @@ +#!perl -T + +use Test::More tests => 6; + +BEGIN { + use_ok( 'OpenILS::Application::Cat' ); +} + +use_ok( 'OpenILS::Application::Cat::AssetCommon' ); +use_ok( 'OpenILS::Application::Cat::AuthCommon' ); +use_ok( 'OpenILS::Application::Cat::Authority' ); +use_ok( 'OpenILS::Application::Cat::BibCommon' ); +use_ok( 'OpenILS::Application::Cat::Merge' ); diff --git a/Open-ILS/src/perlmods/t/05-OpenILS-Application-Circ.t b/Open-ILS/src/perlmods/t/05-OpenILS-Application-Circ.t new file mode 100644 index 0000000000..5f5c1b062e --- /dev/null +++ b/Open-ILS/src/perlmods/t/05-OpenILS-Application-Circ.t @@ -0,0 +1,20 @@ +#!perl -T + +use Test::More tests => 13; + +BEGIN { + use_ok( 'OpenILS::Application::Circ' ); +} + +use_ok( 'OpenILS::Application::Circ::CircCommon' ); +use_ok( 'OpenILS::Application::Circ::Circulate' ); +use_ok( 'OpenILS::Application::Circ::CopyLocations' ); +use_ok( 'OpenILS::Application::Circ::CreditCard' ); +use_ok( 'OpenILS::Application::Circ::HoldNotify' ); +use_ok( 'OpenILS::Application::Circ::Holds' ); +use_ok( 'OpenILS::Application::Circ::Money' ); +use_ok( 'OpenILS::Application::Circ::NonCat' ); +use_ok( 'OpenILS::Application::Circ::ScriptBuilder' ); +use_ok( 'OpenILS::Application::Circ::StatCat' ); +use_ok( 'OpenILS::Application::Circ::Survey' ); +use_ok( 'OpenILS::Application::Circ::Transit' ); diff --git a/Open-ILS/src/perlmods/t/06-OpenILS-Application-Search.t b/Open-ILS/src/perlmods/t/06-OpenILS-Application-Search.t new file mode 100644 index 0000000000..cb49188cf7 --- /dev/null +++ b/Open-ILS/src/perlmods/t/06-OpenILS-Application-Search.t @@ -0,0 +1,15 @@ +#!perl -T + +use Test::More tests => 8; + +BEGIN { + use_ok( 'OpenILS::Application::Search' ); +} + +use_ok( 'OpenILS::Application::Search::AddedContent' ); +use_ok( 'OpenILS::Application::Search::Authority' ); +use_ok( 'OpenILS::Application::Search::Biblio' ); +use_ok( 'OpenILS::Application::Search::CNBrowse' ); +use_ok( 'OpenILS::Application::Search::Serial' ); +use_ok( 'OpenILS::Application::Search::Z3950' ); +use_ok( 'OpenILS::Application::Search::Zips' ); diff --git a/Open-ILS/src/perlmods/t/07-OpenILS-Application-Storage.t b/Open-ILS/src/perlmods/t/07-OpenILS-Application-Storage.t new file mode 100644 index 0000000000..557f237a67 --- /dev/null +++ b/Open-ILS/src/perlmods/t/07-OpenILS-Application-Storage.t @@ -0,0 +1,10 @@ +#!perl -T + +use Test::More tests => 3; + +BEGIN { + use_ok( 'OpenILS::Application::Storage' ); +} + +use_ok( 'OpenILS::Application::Storage::FTS' ); +use_ok( 'OpenILS::Application::Storage::QueryParser' ); diff --git a/Open-ILS/src/perlmods/t/08-OpenILS-Application-Storage-CDBI.t b/Open-ILS/src/perlmods/t/08-OpenILS-Application-Storage-CDBI.t new file mode 100644 index 0000000000..dc6ae2dd1f --- /dev/null +++ b/Open-ILS/src/perlmods/t/08-OpenILS-Application-Storage-CDBI.t @@ -0,0 +1,20 @@ +#!perl -T + +use Test::More tests => 13; + +BEGIN { + use_ok( 'OpenILS::Application::Storage::CDBI' ); +} + +use_ok( 'OpenILS::Application::Storage::CDBI::action' ); +use_ok( 'OpenILS::Application::Storage::CDBI::actor' ); +use_ok( 'OpenILS::Application::Storage::CDBI::asset' ); +use_ok( 'OpenILS::Application::Storage::CDBI::authority' ); +use_ok( 'OpenILS::Application::Storage::CDBI::biblio' ); +use_ok( 'OpenILS::Application::Storage::CDBI::booking' ); +use_ok( 'OpenILS::Application::Storage::CDBI::config' ); +use_ok( 'OpenILS::Application::Storage::CDBI::container' ); +use_ok( 'OpenILS::Application::Storage::CDBI::metabib' ); +use_ok( 'OpenILS::Application::Storage::CDBI::money' ); +use_ok( 'OpenILS::Application::Storage::CDBI::permission' ); +use_ok( 'OpenILS::Application::Storage::CDBI::serial' ); diff --git a/Open-ILS/src/perlmods/t/09-OpenILS-Application-Storage-Driver.t b/Open-ILS/src/perlmods/t/09-OpenILS-Application-Storage-Driver.t new file mode 100644 index 0000000000..9e93ade705 --- /dev/null +++ b/Open-ILS/src/perlmods/t/09-OpenILS-Application-Storage-Driver.t @@ -0,0 +1,12 @@ +#!perl -T + +use Test::More tests => 3; + +use_ok( 'OpenILS::Application::Storage::Driver::Pg::cdbi' ); +use_ok( 'OpenILS::Application::Storage::Driver::Pg::fts' ); +use_ok( 'OpenILS::Application::Storage::Driver::Pg::QueryParser' ); + +# These modules are not meant to be loaded as a normal Perl module +# use_ok( 'OpenILS::Application::Storage::Driver::Pg' ); +# use_ok( 'OpenILS::Application::Storage::Driver::Pg::dbi' ); +# use_ok( 'OpenILS::Application::Storage::Driver::Pg::storage' ); diff --git a/Open-ILS/src/perlmods/t/10-OpenILS-Application-Storage-Publisher.t b/Open-ILS/src/perlmods/t/10-OpenILS-Application-Storage-Publisher.t new file mode 100644 index 0000000000..6cc710a4ed --- /dev/null +++ b/Open-ILS/src/perlmods/t/10-OpenILS-Application-Storage-Publisher.t @@ -0,0 +1,18 @@ +#!perl -T + +use Test::More tests => 11; + +BEGIN { + use_ok( 'OpenILS::Application::Storage::Publisher' ); +} + +use_ok( 'OpenILS::Application::Storage::Publisher::action' ); +use_ok( 'OpenILS::Application::Storage::Publisher::actor' ); +use_ok( 'OpenILS::Application::Storage::Publisher::asset' ); +use_ok( 'OpenILS::Application::Storage::Publisher::authority' ); +use_ok( 'OpenILS::Application::Storage::Publisher::biblio' ); +use_ok( 'OpenILS::Application::Storage::Publisher::config' ); +use_ok( 'OpenILS::Application::Storage::Publisher::container' ); +use_ok( 'OpenILS::Application::Storage::Publisher::metabib' ); +use_ok( 'OpenILS::Application::Storage::Publisher::money' ); +use_ok( 'OpenILS::Application::Storage::Publisher::permission' ); diff --git a/Open-ILS/src/perlmods/t/11-OpenILS-Reporter.t b/Open-ILS/src/perlmods/t/11-OpenILS-Reporter.t new file mode 100644 index 0000000000..bd9b754299 --- /dev/null +++ b/Open-ILS/src/perlmods/t/11-OpenILS-Reporter.t @@ -0,0 +1,6 @@ +#!perl -T + +use Test::More tests => 2; + +use_ok( 'OpenILS::Reporter::Proxy' ); +use_ok( 'OpenILS::Reporter::SQLBuilder' ); diff --git a/Open-ILS/src/perlmods/t/12-OpenILS-SIP.t b/Open-ILS/src/perlmods/t/12-OpenILS-SIP.t new file mode 100644 index 0000000000..cf93a0caa2 --- /dev/null +++ b/Open-ILS/src/perlmods/t/12-OpenILS-SIP.t @@ -0,0 +1,15 @@ +#!perl -T + +use Test::More tests => 8; + +BEGIN { + use_ok( 'OpenILS::SIP' ); +} + +use_ok( 'OpenILS::SIP::Item' ); +use_ok( 'OpenILS::SIP::Msg' ); +use_ok( 'OpenILS::SIP::Patron' ); +use_ok( 'OpenILS::SIP::Transaction' ); +use_ok( 'OpenILS::SIP::Transaction::Checkin' ); +use_ok( 'OpenILS::SIP::Transaction::Checkout' ); +use_ok( 'OpenILS::SIP::Transaction::Renew' ); diff --git a/Open-ILS/src/perlmods/t/13-OpenILS-Template.t b/Open-ILS/src/perlmods/t/13-OpenILS-Template.t new file mode 100644 index 0000000000..e0e77f79be --- /dev/null +++ b/Open-ILS/src/perlmods/t/13-OpenILS-Template.t @@ -0,0 +1,7 @@ +#!perl -T + +use Test::More tests => 3; + +use_ok( 'OpenILS::Template::Plugin::Unicode' ); +use_ok( 'OpenILS::Template::Plugin::WebSession' ); +use_ok( 'OpenILS::Template::Plugin::WebUtils' ); diff --git a/Open-ILS/src/perlmods/t/14-OpenILS-Utils.t b/Open-ILS/src/perlmods/t/14-OpenILS-Utils.t new file mode 100644 index 0000000000..70f988d852 --- /dev/null +++ b/Open-ILS/src/perlmods/t/14-OpenILS-Utils.t @@ -0,0 +1,21 @@ +#!perl -T + +use Test::More tests => 17; + +use_ok( 'OpenILS::Utils::Cronscript' ); +use_ok( 'OpenILS::Utils::CStoreEditor' ); +use_ok( 'OpenILS::Utils::Editor' ); +use_ok( 'OpenILS::Utils::Fieldmapper' ); +use_ok( 'OpenILS::Utils::ISBN' ); +use_ok( 'OpenILS::Utils::Lockfile' ); +use_ok( 'OpenILS::Utils::MFHDParser' ); +use_ok( 'OpenILS::Utils::MFHD' ); +use_ok( 'OpenILS::Utils::ModsParser' ); +use_ok( 'OpenILS::Utils::Normalize' ); +use_ok( 'OpenILS::Utils::OfflineStore' ); +use_ok( 'OpenILS::Utils::Penalty' ); +use_ok( 'OpenILS::Utils::PermitHold' ); +use_ok( 'OpenILS::Utils::RemoteAccount' ); +use_ok( 'OpenILS::Utils::ScriptRunner' ); +use_ok( 'OpenILS::Utils::SpiderMonkey' ); +use_ok( 'OpenILS::Utils::ZClient' ); diff --git a/Open-ILS/src/perlmods/t/15-OpenILS-WWW.t b/Open-ILS/src/perlmods/t/15-OpenILS-WWW.t new file mode 100644 index 0000000000..d22c3b0b4d --- /dev/null +++ b/Open-ILS/src/perlmods/t/15-OpenILS-WWW.t @@ -0,0 +1,16 @@ +#!perl -T + +use Test::More tests => 12; + +use_ok( 'OpenILS::WWW::BadDebt' ); +use_ok( 'OpenILS::WWW::EGWeb' ); +use_ok( 'OpenILS::WWW::Exporter' ); +use_ok( 'OpenILS::WWW::IDL2js' ); +use_ok( 'OpenILS::WWW::Method' ); +use_ok( 'OpenILS::WWW::PasswordReset' ); +use_ok( 'OpenILS::WWW::Proxy' ); +use_ok( 'OpenILS::WWW::Redirect' ); +use_ok( 'OpenILS::WWW::TemplateBatchBibUpdate' ); +use_ok( 'OpenILS::WWW::Vandelay' ); +use_ok( 'OpenILS::WWW::Web' ); +use_ok( 'OpenILS::WWW::XMLRPCGateway' ); diff --git a/Open-ILS/src/perlmods/t/16-OpenILS-WWW-AddedContent.t b/Open-ILS/src/perlmods/t/16-OpenILS-WWW-AddedContent.t new file mode 100644 index 0000000000..10f79c9ec4 --- /dev/null +++ b/Open-ILS/src/perlmods/t/16-OpenILS-WWW-AddedContent.t @@ -0,0 +1,12 @@ +#!perl -T + +use Test::More tests => 5; + +BEGIN { + use_ok( 'OpenILS::WWW::AddedContent' ); +} + +use_ok( 'OpenILS::WWW::AddedContent::Amazon' ); +use_ok( 'OpenILS::WWW::AddedContent::ContentCafe' ); +use_ok( 'OpenILS::WWW::AddedContent::OpenLibrary' ); +use_ok( 'OpenILS::WWW::AddedContent::Syndetic' ); diff --git a/Open-ILS/src/perlmods/t/17-OpenILS-WWW-Reporter.t b/Open-ILS/src/perlmods/t/17-OpenILS-WWW-Reporter.t new file mode 100644 index 0000000000..d90dc4519a --- /dev/null +++ b/Open-ILS/src/perlmods/t/17-OpenILS-WWW-Reporter.t @@ -0,0 +1,8 @@ +#!perl -T + +use Test::More tests => 2; + +BEGIN { + use_ok( 'OpenILS::WWW::Reporter' ); +} +use_ok( 'OpenILS::WWW::Reporter::transforms' ); diff --git a/Open-ILS/src/perlmods/t/18-OpenILS-WWW-SuperCat.t b/Open-ILS/src/perlmods/t/18-OpenILS-WWW-SuperCat.t new file mode 100644 index 0000000000..ffffba62ff --- /dev/null +++ b/Open-ILS/src/perlmods/t/18-OpenILS-WWW-SuperCat.t @@ -0,0 +1,8 @@ +#!perl -T + +use Test::More tests => 2; + +BEGIN { + use_ok( 'OpenILS::WWW::SuperCat' ); +} +use_ok( 'OpenILS::WWW::SuperCat::Feed' ); -- 2.43.2