blob: 2d25026e5cdf3d54d1e270eb8ded45e250a2c06c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
--- a/t/File-DirList.t 2026-02-27 23:14:40.982298950 +0100
+++ b/t/File-DirList.t 2026-02-27 23:14:47.095601706 +0100
@@ -13,8 +13,8 @@
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
-my $homeDir = ( "\L$^O" =~ m/win32/ ) ? '.' : glob('~');
-print STDERR ("\nListing your home dir '$homeDir' for test purposes\n");
+my $homeDir = '/usr/share/licenses';
+print STDERR ("\nListing your licenses dir '$homeDir' for test purposes\n");
foreach my $item (@{File::DirList::list($homeDir, 'din', "\L$^O" =~ m/win32/ ? 1 : 0, 1, 1)})
{ print STDERR (sprintf("%s'%s'%s\n", ($item->[14] ? 'dir ' : 'file '), $item->[13], (!$item->[15] ? '' : ($item->[15] < 0 ? ' bad' : '').' link to \''.$item->[16].'\''))); };
ok("listing completed");
|