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