3 # Test that various IO functions don't try to treat PVBMs as
4 # filehandles. Most of these will segfault perl if they fail.
17 { my $dummy = index 'foo', PVBM }
24 sub TIEHANDLE { $which = 'TIEHANDLE' }
25 sub TIESCALAR { $which = 'TIESCALAR' }
30 is ($which, 'TIESCALAR', 'PVBM gets TIESCALAR');
35 ok (scalar eval { untie $pvbm; 1 }, 'untie(PVBM) doesn\'t segfault');
36 ok (scalar eval { tied $pvbm; 1 }, 'tied(PVBM) doesn\'t segfault');
42 ok (scalar eval { pipe $pvbm, PIPE; }, 'pipe(PVBM, ) succeeds');
45 ok (scalar eval { pipe PIPE, $pvbm; }, 'pipe(, PVBM) succeeds');
48 ok (!eval { pipe \$pvbm, PIPE; }, 'pipe(PVBM ref, ) fails');
49 ok (!eval { pipe PIPE, \$pvbm; }, 'pipe(, PVBM ref) fails');
51 ok (!eval { truncate $pvbm, 0 }, 'truncate(PVBM) fails');
52 ok (!eval { truncate \$pvbm, 0}, 'truncate(PVBM ref) fails');
54 ok (!eval { stat $pvbm }, 'stat(PVBM) fails');
55 ok (!eval { stat \$pvbm }, 'stat(PVBM ref) fails');
57 ok (!eval { lstat $pvbm }, 'lstat(PVBM) fails');
58 ok (!eval { lstat \$pvbm }, 'lstat(PVBM ref) fails');
60 ok (!eval { chdir $pvbm }, 'chdir(PVBM) fails');
61 ok (!eval { chdir \$pvbm }, 'chdir(pvbm ref) fails');
63 ok (!eval { close $pvbm }, 'close(PVBM) fails');
64 ok (!eval { close $pvbm }, 'close(PVBM ref) fails');
66 ok (!eval { chmod 0600, $pvbm }, 'chmod(PVBM) fails');
67 ok (!eval { chmod 0600, \$pvbm }, 'chmod(PVBM ref) fails');
70 skip('chown() not implemented on Win32', 2) if $^O eq 'MSWin32';
71 ok (!eval { chown 0, 0, $pvbm }, 'chown(PVBM) fails');
72 ok (!eval { chown 0, 0, \$pvbm }, 'chown(PVBM ref) fails');
75 ok (!eval { utime 0, 0, $pvbm }, 'utime(PVBM) fails');
76 ok (!eval { utime 0, 0, \$pvbm }, 'utime(PVBM ref) fails');
78 ok (!eval { <$pvbm> }, '<PVBM> fails');
79 ok (!eval { readline $pvbm }, 'readline(PVBM) fails');
80 ok (!eval { readline \$pvbm }, 'readline(PVBM ref) fails');
82 ok (!eval { open $pvbm, '<', 'none.such' }, 'open(PVBM) fails');
83 ok (!eval { open \$pvbm, '<', 'none.such', }, 'open(PVBM ref) fails');