git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/dataview/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 if Wx::wxMOTIF, 'Test::More' => skip_all => 'Hangs under Motif';
  11 use Test::More tests => 4;
  12 use Wx::DataView;
  13
  14 my $app = Wx::App->new( sub { 1 } );
  15 my $dvr = Wx::DataViewTextRenderer->new;
  16 my $dvr2 = Wx::DataViewTextRenderer->new;
  17 my $dvc = Wx::DataViewColumn->new( 'a', $dvr, 0 );
  18 my $dvc2 = Wx::DataViewColumn->new( 'a', $dvr2, 0 );
  19
  20 undef $dvr2;
  21 undef $dvc2;
  22
  23 my $t = threads->create
  24   ( sub {
  25         ok( 1, 'In thread' );
  26     } );
  27 ok( 1, 'Before join' );
  28 $t->join;
  29 ok( 1, 'After join' );
  30
  31 END { ok( 1, 'At END' ) };