3 # the above line forces Test::Harness into taint-mode
9 BEGIN { plan tests => 7 }
11 package DBICTest::Taint::Classes;
17 use base qw/DBIx::Class::Schema/;
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' );
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' );
32 package DBICTest::Taint::Namespaces;
38 use base qw/DBIx::Class::Schema/;
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' );