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 Test::Simple tests => 1; # last test to print
|
|
use App::WRT;
|
|
|
|
chdir 'example';
|
|
my $w = App::WRT::new_from_file('wrt.json');
|
|
|
|
# 'configuration';
|
|
my $perlcode = $w->eval_perl("IS <perl>return 'TRUE';</perl>");
|
|
ok ($perlcode eq 'IS TRUE', 'eval_perl in line_parse');
|
|
|
|
1;
|