--- trunk/t/30-Frey-Shell-Log.t 2008/12/25 12:19:25 900 +++ trunk/t/30-Frey-Shell-Log.t 2008/12/25 12:43:13 901 @@ -11,7 +11,12 @@ use_ok('Frey::Shell::Log'); } -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'; +if ( $ENV{PROFILE} ) { + $log = 'cat /var/log/{syslog,messages} /var/log/{kern,auth,daemon,mail,user}.log'; +} + +ok( my $o = Frey::Shell::Log->new( log_command => $log, request_url => '/', debug => $debug ), "new $log" ); ok( my $sponge = $o->as_sponge, 'as_sponge' ); diag $o->dump( $sponge ) if $debug; ok( $sponge->{rows}, 'rows' );