#!perl -w
# Win32::GUI::BitmapInline test suite
# $Id: 05_newCursor.t,v 1.1 2008/01/13 11:42:57 robertemay Exp $
#
# - check the new function works for bitmaps
use strict;
use warnings;
use IO::File();
BEGIN { $| = 1 } # Autoflush
use Test::More tests => 3;
use Win32::GUI::BitmapInline();
# Check that 'inline' is not exported with empty import list
ok(!__PACKAGE__->can('inline'), "'inline' not exported");
# Check that 'new' is not exported with empty import list
ok(!__PACKAGE__->can('newCursor'), "'newCursor' not exported");
# use inline to create some inline data
# XXX I expect that using scalar reference as filename in open is not 5.6
# compatible
{ # Bitmap inlining
my $fh = IO::File->new_tmpfile() or die "Open failed";
my $old_fh = select $fh;
Win32::GUI::BitmapInline::inline('t/test.cur');
select $old_fh;
$fh->seek(0,0) or die "Failed to seek back to start of file";
my $buffer = do { local $/; <$fh> };
$fh->close();
my $Cursor1;
eval $buffer;
isa_ok($Cursor1, "Win32::GUI::Cursor", "Created a cursor");
}