File: 03_multiple_file.t

package info (click to toggle)
libtest-synopsis-expectation-perl 0.12-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 216 kB
  • sloc: perl: 303; makefile: 2; sh: 1
file content (24 lines) | stat: -rw-r--r-- 364 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!perl

use strict;
use warnings;
use FindBin;
use File::Spec::Functions qw/catfile/;
use Test::Synopsis::Expectation;

my $target_file = catfile($FindBin::Bin, 'resources', 'less.pod');
synopsis_ok([*DATA, $target_file]);

done_testing;
__DATA__
=head1 NAME

less - Less! Less!!

=head1 SYNOPSIS

    1; # => 1

=head1 AUTHOR

moznion E<lt>moznion@gmail.comE<gt>