view release on metacpan or  search on metacpan

t/15_threads.t  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use threads;
 
use Wx qw(:everything);
use if !Wx::wxTHREADS(), 'Test::More' => skip_all => 'No thread support';
use Test::More tests => 8;
use Wx::Event qw(EVT_BUTTON);
 
Wx::InitAllImageHandlers;
 
my @tocheck;
sub check_init(&) {
    my( $code ) = @_;
 
    push @tocheck, [ $code->(), $code->() ];
}
 
sub check_undef {
    $_->[1] = undef foreach @tocheck;
}
 
my $testtreelist = defined(&Wx::TreeListCtrl::new);

t/Tests_Helper.pm  view on Meta::CPAN

204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
  while( @_ ) {
    my( $name, $code ) = ( shift, shift );
    no strict 'refs';
    die "Unknown method name '$name'" unless defined &{$name};
    my $old = \&{$name};
    undef *{$name};
    *{$name} = sub { &$code; goto &$old };
  }
}
 
sub test_override(&$) {
  my( $code, $method ) = @_;
  my $called = 0;
 
  local $Test::Builder::Level = $Test::Builder::Level + 1;
  hijack( $method => sub { $called = 1 } );
  $code->();
  ok( $called, $method );
}
 
package Tests_Helper_App;