blob: 3d11990f131224e9e95ad785bb540a0ffe3c8b22 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!./perl -w
# This script checks that IO::File exports the SEEK* constants if
# IO::Seekable is loaded first, which was temporarily broken during 5.14
# code freeze. See [perl #88486].
BEGIN{
require($ENV{PERL_CORE} ? "../../t/test.pl" : "./t/test.pl");
plan(tests => 3);
}
use IO::Seekable (); # import nothing
use IO::File; # import defaults
# No strict!
cmp_ok SEEK_END, 'ne', "SEEK_END", 'SEEK_END';
cmp_ok SEEK_SET, 'ne', "SEEK_SET", 'SEEK_SET';
cmp_ok SEEK_CUR, 'ne', "SEEK_CUR", 'SEEK_CUR';
|
