Add libwx-perl

[pkg-perl] / deb-src / libwx-perl / libwx-perl-0.96 / ext / pperl / splashfast / t / 03_new.t

diff --git a/deb-src/libwx-perl/libwx-perl-0.96/ext/pperl/splashfast/t/03_new.t b/deb-src/libwx-perl/libwx-perl-0.96/ext/pperl/splashfast/t/03_new.t
new file mode 100755 (executable)
index 0000000..8634165
--- /dev/null
+++ b/deb-src/libwx-perl/libwx-perl-0.96/ext/pperl/splashfast/t/03_new.t
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+use lib '../../../t';
+use Test::More ( $^O eq 'MSWin32' && $] == 5.008000 ) ?
+               ( 'skip_all' => 'Bug with Win32 WM_TIMER handling in 5.8.0' ) :
+               ( 'tests' => 2 );
+
+use Wx::Perl::SplashFast;
+
+BEGIN {
+  my $splash = Wx::Perl::SplashFast->new( '../../../wxpl.xpm', 1200 );
+  isa_ok( $splash, 'Wx::SplashScreen' );
+}
+
+use Wx 'wxTheApp';
+
+ok( 1, "compilation OK" );
+
+use Tests_Helper 'app_timeout';
+
+app_timeout( 500 );
+wxTheApp->MainLoop();
+
+# local variables:
+# mode: cperl
+# end: