File: chmod-filetemp.t

package info (click to toggle)
libtest-mockfile-perl 0.037-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 436 kB
  • sloc: perl: 4,110; makefile: 7
file content (23 lines) | stat: -rw-r--r-- 388 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!/usr/bin/perl -w

use strict;
use warnings;

use Test2::Bundle::Extended;
use Test2::Tools::Explain;
use Test2::Plugin::NoWarnings;

BEGIN {
    skip_all("Skip for now < 5.28") unless $^V ge 5.28.0;
}

use Test::MockFile plugin => "FileTemp";

use File::Temp qw< tempfile >;

my $dir = File::Temp::tempdir();
open my $fh, ">", "$dir/thefile";
ok chmod 0777, $fh;
done_testing();

exit;