Changeset 1533

Show
Ignore:
Timestamp:
08/20/06 21:38:06
Author:
tomi-ru
Message:

Growl during a testing. remove unnecessary Data::Dumper.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/t/plugins/Notify-Growl/growl.t

    r1523 r1533  
    33 
    44test_plugin_deps; 
    5 test_requires 'Data::Dumper'; 
    65 
    76{ 
    87    no warnings qw/redefine prototype once/; 
     8     
     9    my $growl_post = \&Mac::Growl::PostNotification; 
    910    *Mac::Growl::PostNotification = sub { 
    10         warn Data::Dumper::Dumper join ':', @_;    
     11        $growl_post->(@_); 
     12        warn "Growl: " . join ':', @_, "\n"; 
    1113    };  
    1214} 
     
    2931  - module: Notify::Growl 
    3032--- expected 
    31 my @count = $warning =~ /^\$VAR1 = 'plagger:/gm; 
     33my @count = $warning =~ /^Growl: plagger:/gm; 
    3234is scalar @count, 4; 
    3335 
    34 like $warning, qr{\$VAR1 = 'plagger:Liftoff News:Star City:How do Americans }m; 
    35 like $warning, qr{\$VAR1 = 'plagger:Liftoff News:The Engine That Does More:B}m; 
     36like $warning, qr{^Growl: plagger:Liftoff News:Star City:How do Americans }m; 
     37like $warning, qr{^Growl: plagger:Liftoff News:The Engine That Does More:B}m;