- #!/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..."
- );
|