123456789101112 #!/usr/bin/perl -wuse strict;use warnings;use Test::More tests => 3;use Gtk2 '-init';use_ok 'Gapp::MenuBar';my $w = Gapp::MenuBar->new;isa_ok $w, 'Gapp::MenuBar';isa_ok $w->gobject, 'Gtk2::MenuBar';
#!/usr/bin/perl -w
use
strict;
warnings;
Test::More
tests
=> 3;
Gtk2
'-init'
;
use_ok
'Gapp::MenuBar'
my
$w
= Gapp::MenuBar->new;
isa_ok
,
->gobject,
'Gtk2::MenuBar'