You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
569 B
38 lines
569 B
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use 5.10.0;
|
|
|
|
use lib 'lib';
|
|
|
|
use Data::Dumper;
|
|
use Test::More tests => 2;
|
|
|
|
use App::WRT;
|
|
use App::WRT::Mock::FileIO;
|
|
use App::WRT::Renderer;
|
|
|
|
chdir 'example';
|
|
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);
|
|
|
|
ok(
|
|
$log_string =~ m/seconds/,
|
|
'log mentions seconds'
|
|
);
|