BEGIN {
if
(!
eval
q{
use Test::More;
1;
}
) {
print
"# tests only work with installed Test::More module\n"
;
print
"1..1\n"
;
print
"ok 1\n"
;
exit
;
}
}
plan
tests
=> 3;
require_ok
'Tk::ProgressSplash'
;
my
$skip_tests
;
my
$splash
=
eval
{
Tk::ProgressSplash->Show(
-splashtype
=>
'normal'
,
Tk::findINC(
"Tk"
,
"Xcamel.gif"
),
60, 60,
"Splash"
, 1);
};
if
($@ =~ m{couldn't
connect
to display}) {
$skip_tests
= 1;
}
SKIP: {
skip
"No display?"
, 2
if
$skip_tests
;
ok
$splash
;
$splash
->Update(0.1);
my
$top
= tkinit;
$splash
->Update(0.2);
$top
->
after
(300);
$top
->update;
$splash
->Raise;
$splash
->Update(0.4);
$top
->
after
(300);
$splash
->Update(0.8);
$top
->
after
(300);
$splash
->Destroy;
ok !Tk::Exists(
$splash
),
'splash window destroyed'
;
}