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

diff --git a/Open-ILS/src/perlmods/t/00-OpenILS.t b/Open-ILS/src/perlmods/t/00-OpenILS.t
new file mode 100644 (file)
index 0000000..2c35bf9
--- /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 (file)
index 0000000..06f3ad4
--- /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 (file)
index 0000000..2ef4035
--- /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 (file)
index 0000000..86bb62d
--- /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 (file)
index 0000000..b5a671a
--- /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 (file)
index 0000000..5f5c1b0
--- /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 (file)
index 0000000..cb49188
--- /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 (file)
index 0000000..557f237
--- /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 (file)
index 0000000..dc6ae2d
--- /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 (file)
index 0000000..9e93ade
--- /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 (file)
index 0000000..6cc710a
--- /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 (file)
index 0000000..bd9b754
--- /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 (file)
index 0000000..cf93a0c
--- /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 (file)
index 0000000..e0e77f7
--- /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 (file)
index 0000000..70f988d
--- /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 (file)
index 0000000..d22c3b0
--- /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 (file)
index 0000000..10f79c9
--- /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 (file)
index 0000000..d90dc45
--- /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 (file)
index 0000000..ffffba6
--- /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' );