xref: /openbsd-src/gnu/usr.bin/perl/lib/Tie/Handle/stdhandle_from_handle.t (revision 256a93a44f36679bee503f12e49566c2183f6181)
1#!./perl
2
3BEGIN {
4    chdir 't' if -d 't';
5    @INC = '../lib';
6}
7
8use Test::More;
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
20done_testing();
21