- #!/usr/bin/perl
-
- use strict;
- use warnings;
- use utf8;
- use 5.10.0;
-
- use lib 'lib';
-
- use Encode;
- use Test::More tests => 6;
-
- chdir 'example';
- require_ok('../bin/wrt-ls');
-
- my $output_string;
- my $output = sub {
- $output_string .= $_[0] . "\n";
- };
-
- my @local_argv = qw(--years);
- main($output, @local_argv);
- ok(
- $output_string eq "1952\n2012\n2013\n2014\n",
- "Correctly listed years."
- );
-
- @local_argv = qw(--months);
- $output_string = '';
- main($output, @local_argv);
- ok(
- $output_string eq "1952/2\n2013/1\n2013/2\n2014/1\n",
- "Correctly listed months."
- );
-
- @local_argv = qw(--days);
- $output_string = '';
- main($output, @local_argv);
- ok(
- $output_string eq "1952/2/13\n2014/1/1\n2014/1/2\n",
- "Correctly listed days."
- );
-
- @local_argv = qw(--props);
- $output_string = '';
- main($output, @local_argv);
- ok(
- $output_string eq "tag-something\nwrt-noexpand\n",
- "Correctly listed properties."
- );
- diag($output_string);
-
- @local_argv = qw(--days --months);
- $output_string = '';
- eval {
- main($output, @local_argv);
- };
- ok(
- $@,
- "Croaked on trying to combine multiple entry-type options."
- );
|