#!/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{}, '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{}, '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{}, '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{\Q