#!/usr/bin/env perl use strict; use warnings; use 5.10.0; use lib 'lib'; use Data::Dumper; use Test::More tests => 1; use App::WRT; use App::WRT::Mock::FileIO; use App::WRT::Renderer; chdir 'example/blog'; my $config_file = 'wrt.json'; my $wrt = App::WRT::new_from_file($config_file); my $log_string = ''; my $renderer = App::WRT::Renderer->new( $wrt, sub { $log_string .= join '', @_; }, App::WRT::Mock::FileIO->new(), ); ok( $renderer->render(), 'successful mock render' ); # diag($log_string);