--- trunk/t/30-Frey-Shell-Log.t 2008/12/24 21:42:20 894 +++ trunk/t/30-Frey-Shell-Log.t 2008/12/24 22:02:45 895 @@ -4,16 +4,17 @@ my $debug = @ARGV ? 1 : 0; -use Test::More tests => 5; +use Test::More tests => 6; use lib 'lib'; BEGIN { use_ok('Frey::Shell::Log'); } -ok( my $o = Frey::Shell::Log->new( request_url => '/', debug => $debug ), 'new' ); +ok( my $o = Frey::Shell::Log->new( log_command => 'tail -5 /var/log/daemon.log', request_url => '/', debug => $debug ), 'new' ); ok( my $sponge = $o->as_sponge, 'as_sponge' ); diag $o->dump( $sponge ) if $debug; ok( $sponge->{rows}, 'rows' ); +is( scalar @{ $sponge->{rows} }, 5, 'rows correct' ); ok( $sponge->{NAME}, 'NAME' );