#!/usr/bin/perl -w # $Id$ # # Load all the modules included with SqueezeCenter use strict; use lib qw(lib); use File::Find::Rule; use File::Spec::Functions qw(:ALL); use Test::More qw(no_plan); BEGIN { use_ok('Slim::Test::Base'); use_ok('Slim::bootstrap'); } my $topDir = Slim::Test::Base->serverDir; my @dirs = ( catdir($topDir, 'Slim'), # Plugins folder is for third party only as of SC 7.0 #catdir($topDir, 'Plugins'), ); my @files = File::Find::Rule->file->name('*.pm')->in(@dirs); for my $module (@files) { $module =~ s!$topDir[/\\]!!; $module =~ s!/!::!g; $module =~ s!\.pm!!g; # XXXX - not testing ChangeNotify modules, they are OS specific. if ($module =~ /ChangeNotify::/) { next; } use_ok($module); }