#!/pro/bin/perl
use strict;
use warnings;
use Test::More tests => 10;
use Test::NoWarnings;
BEGIN {
use_ok ("Tk");
use_ok ("Tk::PNG");
use_ok ("Tk::Photo");
use_ok ("Tk::Clock");
}
SKIP: {
$Tk::PNG::VERSION or skip "Cannot load Tk::PNG", 7;
my $delay = $ENV{TK_TEST_LENGTH} || 5000;
my $m = eval { MainWindow->new (-title => "clock"); } or
skip_all ("No valid Tk environment");
ok (my $c = $m->Clock (-relief => "flat"), "base clock");
ok (my $p1 = $m->Photo (-file => "t/eye.png"), "Photo 1");
ok (my $p2 = $m->Photo (-file => "t/eye2.png"), "Photo 2");
ok ($c->config (
backDrop => $p1,
timeFont => "{Liberation Mono} 11",
dateFont => "{Liberation Mono} 11",
timeFormat => " ",
dateFormat => "ddd, dd mmm yyyy",
dateColor => "Navy",
handColor => "#ffe0e0",
useSecHand => 0,
tickColor => "Blue",
tickDiff => 1,
handCenter => 1,
anaScale => 330,
), "config ()");
ok ($c->pack, "pack");
$c->after ( $delay, sub { $c->config (backDrop => $p2) });
$c->after (2 * $delay, sub { $_->destroy for $c, $m; exit; });
MainLoop;
}