view release on metacpan or  search on metacpan

t/040-App-Codit.t  view on Meta::CPAN

use strict;
use warnings;
use Tk;

use Test::Tk;
use Test::More tests => 20;
use File::Spec;
$mwclass = 'App::Codit';
$delay = 1500;
$quitdelay = 2500;

BEGIN {
	use_ok('App::Codit');
	use_ok('App::Codit::Ext::CoditMDI');
	use_ok('App::Codit::Macro');
};

createapp(
	-width => 800,
	-height => 600,
	-configfolder => File::Spec->rel2abs('t/settings'),
);

my $mdi;
my $macro;
if (defined $app) {
	$mdi = $app->extGet('CoditMDI');
	$macro = App::Codit::Macro->new($mdi, 'dummy', '', [sub{}]);
}

testaccessors($macro, qw/countref interval last line remain/);

push @tests, (
	[ sub {
		return $app->extExists('Art')
	}, 1, 'Extension Art loaded' ],
	[ sub {
		return $app->extExists('CoditMDI')
	}, 1, 'Extension CoditMDI loaded' ],
	[ sub {
		return $app->extExists('ToolBar')
	}, 1, 'Extension ToolBar loaded' ],
	[ sub {
		return $app->extExists('StatusBar')
	}, 1, 'Extension StatusBar loaded' ],
	[ sub {
		return $app->extExists('MenuBar')
	}, 1, 'Extension MenuBar loaded' ],
	[ sub {
		return $app->extExists('Selector')
	}, 1, 'Extension Selector loaded' ],
	[ sub {
		return $app->extExists('Help')
	}, 1, 'Extension Help loaded' ],
	[ sub {
		return $app->extExists('Settings')
	}, 1, 'Extension Settings loaded' ],
	[ sub {
		return $app->extExists('Plugins')
	}, 1, 'Extension Plugins loaded' ],
	[ sub {
		$mdi->macroInit('Untitled', 'dummy', [sub {}]);
		return defined $mdi->macroGet('Untitled', 'dummy');
	}, 1, 'Macro dummy initialized' ],
);

starttesting;