#!perl -w
# Win32::GUI::BitmapInline test suite
# $Id: 06_newIcon.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('newIcon'), "'newIcon' 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.ico');
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 $Icon1;
eval $buffer;
isa_ok($Icon1, "Win32::GUI::Icon", "Created an icon");
}