wrt/t/wrt.t

#!/usr/bin/perl

use strict;
use warnings;

use lib 'lib';

use Test::More tests => 4;
use App::WRT;

chdir 'example';

# 'configuration';

  ok(
    my $w = App::WRT::new_from_file('wrt.json'),
    "Got WRT object."
  );

# 'individual subroutine tests';

  ok(
    $w->recent_month() =~ m/\d{4}\/\d{1,2}/,
    'recent_month returns a month'
  );

  my $datestamp = $w->datestamp('2014/1/1/test_entry');
  # diag($datestamp);

  ok(
    $datestamp =~ m{test_entry},
    'datestamp for a fragment references that fragment'
  );

# icon rendering

  my $with_icon = $w->display('icon_test');
  # diag($with_icon);

  ok(
    $with_icon =~ m/img src/,
    'icon_test has an image in it'
  );

# rendering static html files

# ok(
#   $w->render(sub { diag($_[0]); }),
#   'render stuff'
# );