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.

26 lines
380 B

  1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4. use utf8;
  5. use 5.10.0;
  6. use lib 'lib';
  7. use Encode;
  8. use Test::More tests => 2;
  9. chdir 'example/blog';
  10. require_ok('../../bin/wrt-feed');
  11. my $output_string;
  12. my $output = sub {
  13. $output_string .= $_[0] . "\n";
  14. };
  15. my @local_argv = qw();
  16. main($output, @local_argv);
  17. ok(
  18. $output_string =~ m/<title>wrt/,
  19. "Probably have a feed..."
  20. );