git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/t/13_nbksizer.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Wx;
   5 use lib './t';
   6 use Tests_Helper qw(in_frame);
   7 use Test::More 'tests' => 3;
   8
   9 in_frame(
  10     sub {
  11         my $self = shift;
  12         my $nbk = Wx::Notebook->new( $self, -1 );
  13         my $szr = Wx::NotebookSizer->new( $nbk );
  14         isa_ok( $szr, 'Wx::NotebookSizer' );
  15
  16         $self->SetSizer( $szr );
  17         ok( 1, 'Got there' );
  18         $self->Layout;
  19         ok( 1, 'Got there too' );
  20     } );