Some cleanup
[dbsrgits/DBIx-Class.git] / t / 54taint.t
1 #!perl -T
2
3 # the above line forces Test::Harness into taint-mode
4
5 use strict;
6 use warnings;
7
8 use Test::More;
9 BEGIN { plan tests => 7 }
10
11 package DBICTest::Taint::Classes;
12
13 use Test::More;
14 use Test::Exception;
15
16 use lib qw(t/lib);
17 use base qw/DBIx::Class::Schema/;
18
19 lives_ok (sub {
20   __PACKAGE__->load_classes(qw/Manual/);
21   ok( __PACKAGE__->source('Manual'), 'The Classes::Manual source has been registered' );
22   __PACKAGE__->_unregister_source (qw/Manual/);
23 }, 'Loading classes with explicit load_classes worked in taint mode' );
24
25 lives_ok (sub {
26   __PACKAGE__->load_classes();
27   ok( __PACKAGE__->source('Auto'), 'The Classes::Auto source has been registered' );
28   ok( __PACKAGE__->source('Auto'), 'The Classes::Manual source has been re-registered' );
29 }, 'Loading classes with Module::Find/load_classes worked in taint mode' );
30
31
32 package DBICTest::Taint::Namespaces;
33
34 use Test::More;
35 use Test::Exception;
36
37 use lib qw(t/lib);
38 use base qw/DBIx::Class::Schema/;
39
40 lives_ok (sub {
41   __PACKAGE__->load_namespaces();
42   ok( __PACKAGE__->source('Test'), 'The Namespaces::Test source has been registered' );
43 }, 'Loading classes with Module::Find/load_namespaces worked in taint mode' );
44
45 1;