1#!./perl
2
3BEGIN {
4    chdir 't' if -d 't';
5    @INC = '../lib';
6}
7
8use Test::More tests => 1;
9
10use Tie::Handle;
11
12{
13    package Foo;
14    @ISA = qw(Tie::StdHandle);
15}
16
17# For backwards compatibility with 5.8.x
18ok( Foo->can("TIEHANDLE"), "loading Tie::Handle loads TieStdHandle" );
19