[Slim-Checkins] r8873 - in /trunk/tests: Slim/ lib/Slim/
lib/Slim/Test/Base.pm t/00use.t
dsully at svn.slimdevices.com
dsully at svn.slimdevices.com
Tue Aug 8 17:29:51 PDT 2006
Author: dsully
Date: Tue Aug 8 17:29:51 2006
New Revision: 8873
URL: http://svn.slimdevices.com?rev=8873&view=rev
Log:
Bug: N/A
Description: Test updates:
Move the base lib under lib/
Run a baseline use_ok() across all modules in the distribution.
Added:
trunk/tests/lib/Slim/
- copied from r8872, trunk/tests/Slim/
trunk/tests/t/00use.t
Removed:
trunk/tests/Slim/
Modified:
trunk/tests/lib/Slim/Test/Base.pm
Modified: trunk/tests/lib/Slim/Test/Base.pm
URL: http://svn.slimdevices.com/trunk/tests/lib/Slim/Test/Base.pm?rev=8873&r1=8872&r2=8873&view=diff
==============================================================================
--- trunk/tests/lib/Slim/Test/Base.pm (original)
+++ trunk/tests/lib/Slim/Test/Base.pm Tue Aug 8 17:29:51 2006
@@ -57,4 +57,6 @@
Slim::Utils::Prefs::set('dbsource', sprintf('dbi:mysql:database=%s', $dbName));
}
+sub main::cleanup {};
+
1;
Added: trunk/tests/t/00use.t
URL: http://svn.slimdevices.com/trunk/tests/t/00use.t?rev=8873&view=auto
==============================================================================
--- trunk/tests/t/00use.t (added)
+++ trunk/tests/t/00use.t Tue Aug 8 17:29:51 2006
@@ -1,0 +1,39 @@
+#!/usr/bin/perl -w
+
+# $Id$
+#
+# Load all the modules included with SlimServer
+
+use strict;
+use FindBin qw($Bin);
+
+use lib "$Bin/../../server";
+use lib "$Bin/../lib";
+
+use File::Find::Rule;
+use Test::More qw(no_plan);
+
+BEGIN {
+ use_ok('Slim::bootstrap');
+ use_ok('Slim::Utils::OSDetect');
+ use_ok('Slim::Test::Base');
+
+ ok(Slim::bootstrap->loadModules());
+}
+
+my @dirs = ("$Bin/../../server/Slim", "$Bin/../../server/Plugins");
+my @files = File::Find::Rule->file->name('*.pm') ->in(@dirs);
+
+for my $module (@files) {
+
+ $module =~ s!$Bin/\.\./\.\./server/!!;
+ $module =~ s!/!::!g;
+ $module =~ s!\.pm!!g;
+
+ # XXXX - not testing ChangeNotify modules, they are OS specific.
+ if ($module =~ /ChangeNotify::/) {
+ next;
+ }
+
+ use_ok($module);
+}
More information about the checkins
mailing list