PerlTQt/t/f_import.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

BEGIN { push @INC, "./t" ; print "1..1\n" }

package main;

use TQt;
use My::SubCodec;
use Foo::SubCodec;

$tc1 = My::SubCodec();
$tc2 = Foo::SubCodec();

$tc1->bar();
$tc2->foo();

$tc2->deleteAllCodecs;

#  all imports OK

print "ok 1\n";