1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#! ./perl
######################### We start with some black magic to print on failure.
BEGIN { $| = 1; print "1..8\n"; }
END {print "not ok 1\n" unless $loaded;}
use File::Sync qw(fsync);
use FileHandle;
use POSIX qw(:errno_h);
$loaded = 1;
print "ok 1\n";
######################### End of black magic.
# Check errors for wrong number of arguments.
eval "fsync(\*STDOUT, 1)";
unless ($@ and $@ =~ m/^Too many arguments/)
{ print STDERR $@; print 'not '; }
print "ok 2\n";
eval "File::Sync::fsync_fd()";
unless ($@ and $@ =~ m/^Not enough arguments/)
{ print STDERR $@; print 'not '; }
print "ok 3\n";
eval { &fsync(); };
unless ($@ and $@ =~ m/^usage:/i)
{ print STDERR $@; print 'not '; }
print "ok 4\n";
eval { &File::Sync::fsync_fd(0, 0); };
unless ($@ and $@ =~ m/^usage:/i)
{ print STDERR $@; print 'not '; }
print "ok 5\n";
# Open a file for testing, unlink it in case we crash.
$fh = new FileHandle "> /tmp/test.pl.$$"
or die "couldn't create temp. file - please try again";
unlink "/tmp/test.pl.$$";
# Check number of arguments on method invocation.
eval { $fh->fsync(1); };
unless ($@ and $@ =~ m/^usage/)
{ print STDERR $@; print 'not '; }
print "ok 6\n";
# Close it so we have a known closed file descriptor.
$fd = fileno($fh);
close $fh;
# Try fsync_fd on closed file, make sure error is EBADF.
$! = 0;
File::Sync::fsync_fd($fd) && print 'not '; print "ok 7\n";
($! == EBADF) || print 'not '; print "ok 8\n";
# Try fsync on a tty, make sure it fails.
# >>> Oops! Turns out this is a test for Linux.
#open TTY, '> /dev/tty' || die;
#fsync(\*TTY) && print 'not '; print "ok 9\n";
|
