← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libwx-perl/trusty

« back to all changes in this revision

Viewing changes to ext/aui/t/03_threads.t

  • Committer: Bazaar Package Importer
  • Author(s): Roberto C. Sanchez
  • Date: 2008-12-13 20:38:42 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20081213203842-8tqkg0934wxnqu24
Tags: 0.89-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
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' ) };