#!perl -w
# Win32::GUI::Scintilla test suite
# $Id: 02_new.t,v 1.2 2008/01/31 00:34:20 robertemay Exp $
#
# - check we can create a new Scintilla object

use strict;
use warnings;

BEGIN { $| = 1 } # Autoflush

use Test::More tests => 6;

use Win32::GUI qw();
use Win32::GUI::Scintilla qw();
use Win32::GUI::Scintilla::Perl qw();

can_ok('Win32::GUI::Scintilla', 'new');
can_ok('Win32::GUI::Window', 'AddScintilla');
can_ok('Win32::GUI::Scintilla::Perl', 'new');
can_ok('Win32::GUI::Window', 'AddScintillaPerl');

my $W = Win32::GUI::Window->new();

my $S = $W->AddScintilla();
isa_ok($S, 'Win32::GUI::Scintilla', 'Correct object type created');

my $P = $W->AddScintillaPerl();
isa_ok($P, 'Win32::GUI::Scintilla', 'Correct object type created');