File: dzil.t

package info (click to toggle)
libfile-share-perl 0.27-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 204 kB
  • sloc: perl: 85; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 417 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
use strict;
my $xt; use lib ($xt = -e 'xt' ? 'xt' : 'test/devel');

use Test::More tests => 2;

use File::Share ':all';
use Cwd qw[abs_path cwd];

my $share_dir = abs_path "$xt/Bar-Baz/share";
my $share_file = abs_path "$xt/Bar-Baz/share/o/hai.txt";

use lib "$xt/Bar-Baz/lib";
use Bar::Baz;

is dist_dir('Bar-Baz'), $share_dir, 'Dir is correct';
is dist_file('Bar-Baz', 'o/hai.txt'), $share_file, 'File is correct';