3 # the above line forces Test::Harness into taint-mode
14 sub { $ENV{PATH} . (kill (0)) },
15 qr/Insecure dependency in kill/,
20 package DBICTest::Taint::Classes;
25 use base qw/DBIx::Class::Schema/;
28 __PACKAGE__->load_classes(qw/Manual/);
29 ok( __PACKAGE__->source('Manual'), 'The Classes::Manual source has been registered' );
30 __PACKAGE__->_unregister_source (qw/Manual/);
31 }, 'Loading classes with explicit load_classes worked in taint mode' );
34 __PACKAGE__->load_classes();
35 ok( __PACKAGE__->source('Auto'), 'The Classes::Auto source has been registered' );
36 ok( __PACKAGE__->source('Auto'), 'The Classes::Manual source has been re-registered' );
37 }, 'Loading classes with Module::Find/load_classes worked in taint mode' );
41 package DBICTest::Taint::Namespaces;
46 use base qw/DBIx::Class::Schema/;
49 __PACKAGE__->load_namespaces();
50 ok( __PACKAGE__->source('Test'), 'The Namespaces::Test source has been registered' );
51 }, 'Loading classes with Module::Find/load_namespaces worked in taint mode' );