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.
26 lines
380 B
26 lines
380 B
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use 5.10.0;
|
|
|
|
use lib 'lib';
|
|
|
|
use Encode;
|
|
use Test::More tests => 2;
|
|
|
|
chdir 'example/blog';
|
|
require_ok('../../bin/wrt-feed');
|
|
|
|
my $output_string;
|
|
my $output = sub {
|
|
$output_string .= $_[0] . "\n";
|
|
};
|
|
|
|
my @local_argv = qw();
|
|
main($output, @local_argv);
|
|
ok(
|
|
$output_string =~ m/<title>wrt/,
|
|
"Probably have a feed..."
|
|
);
|