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