Hello community, here is the log from the commit of package perl-Tk-Clock for openSUSE:Factory checked in at 2013-08-23 11:07:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Tk-Clock (Old) and /work/SRC/openSUSE:Factory/.perl-Tk-Clock.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Tk-Clock" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Tk-Clock/perl-Tk-Clock.changes 2011-12-21 10:02:54.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Tk-Clock.new/perl-Tk-Clock.changes 2013-08-23 11:07:21.000000000 +0200 @@ -1,0 +2,8 @@ +Wed Aug 14 16:57:22 UTC 2013 - [email protected] + +- update to 0.34: + + Force update if time wound back (ntp, date command) + + Forced order of config attributes (destroying attribs last) + + Better protect against CPANTESTERS with non-Tk environment + +------------------------------------------------------------------- Old: ---- Tk-Clock-0.32.tgz New: ---- Tk-Clock-0.34.tgz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Tk-Clock.spec ++++++ --- /var/tmp/diff_new_pack.Li7X7n/_old 2013-08-23 11:07:22.000000000 +0200 +++ /var/tmp/diff_new_pack.Li7X7n/_new 2013-08-23 11:07:22.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Tk-Clock # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %bcond_with test Name: perl-Tk-Clock -Version: 0.32 +Version: 0.34 Release: 0 %define cpan_name Tk-Clock Summary: Clock widget with analog and digital display ++++++ Tk-Clock-0.32.tgz -> Tk-Clock-0.34.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/ChangeLog new/Tk-Clock-0.34/ChangeLog --- old/Tk-Clock-0.32/ChangeLog 2011-09-07 18:04:40.000000000 +0200 +++ new/Tk-Clock-0.34/ChangeLog 2013-05-28 13:35:07.000000000 +0200 @@ -1,179 +1,159 @@ -0.32 - Wed 07 Sep 2011 <[email protected]> +0.34 - 28 May 2013, H.Merijn Brand + * Force update if time wound back (ntp, date command) + * Upped Copyright to 2013 + * Forced order of config attributes (destroying attribs last) + +0.33 - 17 Apr 2012, H.Merijn Brand + * Upped Copyright to 2012 + * Better protect against CPANTESTERS with non-Tk environment - - NAME / DISTNAME in Makefile.PL +0.32 - 07 Sep 2011, H.Merijn Brand + * NAME / DISTNAME in Makefile.PL -0.31 - Wed 07 Sep 2011 <[email protected]> +0.31 - 07 Sep 2011, H.Merijn Brand + * More cross-checks for META data - - More cross-checks for META data - -0.30 - Thu 12 May 2011 <[email protected]> - - - Initialization fix (attributes can be passed to constructor as it has +0.30 - 12 May 2011, H.Merijn Brand + * Initialization fix (attributes can be passed to constructor as it has always be intended) - - Upped Copyright to 2011 - -0.29 - Mon 02 Aug 2010 <[email protected]> - - - Spell-checking - - Added useInfo, infoColor, infoFormat, and infoFont - - timeFormat, dateFormat and infoFormat now all support all abbreviations - - Added timerValue and corresponding Hc, Mc, and Sc format entries - -0.28 - Tue 16 Mar 2010 <[email protected]> - - - Allow to change backdrop while running - - Upped Copyright to 2010 - - Dropped YAML spec to 1.0 - -0.27 - Mon 18 May 2009 <[email protected]> - - - Enabled backdrop - - Add useSecHand option - - Overhauled the documentation - -0.26 - Fri 20 Mar 2009 <[email protected]> - - - replace ->_packMethod () with ->manager - - t/30_dual.t now allows resizing in grid - - examples/cdclock.pl now acts as I had in mind - - Added Test::NoWarnings + * Upped Copyright to 2011 -0.25 - Sun 08 Mar 2009 <[email protected]> - - - Vastly improved on resizing. - - Prefer autoScale => 1 over anaScale => 0 - - Add examples/cdclock.pl (Lightning Talk countdown clock) - -0.24 - Tue 20 Jan 2009 <[email protected]> - - - Wrong e-mail in META.yml - - Copyright 2009 - - Guard cpantesters with $DISPLAY unset - -0.23 - Tue 21 Oct 2008 <[email protected]> - - - Added tgzdist make target - - Slightly changed the cover make target - - Allow yyyy in date formats - - Add `weird' TimeZones to examples/world.pl - - examples/station.pl can have reversed colors, is resizeable, +0.29 - 02 Aug 2010, H.Merijn Brand + * Spell-checking + * Added useInfo, infoColor, infoFormat, and infoFont + * timeFormat, dateFormat and infoFormat now all support all abbreviations + * Added timerValue and corresponding Hc, Mc, and Sc format entries + +0.28 - 16 Mar 2010, H.Merijn Brand + * Allow to change backdrop while running + * Upped Copyright to 2010 + * Dropped YAML spec to 1.0 + +0.27 - 18 May 2009, H.Merijn Brand + * Enabled backdrop + * Add useSecHand option + * Overhauled the documentation + +0.26 - 20 Mar 2009, H.Merijn Brand + * replace ->_packMethod () with ->manager + * t/30_dual.t now allows resizing in grid + * examples/cdclock.pl now acts as I had in mind + * Added Test::NoWarnings + +0.25 - 08 Mar 2009, H.Merijn Brand + * Vastly improved on resizing. + * Prefer autoScale => 1 over anaScale => 0 + * Add examples/cdclock.pl (Lightning Talk countdown clock) + +0.24 - 20 Jan 2009, H.Merijn Brand + * Wrong e-mail in META.yml + * Copyright 2009 + * Guard cpantesters with $DISPLAY unset + +0.23 - 21 Oct 2008, H.Merijn Brand + * Added tgzdist make target + * Slightly changed the cover make target + * Allow yyyy in date formats + * Add `weird' TimeZones to examples/world.pl + * examples/station.pl can have reversed colors, is resizeable, and the ticks don't touch the edges -0.22 - Wed 02 Jan 2008 <[email protected]> - - - Tk::Clock is now under git - - Upped copyright to 2008 - - Added complete prereq list to Makefile.PL - -0.21 - Fri 09 Nov 2007 <[email protected]> - - - Added tickDiff attribute for width-diff of the ticks - - Added handCenter attribute (see examples/station.pl) - - Added examples/station.pl (Stations klok) - - Added countDown attribute and examples/countdown.pl - - Fixed auto-resize for clocks with digital disabled - - Tested with Tk-804.027_501+ - -0.20 - Tue 08 Oct 2007 <[email protected]> - - - Added a 7-clocks wide example/world.pl - - And fixed the Time Zones in world.pl - - Raised requirement to 5.006, as I use our and recent Tk builds +0.22 - 02 Jan 2008, H.Merijn Brand + * Tk::Clock is now under git + * Upped copyright to 2008 + * Added complete prereq list to Makefile.PL + +0.21 - 09 Nov 2007, H.Merijn Brand + * Added tickDiff attribute for width-diff of the ticks + * Added handCenter attribute (see examples/station.pl) + * Added examples/station.pl (Stations klok) + * Added countDown attribute and examples/countdown.pl + * Fixed auto-resize for clocks with digital disabled + * Tested with Tk-804.027_501+ + +0.20 - 08 Oct 2007, H.Merijn Brand + * Added a 7-clocks wide example/world.pl + * And fixed the Time Zones in world.pl + * Raised requirement to 5.006, as I use our and recent Tk builds require 5.007 -0.19 - Tue 08 May 2007 <[email protected]> - - - LICENSE entry for MakeMaker only for newer versions - - Updated plans/TODO - - Updated Copyrights - - Moved pod to bottom - - Added timeZone support! - - Split up tests - - Loosened up the dateFormat and timeFormat attributes to +0.19 - 08 May 2007, H.Merijn Brand + * LICENSE entry for MakeMaker only for newer versions + * Updated plans/TODO + * Updated Copyrights + * Moved pod to bottom + * Added timeZone support! + * Split up tests + * Loosened up the dateFormat and timeFormat attributes to allow fixed text. Needs documentation! - - Added a test with three clocks side-by-side with different TZ's - -0.18 - Fri 27 Apr 2007 <[email protected]> + * Added a test with three clocks side-by-side with different TZ's - - Added cover make target - - Added auto-resize test. Still depends on user doing the resize - - Increased coverage. More coverage is doable, but it'll be a +0.18 - 27 Apr 2007, H.Merijn Brand + * Added cover make target + * Added auto-resize test. Still depends on user doing the resize + * Increased coverage. More coverage is doable, but it'll be a booooring job to wait for the tests to finish -0.17 - Thu 16 Nov 2006 <[email protected]> - - - Missed one '.' in the format change (K.Wittrock) - - secsColor was missed in config attrib handling - - allow both -secsColor and secsColor - -0.16 - Tue 17 Oct 2006 <[email protected]> - - - Default format for time HH.MM:SS => HH:MM:SS (wish K.Wittrock) - - Added digiAlign option. Default: "center" (wish K.Wittrock) - - $clock->coords (...) now used for the hands instead of +0.17 - 16 Nov 2006, H.Merijn Brand + * Missed one '.' in the format change (K.Wittrock) + * secsColor was missed in config attrib handling + * allow both -secsColor and secsColor + +0.16 - 17 Oct 2006, H.Merijn Brand + * Default format for time HH.MM:SS => HH:MM:SS (wish K.Wittrock) + * Added digiAlign option. Default: "center" (wish K.Wittrock) + * $clock->coords (...) now used for the hands instead of deleting and (re)creating them (suggestion K.Wittrock) -0.15 - Sun 18 Sep 2005 <[email protected]> - - - Added Test::Pod - - Added Test::Pod::Coverage - -0.12 - Wed 31 Aug 2005 <[email protected]> - - - 24 Hour clock for Abe - - config () now returns the widget, so it's stackable - -0.11 - Sun 14 Aug 2005 <[email protected]> - - - Resize reconfigured wrong widget - -0.10 - Thu 11 Aug 2005 <[email protected]> - - - Solved digital clock misplacement when anaScale passed (Abeltje) - - Improved resizing - - Set geometry of parent if MainWindow - - Changed README and updated Copyright - - Added a warning for resizing and pack - - Changed the tests to use Test::More - - config now returns the widgets new geometry - -0.07 - Mon 03 Apr 2000 <[email protected]> - - - Added 'w' and 'ww' for weeknumbers in dateFormat - - Added 'd' and 'dd' for day of the week in timeFormat (for Henry) - -0.06 - Mon 27 Sep 1999 <[email protected]> - - - Analog clock now scalable (anaScale) - - Number of ticks configurable (tickFreq) - -0.05 - Wed 07 Apr 1999 <[email protected]> - - - Updated the README - - Implemented ddd, dddd, mmm, mmmm (English only) - - Enabled \n in date format. If combined with empty time +0.15 - 18 Sep 2005, H.Merijn Brand + * Added Test::Pod + * Added Test::Pod::Coverage + +0.12 - 31 Aug 2005, H.Merijn Brand + * 24 Hour clock for Abe + * config () now returns the widget, so it's stackable + +0.11 - 14 Aug 2005, H.Merijn Brand + * Resize reconfigured wrong widget + +0.10 - 11 Aug 2005, H.Merijn Brand + * Solved digital clock misplacement when anaScale passed (Abeltje) + * Improved resizing + * Set geometry of parent if MainWindow + * Changed README and updated Copyright + * Added a warning for resizing and pack + * Changed the tests to use Test::More + * config now returns the widgets new geometry + +0.07 - 03 Apr 2000, H.Merijn Brand + * Added 'w' and 'ww' for weeknumbers in dateFormat + * Added 'd' and 'dd' for day of the week in timeFormat (for Henry) + +0.06 - 27 Sep 1999, H.Merijn Brand + * Analog clock now scalable (anaScale) + * Number of ticks configurable (tickFreq) + +0.05 - 07 Apr 1999, H.Merijn Brand + * Updated the README + * Implemented ddd, dddd, mmm, mmmm (English only) + * Enabled \n in date format. If combined with empty time format, formats like "dddd\nd mmm yyyy" can be used. -0.04 - Tue 15 Dec 1998 <[email protected]> - - - Changed README according to perlmodlib manpage - - Made date formats more Y2K reliable +0.04 - 15 Dec 1998, H.Merijn Brand + * Changed README according to perlmodlib manpage + * Made date formats more Y2K reliable dd-mm-yyy still doesn't fit in the allocated space -0.03 - Wed 26 Aug 1998 <[email protected]> - - - Analog/Digital part can be disabled. - -0.02 - Wed 22 Jul 1998 <[email protected]> - - - Support date/time formats through config - -0.01 - Mon 20 Jul 1998 <[email protected]> +0.03 - 26 Aug 1998, H.Merijn Brand + * Analog/Digital part can be disabled. - - First attempt to get it on the CPAN - - Added config () - - minimized update of the text fields +0.02 - 22 Jul 1998, H.Merijn Brand + * Support date/time formats through config -0.00 - Tue 09 Jun 1998 <[email protected]> +0.01 - 20 Jul 1998, H.Merijn Brand + * First attempt to get it on the CPAN + * Added config () + * minimized update of the text fields - - First post to Achim, as excerpt from xamen.pl +0.00 - 09 Jun 1998, H.Merijn Brand + * First post to Achim, as excerpt from xamen.pl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/Clock.pm new/Tk-Clock-0.34/Clock.pm --- old/Tk-Clock-0.32/Clock.pm 2011-09-07 13:38:31.000000000 +0200 +++ new/Tk-Clock-0.34/Clock.pm 2013-05-28 13:31:44.000000000 +0200 @@ -5,7 +5,7 @@ use strict; use warnings; -our $VERSION = "0.32"; +our $VERSION = "0.34"; use Carp; @@ -385,6 +385,15 @@ $clock->repeat (995, ["_run" => $clock]); } # Populate +my %attr_weight = ( + useDigital => 99980, + digiAlign => 99985, + useAnalog => 99990, + useInfo => 99991, + tickFreq => 99992, + anaScale => 99995, + ); + sub config { my $clock = shift; @@ -406,7 +415,12 @@ my $data = $clock->privateData; my $autoScale; - foreach my $conf_spec (keys %$conf) { + # sort, so the recreational attribute will be done last + foreach my $conf_spec ( + map { $_->[0] } + sort { $a->[1] <=> $b->[1] } + map { [ $_, $attr_weight{$_} || unpack "s>", $_ ] } + keys %$conf) { (my $attr = $conf_spec) =~ s/^-//; defined $def_config{$attr} && defined $data->{$attr} or next; my $old = $data->{$attr}; @@ -617,6 +631,8 @@ $data->{timeZone} and local $ENV{TZ} = $data->{timeZone}; my $t = time; $t == $data->{_time_} and return; # Same time, no update + $t < $data->{_time_} and # Time wound back (ntp or date command) + ($data->{Clock_h}, $data->{Clock_m}, $data->{Clock_s}) = (-1, -1, -1); $data->{_time_} = $t; my @t = localtime $t; @@ -1020,7 +1036,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 1999-2011 H.Merijn Brand +Copyright (C) 1999-2013 H.Merijn Brand This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/META.json new/Tk-Clock-0.34/META.json --- old/Tk-Clock-0.32/META.json 2011-09-07 18:19:46.000000000 +0200 +++ new/Tk-Clock-0.34/META.json 2013-05-29 09:19:11.000000000 +0200 @@ -1,49 +1,66 @@ { - "resources" : { - "repository" : "http://repo.or.cz/w/Tk-Clock.git";, - "license" : "http://dev.perl.org/licenses/"; - }, - "meta-spec" : { - "version" : "2.0", - "url" : "https://metacpan.org/module/CPAN::Meta::Spec?#meta-spec"; - }, - "test_requires" : { - "Test::More" : "0", - "Test::Harness" : "0", - "Test::NoWarnings" : "0" + "prereqs" : { + "runtime" : { + "recommends" : { + "perl" : "5.016003", + "Tk" : "804.031" + }, + "requires" : { + "Tk::Canvas" : "0", + "Tk::Derived" : "0", + "Tk::Widget" : "0", + "Tk" : "402.000", + "Carp" : "0", + "perl" : "5.006" + } + }, + "test" : { + "requires" : { + "Test::Harness" : "0", + "Test::More" : "0", + "Test::NoWarnings" : "0" + }, + "recommends" : { + "Test::More" : "0.98", + "Test::Harness" : "3.28" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + } }, - "distribution_type" : "module", "generated_by" : "Author", - "test_recommends" : { - "Test::More" : "0.98", - "Test::Harness" : "3.23" + "resources" : { + "repository" : { + "type" : "git", + "web" : "http://repo.or.cz/w/Tk-Clock.git";, + "url" : "http://repo.or.cz/r/Tk-Clock.git"; + }, + "license" : [ + "http://dev.perl.org/licenses/"; + ] }, - "version" : "0.32", - "name" : "Tk-Clock", "author" : [ "H.Merijn Brand <[email protected]>" ], - "license" : "perl", "provides" : { "Tk::Clock" : { - "version" : "0.32", - "file" : "Clock.pm" + "file" : "Clock.pm", + "version" : "0.34" } }, - "requires" : { - "perl" : "5.006", - "Tk::Canvas" : "0", - "Tk::Derived" : "0", - "Tk::Widget" : "0", - "Tk" : "402.000", - "Carp" : "0" - }, - "recommends" : { - "perl" : "5.014001", - "Tk" : "804.029_500" - }, "abstract" : "Clock widget with analog and digital display", - "configure_requires" : { - "ExtUtils::MakeMaker" : "0" - } + "name" : "Tk-Clock", + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "version" : "0.34", + "license" : [ + "perl_5" + ], + "release_status" : "stable", + "dynamic_config" : 1 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/META.yml new/Tk-Clock-0.34/META.yml --- old/Tk-Clock-0.32/META.yml 2011-09-07 18:19:46.000000000 +0200 +++ new/Tk-Clock-0.34/META.yml 2013-05-29 09:19:11.000000000 +0200 @@ -1,38 +1,36 @@ ---- #YAML:1.0 -name: Tk-Clock -version: 0.32 -abstract: Clock widget with analog and digital display -license: perl -author: - - H.Merijn Brand <[email protected]> -generated_by: Author -distribution_type: module -provides: - Tk::Clock: - file: Clock.pm - version: 0.32 -requires: - perl: 5.006 - Carp: 0 - Tk: 402.000 - Tk::Widget: 0 - Tk::Derived: 0 - Tk::Canvas: 0 -recommends: - perl: 5.014001 - Tk: 804.029_500 -configure_requires: - ExtUtils::MakeMaker: 0 -test_requires: - Test::Harness: 0 - Test::More: 0 - Test::NoWarnings: 0 -test_recommends: - Test::Harness: 3.23 - Test::More: 0.98 -resources: - license: http://dev.perl.org/licenses/ - repository: http://repo.or.cz/w/Tk-Clock.git -meta-spec: - version: 1.4 - url: http://module-build.sourceforge.net/META-spec-v1.4.html +--- +abstract: Clock widget with analog and digital display +author: + - H.Merijn Brand <[email protected]> +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: Author, CPAN::Meta::Converter version 2.130880 +license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Tk-Clock +provides: + Tk::Clock: + file: Clock.pm + version: '0.34' +recommends: + Test::Harness: '3.28' + Test::More: '0.98' + Tk: '804.031' + perl: '5.016003' +requires: + Carp: 0 + Test::Harness: 0 + Test::More: 0 + Test::NoWarnings: 0 + Tk: '402.000' + Tk::Canvas: 0 + Tk::Derived: 0 + Tk::Widget: 0 + perl: '5.006' +resources: + license: http://dev.perl.org/licenses/ + repository: http://repo.or.cz/r/Tk-Clock.git +version: '0.34' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/Makefile.PL new/Tk-Clock-0.34/Makefile.PL --- old/Tk-Clock-0.32/Makefile.PL 2011-09-07 17:58:40.000000000 +0200 +++ new/Tk-Clock-0.34/Makefile.PL 2013-02-13 09:30:55.000000000 +0100 @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Copyright PROCURA B.V. (c) 1999-2011 H.Merijn Brand +# Copyright PROCURA B.V. (c) 1999-2013 H.Merijn Brand require 5.006; @@ -31,7 +31,9 @@ dist => { COMPRESS => "gzip -9f", SUFFIX => ".gz", - } + }, + macro => { TARFLAGS => "--format=ustar -c -v -f", + }, ); $ExtUtils::MakeMaker::VERSION > 6.30 and $wm{LICENSE} = "perl"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/README new/Tk-Clock-0.34/README --- old/Tk-Clock-0.32/README 2011-09-07 08:42:52.000000000 +0200 +++ new/Tk-Clock-0.34/README 2013-01-01 22:22:43.000000000 +0100 @@ -12,7 +12,7 @@ ration, which makes it not Y2K compliant. COPYING: - Copyright (c) 1998-2011 H.Merijn Brand. All rights reserved. + Copyright (c) 1998-2013 H.Merijn Brand. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -64,7 +64,7 @@ See ChangeLog COPYRIGHT AND LICENSE - Copyright (C) 1999-2010 H.Merijn Brand + Copyright (C) 1999-2013 H.Merijn Brand This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/t/10_base.t new/Tk-Clock-0.34/t/10_base.t --- old/Tk-Clock-0.32/t/10_base.t 2011-05-12 16:35:26.000000000 +0200 +++ new/Tk-Clock-0.34/t/10_base.t 2012-04-17 08:27:52.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 24; +use Test::More tests => 23; use Test::NoWarnings; BEGIN { @@ -11,8 +11,10 @@ use_ok ("Tk::Clock"); } -my ($delay, $period, $m, $c) = (0, 5000); -ok ($m = MainWindow->new (-title => "clock"), "MainWindow"); +my ($delay, $period, $m, $c) = (0, $ENV{TK_TEST_LENGTH} || 5000); +$m = eval { MainWindow->new (-title => "clock"); } or + skip_all ("No valid Tk environment"); + ok ($c = $m->Clock (-background => "Black"), "Clock Widget"); like ($c->config ( tickColor => "Orange", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/t/20_resize.t new/Tk-Clock-0.34/t/20_resize.t --- old/Tk-Clock-0.32/t/20_resize.t 2011-05-12 16:35:26.000000000 +0200 +++ new/Tk-Clock-0.34/t/20_resize.t 2012-04-17 08:29:17.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 9; +use Test::More tests => 8; use Test::NoWarnings; BEGIN { @@ -11,8 +11,10 @@ use_ok ("Tk::Clock"); } -my ($delay, $m, $c) = (10000); -ok ($m = MainWindow->new (-title => "clock"), "MainWindow"); +my ($delay, $m, $c) = ($ENV{TK_TEST_LENGTH} || 10000); +$m = eval { MainWindow->new (-title => "clock"); } or + skip_all ("No valid Tk environment"); + ok ($c = $m->Clock (-background => "Black"), "Clock Widget"); like ($c->config ( tickColor => "Orange", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/t/30_dual.t new/Tk-Clock-0.34/t/30_dual.t --- old/Tk-Clock-0.32/t/30_dual.t 2011-05-12 17:52:02.000000000 +0200 +++ new/Tk-Clock-0.34/t/30_dual.t 2012-04-17 08:30:14.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 21; +use Test::More tests => 20; use Test::NoWarnings; BEGIN { @@ -11,8 +11,9 @@ use_ok ("Tk::Clock"); } -my ($delay, $period, $m, $c) = (0, 5000); -ok ($m = MainWindow->new (-title => "clock", -background => "Black"), "MainWindow"); +my ($delay, $period, $m, $c) = (0, $ENV{TK_TEST_LENGTH} || 5000); +$m = eval { MainWindow->new (-title => "clock", -background => "Black"); } or + skip_all ("No valid Tk environment"); my %defconfig = ( -background => "Black", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.32/t/40_backdrop.t new/Tk-Clock-0.34/t/40_backdrop.t --- old/Tk-Clock-0.32/t/40_backdrop.t 2011-05-12 16:35:26.000000000 +0200 +++ new/Tk-Clock-0.34/t/40_backdrop.t 2012-04-17 08:33:04.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 11; +use Test::More tests => 10; use Test::NoWarnings; BEGIN { @@ -16,7 +16,10 @@ SKIP: { $Tk::PNG::VERSION or skip "Cannot load Tk::PNG", 7; - ok (my $m = MainWindow->new, "Main window"); + 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"); @@ -36,9 +39,9 @@ ), "config ()"); ok ($c->pack, "pack"); - $c->after ( 5000, sub { $c->config (backDrop => $p2) }); + $c->after ( $delay, sub { $c->config (backDrop => $p2) }); - $c->after (10000, sub { $_->destroy for $c, $m; exit; }); + $c->after (2 * $delay, sub { $_->destroy for $c, $m; exit; }); MainLoop; } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
