From e3969531bf179c80132d5d8476032e62f8a96993 Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
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 +++++++++++++
 Open-ILS/src/perlmods/t/01-OpenILS-Application.t    | 20 ++++++++++++++++++++
 .../src/perlmods/t/02-OpenILS-Application-Acq.t     | 18 ++++++++++++++++++
 .../src/perlmods/t/03-OpenILS-Application-Actor.t   | 13 +++++++++++++
 .../src/perlmods/t/04-OpenILS-Application-Cat.t     | 13 +++++++++++++
 .../src/perlmods/t/05-OpenILS-Application-Circ.t    | 20 ++++++++++++++++++++
 .../src/perlmods/t/06-OpenILS-Application-Search.t  | 15 +++++++++++++++
 .../src/perlmods/t/07-OpenILS-Application-Storage.t | 10 ++++++++++
 .../t/08-OpenILS-Application-Storage-CDBI.t         | 20 ++++++++++++++++++++
 .../t/09-OpenILS-Application-Storage-Driver.t       | 12 ++++++++++++
 .../t/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 ++++++++++++++++
 .../src/perlmods/t/16-OpenILS-WWW-AddedContent.t    | 12 ++++++++++++
 Open-ILS/src/perlmods/t/17-OpenILS-WWW-Reporter.t   |  8 ++++++++
 Open-ILS/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.11.0