git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/grid/t/05_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::Grid;
  12
  13 my $app = Wx::App->new( sub { 1 } );
  14 my $cc = Wx::GridCellCoords->new( 1, 1 );
  15 my $cc2 = Wx::GridCellCoords->new( 1, 1 );
  16 my $ce = Wx::GridCellNumberEditor->new;
  17 my $ce2 = Wx::GridCellNumberEditor->new;
  18 my $cr = Wx::GridCellStringRenderer->new;
  19 my $cr2 = Wx::GridCellStringRenderer->new;
  20 my $attr = Wx::GridCellAttr->new;
  21 my $attr2 = Wx::GridCellAttr->new;
  22 my $gud;
  23 my $gud2;
  24 if( Wx::wxVERSION >= 2.009 ) {
  25     $gud = Wx::GridUpdateLocker->new;
  26     $gud2 = Wx::GridUpdateLocker->new;
  27 }
  28
  29 undef $cc2;
  30 undef $ce2;
  31 undef $cr2;
  32 undef $attr2;
  33 undef $gud2;
  34
  35 my $t = threads->create
  36   ( sub {
  37         ok( 1, 'In thread' );
  38     } );
  39 ok( 1, 'Before join' );
  40 $t->join;
  41 ok( 1, 'After join' );
  42
  43 END { ok( 1, 'At END' ) };