vcs.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/pperl/splashfast/t/03_new.t

   1 #!/usr/bin/perl -w
   2
   3 use lib '../../../t';
   4 use Test::More ( $^O eq 'MSWin32' && $] == 5.008000 ) ?
   5                ( 'skip_all' => 'Bug with Win32 WM_TIMER handling in 5.8.0' ) :
   6                ( 'tests' => 2 );
   7
   8 use Wx::Perl::SplashFast;
   9
  10 BEGIN {
  11   my $splash = Wx::Perl::SplashFast->new( '../../../wxpl.xpm', 1200 );
  12   isa_ok( $splash, 'Wx::SplashScreen' );
  13 }
  14
  15 use Wx 'wxTheApp';
  16
  17 ok( 1, "compilation OK" );
  18
  19 use Tests_Helper 'app_timeout';
  20
  21 app_timeout( 500 );
  22 wxTheApp->MainLoop();
  23
  24 # local variables:
  25 # mode: cperl
  26 # end: