view release on metacpan or  search on metacpan

t/01_Create.t  view on Meta::CPAN

my $jcb;

## Check to ensure that an instance can be created
eval { $jcb = $mw->JComboBox->pack; };
is( ref($jcb), "Tk::JComboBox",    "Created new Object");

## Check Inheritance Structure
isa_ok($jcb, 'Tk::JComboBox', "Test object identity");
isa_ok($jcb, 'Tk::CWidget',   "Test inheritance from CWidget");
isa_ok($jcb, 'Tk::Frame',     "Test inheritance from Tk::Frame");
isa_ok($jcb, 'Tk::Derived',   "Test inheritance from Tk::Derived");
isa_ok($jcb, 'Tk::Widget',    "Test inheritance from Tk::Widget");


############################################################
## Mode Checks
############################################################

## Check the default mode
is( $jcb->cget(-mode), "readonly", "Check Default Mode" );
$jcb->destroy;