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 Test::More tests => 4;
use constant NO_SUCH_FILE => "this_file_had_better_not_exist";
use FindBin qw($Bin);
use File::Spec;
use autodie;
use File::Temp qw(tempfile);
my ($fh, $filename) = tempfile;
close $fh if $^O eq 'VMS'; # can't utime an open file
eval { utime(undef, undef, NO_SUCH_FILE); };
isa_ok($@, 'autodie::exception', 'exception thrown for utime');
my($atime, $mtime) = (stat $filename)[8, 9];
eval { utime(undef, undef, $filename); };
ok(! $@, "We can utime a file just fine.") or diag $@;
eval { utime(undef, undef, NO_SUCH_FILE, $filename); };
isa_ok($@, 'autodie::exception', 'utime exception on single failure.');
is($@->return, 1, "utime fails correctly on a 'true' failure.");
|
