git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/aui/t/03_threads.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Config;
   5 use if !$Config{useithreads} => 'Test::More' => skip_all => 'no threads';
   6 use threads;
   7
   8 use Wx qw(:everything);
   9 use if !Wx::wxTHREADS, 'Test::More' => skip_all => 'No thread support';
  10 use Test::More tests => 4;
  11 use Wx::AUI;
  12
  13 my $app = Wx::App->new( sub { 1 } );
  14 my $auimanager = Wx::AuiManager->new;
  15 my $auimanager2 = Wx::AuiManager->new;
  16 my $auipaneinfo = Wx::AuiPaneInfo->new;
  17 my $auipaneinfo2 = Wx::AuiPaneInfo->new;
  18
  19 undef $auimanager2;
  20 undef $auipaneinfo2;
  21
  22 my $t = threads->create
  23   ( sub {
  24         ok( 1, 'In thread' );
  25     } );
  26 ok( 1, 'Before join' );
  27 $t->join;
  28 ok( 1, 'After join' );
  29
  30 END { ok( 1, 'At END' ) };