#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 21;
use Gtk2 '-init';
{
use_ok 'Gapp::MenuItem';
my $w = Gapp::MenuItem->new;
isa_ok $w, 'Gapp::MenuItem';
isa_ok $w->gobject, 'Gtk2::MenuItem';
}
{
use_ok 'Gapp::ImageMenuItem';
my $w = Gapp::ImageMenuItem->new;
isa_ok $w, 'Gapp::ImageMenuItem';
isa_ok $w->gobject, 'Gtk2::ImageMenuItem';
}
{
use_ok 'Gapp::SeparatorMenuItem';
my $w = Gapp::SeparatorMenuItem->new;
isa_ok $w, 'Gapp::SeparatorMenuItem';
isa_ok $w->gobject, 'Gtk2::SeparatorMenuItem';
}
{
use_ok 'Gapp::CheckMenuItem';
my $w = Gapp::CheckMenuItem->new;
isa_ok $w, 'Gapp::CheckMenuItem';
isa_ok $w->gobject, 'Gtk2::CheckMenuItem';
}
{
use_ok 'Gapp::RadioMenuItem';
my $w = Gapp::RadioMenuItem->new;
isa_ok $w, 'Gapp::RadioMenuItem';
isa_ok $w->gobject, 'Gtk2::RadioMenuItem';
}
{
use_ok 'Gapp::SeparatorMenuItem';
my $w = Gapp::SeparatorMenuItem->new;
isa_ok $w, 'Gapp::SeparatorMenuItem';
isa_ok $w->gobject, 'Gtk2::SeparatorMenuItem';
}
{
use_ok 'Gapp::TearoffMenuItem';
my $w = Gapp::TearoffMenuItem->new;
isa_ok $w, 'Gapp::TearoffMenuItem';
isa_ok $w->gobject, 'Gtk2::TearoffMenuItem';
}