Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26402/t
Added Files:
01_load.t 02_new.t 98_pod.t 99_pod_coverage.t
Log Message:
Merge Scintilla into core distribution
--- NEW FILE: 99_pod_coverage.t ---
#!perl -wT
# Win32::GUI::Scintilla test suite.
# $Id: 99_pod_coverage.t,v 1.1 2006/06/11 16:51:50 robertemay Exp $
# Check the POD covers all method calls
use strict;
use warnings;
use Test::More;
eval "use Test::Pod::Coverage 1.04";
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
plan skip_all => "Pod Coverage tests for Win32::GUI::Scintilla done by core" if $ENV{W32G_CORE};
all_pod_coverage_ok( { also_private => [ qr/^SendMessage..$/, ] } );
--- NEW FILE: 02_new.t ---
#!perl -wT
# Win32::GUI::Scintilla test suite
# $Id: 02_new.t,v 1.1 2006/06/11 16:51:50 robertemay Exp $
#
# - check we can create a new Scintilla object
use strict;
use warnings;
BEGIN { $| = 1 } # Autoflush
use Test::More tests => 2;
use Win32::GUI();
use Win32::GUI::Scintilla();
can_ok('Win32::GUI::Scintilla', 'new');
my $W = Win32::GUI::Window->new();
my $S = $W->AddScintilla();
isa_ok($S, 'Win32::GUI::Scintilla', 'Correct object type created');
--- NEW FILE: 98_pod.t ---
#!perl -wT
# Win32::GUI::Scintilla test suite.
# $Id: 98_pod.t,v 1.1 2006/06/11 16:51:50 robertemay Exp $
# Check that our pod documentation has valid syntax
use strict;
use warnings;
BEGIN { $| = 1 } # Autoflush
use Test::More;
eval "use Test::Pod 1.14";
plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
plan skip_all => "Pod tests for Win32::GUI::Scintilla done by core" if $ENV{W32G_CORE};
all_pod_files_ok();
--- NEW FILE: 01_load.t ---
#!perl -wT
# Win32::GUI::Scintilla test suite
# $Id: 01_load.t,v 1.1 2006/06/11 16:51:50 robertemay Exp $
#
# - check pre-requsites
# - check module loads
# - check module has a version
use strict;
use warnings;
BEGIN { $| = 1 } # Autoflush
# Pre-requisites: 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::Scintilla test\n";
chomp $@;
$@ =~ s/^/# /gm;
print "$@\n";
print "Bail Out! Test::More not available\n";
exit(1);
}
plan( tests => 3 );
# Pre-requisites: Check that we're on windows or cygwin
# bail out if we're not
if ( not ($^O =~ /MSwin32|cygwin/i)) {
diag("\nWin32::GUI::Scintilla can only run on MSWin32 or cygwin, not '$^O'");
print "Bail out! Incompatible Operating System\n";
}
pass("Correct OS: $^O");
# Check that Win32::GUI::Scintilla loads, and bail out of all
# tests if it doesn't
use_ok('Win32::GUI::Scintilla')
or print STDOUT "Bail out! Can't load Win32::GUI::Scintilla";
# Check that Win32::GUI::Scintilla has a version
ok(defined $Win32::GUI::Scintilla::VERSION, "Win32::GUI::Scintilla version check");
|
