use strict;
use warnings;

=head1 NAME

210_images.t - images

=head1 DESCRIPTION

Adding a JPEG seems to kill Tk.

=cut


# use Test::More skip_all => 'Tk image handling broken in my current dev version of Perl Tk';
my $VERSION = do { my @r = ( q$Revision: 2.100 $ =~ /\d+/g ); sprintf "%d." . "%03d" x $#r, @r };

use ExtUtils::testlib;
use FileHandle;
use Cwd;
use Tk;
use lib qw(../lib . t/);

use Test::More;

    my $mwTest;
    eval { $mwTest = Tk::MainWindow->new };
    if ($@) {
        plan skip_all => 'Test irrelevant without a display';
    }
    else {
		# plan skip_all => 'Tk::JPEG errors';
        plan tests => 12;
    }
    $mwTest->destroy if Tk::Exists($mwTest);
    use_ok('Tk::Wizard' => $VERSION);
    use_ok('WizTestSettings');


use_ok("Tk::PNG");
use_ok("Tk::JPEG");

our $WAIT = $ENV{TEST_INTERACTIVE} ? 0 : 1;

autoflush STDOUT 1;
chdir ".." if getcwd =~ /\Wt$/;

my $wizard = Tk::Wizard->new(
    -title => "Test version $VERSION For Tk::Wizard version $Tk::Wizard::VERSION",
);

isa_ok( $wizard, "Tk::Wizard" );
my $fn = getcwd . "/t/chick.jpg";
ok(-e( $fn ), "pic path ".$fn) or BAIL_OUT ;

# THIS IS IS KAPUT TK INTERNAL ERROR
# $wizard->configure( -imagepath => $fn, );

#
# Create pages
#
is(
    $wizard->addPage( sub {
		$wizard->blank_frame(
			-wait  => $WAIT,
			-title => "Test Wizard",
		);
	}),
    1,
    'splash is 1'
);

is(
    $wizard->addPage( sub {
		$wizard->blank_frame(
			-wait  => $WAIT,
			-title => "Test Wizard",
		);
	}),
	2,
	'this is two'
);

is(
    $wizard->addPage(
        sub {
            $wizard->blank_frame(
                -wait  => $WAIT,
                -title => "Bye!",
                -text  => "Thanks for testing!"
            );
        }
    ),
    3,
    'bye is 3'
);

pass('Pre Show');
$wizard->Show;
pass('after Show');
MainLoop();
pass('after MainLoop');
undef $wizard;


__END__