BEGIN 
{ 
 $^W = 1; $| = 1; 
 if ($^O eq 'MSWin32')
  {
   print "1..0\n";
   exit;
  }
}

use strict;
use Test;
use Tk;

BEGIN { plan tests => 2 };

my $mw = Tk::MainWindow->new;

##
## if there's only one (fixed) or no font family
## then something is wrong. Propably the envirionment
## and not perl/Tks fault.
##
{
    eval { require Tk::Mwm; };
    ok($@, "", "Can't load Tk::Mwm module");

    my $isrunning;
    eval { $isrunning = $mw->mwm('ismwmrunning'); };
    ok($@, "", "Can't determine if mwm is running")
}

1;
__END__
BEGIN { $^W = 1; $| = 1; }

use strict;
use Test;
use Tk;

BEGIN { plan tests => 2 };

my $mw = Tk::MainWindow->new;

##
## if there's only one (fixed) or no font family
## then something is wrong. Propably the envirionment
## and not perl/Tks fault.
##
{
    eval { require Tk::Mwm; };
    ok($@, "", "Can't load Tk::Mwm module");

    my $isrunning;
    eval { $isrunning = $mw->mwm('ismwmrunning'); };
    ok($@, "", "Can't determine if mwm is running")
}

1;
__END__
