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