Almost-minimal filesystem based blog.
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.
|
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib 'lib';
|
|
|
|
use Data::Dumper;
|
|
use Test::More tests => 2;
|
|
use App::WRT;
|
|
|
|
# Check that we can handle a site with an "index" file in the archive root.
|
|
|
|
chdir 'example/flat_site';
|
|
|
|
ok(
|
|
my $w = App::WRT::new_from_file('wrt.json'),
|
|
"got WRT object for a site with root index"
|
|
);
|
|
|
|
ok(
|
|
$w->display() =~ m/front page/,
|
|
'front page contains index contents'
|
|
);
|