/[Frey]/trunk/t/30-Frey-Shell-Log.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/30-Frey-Shell-Log.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 900 by dpavlin, Wed Dec 24 22:02:45 2008 UTC revision 901 by dpavlin, Thu Dec 25 12:43:13 2008 UTC
# Line 11  BEGIN { Line 11  BEGIN {
11          use_ok('Frey::Shell::Log');          use_ok('Frey::Shell::Log');
12  }  }
13    
14  ok( my $o = Frey::Shell::Log->new( log_command => 'tail -5 /var/log/daemon.log', request_url => '/', debug => $debug ), 'new' );  my $log = 'tail -5 /var/log/daemon.log';
15    if ( $ENV{PROFILE} ) {
16            $log = 'cat /var/log/{syslog,messages} /var/log/{kern,auth,daemon,mail,user}.log';
17    }
18    
19    ok( my $o = Frey::Shell::Log->new( log_command => $log, request_url => '/', debug => $debug ), "new $log" );
20  ok( my $sponge = $o->as_sponge, 'as_sponge' );  ok( my $sponge = $o->as_sponge, 'as_sponge' );
21  diag $o->dump( $sponge ) if $debug;  diag $o->dump( $sponge ) if $debug;
22  ok( $sponge->{rows}, 'rows' );  ok( $sponge->{rows}, 'rows' );
Legend:
Removed from v.900  
changed lines
  Added in v.901
  ViewVC Help
Powered by ViewVC 1.1.26