#!./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';