#!/usr/bin/perl use strict; use warnings; use utf8; use lib 'lib'; use Encode; use Test::More tests => 12; # Does the module load? require_ok('App::WRT'); chdir 'example'; # 'configuration'; ok( my $w = App::WRT::new_from_file('wrt.json'), "Got WRT object." ); # 'individual subroutine tests'; 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' ); my $icon_textfile = $w->icon_markup('icon_test/textfile', 'alt'); # diag($icon_textfile); ok( $icon_textfile eq q{alt}, 'got expected icon for icon_test/textfile' ); my $icon_dir = $w->icon_markup('icon_test/dir', 'alt'); # diag($icon_dir); ok( $icon_dir eq q{alt}, 'got expected icon for icon_test/dir' ); my $icon_subentry = $w->icon_markup('icon_test/dir/subentry', 'alt'); # diag($icon_subentry); ok( $icon_subentry eq q{alt}, 'got expected icon for icon_test/dir/subentry' ); # feed rendering my $feed = decode('UTF-8', $w->display($w->{feed_alias})); # diag($feed); # look for ✨: ok( $feed =~ m/✨/s, 'feed contains some stars' ); # not expanding entries with wrt-noexpand my $with_noexpand = $w->display('noexpand_test'); # diag($with_noexpand); ok( $with_noexpand !~ m/SHOULD NOT DISPLAY/, 'noexpand_test does not contain text of sub-entry do_not_expand_me' ); # displaying default entry when no entries are given: my $with_no_entries = $w->display(); # diag($with_no_entries); ok( $with_no_entries =~ m{\Qwrt::new\E}, 'display the default entry (new) when no entries are given' ); # contents of year index files: my $plaintext_year = $w->display('2012'); ok( $plaintext_year =~ m/\QI'm a year which is just a flatfile.\E/, "2012 as plaintext year comes through." ); my $plaintext_year_index = $w->display('2013'); ok( $plaintext_year_index =~ m/\QI'm an index file for an entire year.\E/, "2013's plaintext year index comes through." ); # displaying years