Changeset 842
- Timestamp:
- 11/09/08 02:00:32 (3 years ago)
- File:
-
- 1 edited
-
trunk/t/82-plugin-manager.t (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/t/82-plugin-manager.t
r787 r842 8 8 use Data::Dumper qw(Dumper); 9 9 10 use Test::More tests => 1 7;10 use Test::More tests => 15; 11 11 12 12 use t::lib::Padre; … … 26 26 27 27 # check if we have the plugins that come with Padre 28 is (keys %{$plugin_m1->plugins}, 2); 29 is $plugin_m1->plugins->{Parrot}, 'Padre::Plugin::Parrot'; 28 is (keys %{$plugin_m1->plugins}, 1); 30 29 is $plugin_m1->plugins->{'Development::Tools'}, 'Padre::Plugin::Development::Tools'; 31 30 32 31 # try load again 33 my $st = $plugin_m1->_load_plugin(' Parrot');32 my $st = $plugin_m1->_load_plugin('Development::Tools'); 34 33 is $st, undef; 35 34 … … 42 41 43 42 $plugin_m2->_load_plugins_from_inc(); 44 is(keys %{$plugin_m2->plugins}, 4, 'correct number of test plugins')43 is(keys %{$plugin_m2->plugins}, 3, 'correct number of test plugins') 45 44 or diag(Dumper(\$plugin_m2->plugins)); 46 45 47 is $plugin_m2->plugins->{Parrot}, 'Padre::Plugin::Parrot';48 46 is $plugin_m2->plugins->{'Development::Tools'}, 'Padre::Plugin::Development::Tools'; 49 47 is $plugin_m2->plugins->{TestPlugin}, 'Padre::Plugin::TestPlugin';
Note: See TracChangeset
for help on using the changeset viewer.
