#!/usr/bin/perl -w
                                                                                                 
use Test::Simple tests => 2;
                                                                                                 
use Tk;
                                                                                                 
my $mw = MainWindow->new;         # create an object
ok( defined $mw );                # check that we got something
ok( $mw->isa('Tk') );             # and it's the right class
                                                                                                 
$mw->Label(-text => 'Hello, world!')->pack;
is($mw->text,    'Hello World!',    text() );
                                                                                                 
$mw->Button(
           -text    => 'Quit',
           -command => sub { exit },
            )->pack;
is($mw->text,    'Quit',            text() );
is($mw->command, 'sub { exit }',    text() );