#!/usr/bin/perl

use strict;
use warnings;

# Turn on $OUTPUT_AUTOFLUSH
$| = 1;
use Test::More;

BEGIN {
	unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
		plan skip_all => 'Needs DISPLAY';
		exit 0;
	}

	# plan tests => 20;
	plan tests => 9; # Migration to FPB
}

use Test::NoWarnings;
use t::lib::Padre;
use Padre::Wx;
use Padre;
use_ok('Padre::Wx::FBP::About');

# Create the IDE
my $padre = new_ok('Padre');
my $main  = $padre->wx->main;
isa_ok( $main, 'Padre::Wx::Main' );

# Create the patch dialog
my $dialog = new_ok( 'Padre::Wx::FBP::About', [$main] );

# Check the notebook properties
my $notebook = $dialog->notebook;
isa_ok( $notebook, 'Wx::Notebook' );

# Check the output properties
my $output = $dialog->output;
isa_ok( $output, 'Wx::TextCtrl' );

## Check unicode translated names
#SCOPE: {
#	use utf8;
#
#	is( $dialog->creator->GetLabel,       'Gábor Szabó',     'Check utf8 name for Gabor Szabo' );
#	is( $dialog->ahmad_zawawi->GetLabel,  'أحمد محمد زواوي', 'Check utf8 name for Ahmad Zawawi' );
#	is( $dialog->jerome_quelin->GetLabel, 'Jérôme Quelin',   'Check utf8 name for Jerome Quelin' );
#	is( $dialog->shlomi_fish->GetLabel,   'שלומי פיש',       'Check utf8 name for Shlomi Fish' );
#}
#
########
## let's check our subs/methods.
########
#my @subs = qw( _core_info _information _translation _wx_info new run );
#
#use_ok( 'Padre::Wx::Dialog::About', @subs );
#
#foreach my $subs (@subs) {
#	can_ok( 'Padre::Wx::Dialog::About', $subs );
#}
#
#######
## let's test for image as it's our centre piece
#######
use_ok('Padre::Util');

my $FILENAME = Padre::Util::splash;
ok( -f $FILENAME, "Found image $FILENAME" );