xref: /openbsd-src/gnu/usr.bin/perl/lib/Tie/Handle/stdhandle_from_handle.t (revision c1a45aed656e7d5627c30c92421893a76f370ccb) 
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