- #!/usr/bin/perl
-
- use strict;
- use warnings;
-
- use lib 'lib';
-
- use Test::More tests => 6;
- 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'
- );
-
- # listing out of all source files
-
- my (@all_source_files) = $w->get_all_source_files();
- ok(
- scalar @all_source_files == 16,
- 'got 16 source files from example archive, as expected'
- );
-
- # listing entries like 2014/1/1 for an individual day:
-
- my (@all_day_entries) = $w->get_all_day_entries();
- ok(
- scalar @all_day_entries == 2,
- 'got 2 day entries from example archive, as expected'
- );
-
- # rendering static html files
-
- # ok(
- # $w->render(sub { diag($_[0]); }),
- # 'render stuff'
- # );
|