#!/usr/bin/env perl use strict; use warnings; use utf8; use 5.10.0; use lib 'lib'; use Encode; use Test::More tests => 3; use App::WRT::Mock::FileIO; chdir 'example/blog'; require_ok('../../bin/wrt-render-all'); my $output_string; my $output = sub { $output_string .= $_[0] . "\n"; }; my $mock_io = App::WRT::Mock::FileIO->new(); my @local_argv = (); main($output, $mock_io, @local_argv); ok( $output_string =~ 'rendered 27 entries', 'rendered expected number of entries' ) or diag($output_string); ok( $output_string =~ 'seconds', 'log mentions seconds' ) or diag($output_string);