- #!/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);
|