#!perl -wT
# Win32::GUI test suite.
# $Id: 01_basic.t,v 1.6 2006/05/16 18:57:26 robertemay Exp $
#
# Basic tests:
# - check module loads
# - check module has a $VERSION
use strict;
use warnings;
BEGIN { $| = 1 } # Autoflush
# Perform tests
# Bail out if we havent got Test::More
eval "use Test::More";
if($@) {
# As we haven't got Test::More, can't use diag()
print "#\n# Test::More required to perform any Win32::GUI test\n";
chomp $@;
$@ =~ s/^/# /gm;
print "$@\n";
print "Bail Out! Test::More not available\n";
exit(1);
}
plan( tests => 3 );
# Check that we're on windows or cygwin
# bail out if we're not
if ( not ($^O =~ /MSwin32|cygwin/i)) {
diag("\nWin32::GUI can only run on MSWin32 or cygwin, not '$^O'");
print "Bail out! Incompatible Operating System\n";
}
pass("Correct OS");
# Check that Win32::GUI loads, and bail out of all
# tests if it doesn't
eval "use Win32::GUI()";
if($@) {
print STDOUT "Bail out! Can't load Win32::GUI";
}
pass("Win32::GUI loaded OK");
ok(defined $Win32::GUI::VERSION, "Win32::GUI version check");