Initial import of libqt-perl (not yet TQt compatible)

1 files changed, 19 insertions, 0 deletions

diff --git a/PerlQt/t/f_import.t b/PerlQt/t/f_import.t
new file mode 100644
index 0000000..c6467a3
--- /dev/null
+++ b/PerlQt/t/f_import.t
@@ -0,0 +1,19 @@
+BEGIN { push @INC, "./t" ; print "1..1\n" }
+
+package main;
+
+use Qt;
+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";