use multi_param() if available to avoid the new warning
[bse.git] / t / t000load.t
1 #!perl -w
2 use strict;
3 use Test::More tests => 38;
4 use_ok("BSE::Cfg");
5 use_ok("Squirrel::Template");
6 use_ok("BSE::Template");
7 use_ok("BSE::Util::PasswordValidate");
8 use_ok("DevHelp::Date");
9 use_ok("DevHelp::Formatter");
10 use_ok("DevHelp::HTML");
11 use_ok("DevHelp::Validate");
12 use_ok("BSE::Variables");
13 use_ok("BSE::TB::AuditLog");
14 use_ok("BSE::TB::Tag");
15 use_ok("BSE::TB::Tags");
16 use_ok("BSE::TB::TagCategory");
17 use_ok("BSE::TB::TagCategories");
18 use_ok("BSE::TB::TagOwner");
19 use_ok("BSE::TB::TagOwners");
20 use_ok("BSE::TB::Article");
21 use_ok("BSE::TB::Articles");
22 use_ok('BSE::Generate');
23 use_ok('BSE::Generate::Article');
24 use_ok('BSE::Generate::Product');
25 use_ok('BSE::Generate::Catalog');
26 use_ok('BSE::Edit::Article');
27 use_ok('BSE::Edit::Site');
28 use_ok('BSE::Edit::Catalog');
29 use_ok('BSE::Edit::Product');
30 use_ok('BSE::Edit::Seminar');
31 use_ok("BSE::UI::Page");
32 use_ok("BSE::UserReg");
33 use_ok("BSE::Index");
34 use_ok("BSE::Index::BSE");
35 use_ok("BSE::ImageClean");
36 use_ok("BSE::UI::AdminImageClean");
37 use_ok("BSE::UI::Thumb");
38 use_ok("BSE::UI::Interest");
39 use_ok("BSE::Request::Base");
40 use_ok("BSE::Request");
41 use_ok("BSE::Request::Test");
42
43 my $builder = Test::Builder->new;
44 $builder->is_passing or $builder->BAIL_OUT;