File: 13_nbksizer.t

package info (click to toggle)
libwx-perl 0.9702-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 3,240 kB
  • ctags: 1,812
  • sloc: cpp: 8,988; perl: 6,366; makefile: 38; ansic: 1
file content (20 lines) | stat: -rwxr-xr-x 437 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl -w

use strict;
use Wx;
use lib './t';
use Tests_Helper qw(in_frame);
use Test::More 'tests' => 3;

in_frame(
    sub {
        my $self = shift;
        my $nbk = Wx::Notebook->new( $self, -1 );
        my $szr = Wx::NotebookSizer->new( $nbk );
        isa_ok( $szr, 'Wx::NotebookSizer' );

        $self->SetSizer( $szr );
        ok( 1, 'Got there' );
        $self->Layout;
        ok( 1, 'Got there too' );
    } );