#!/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" );