r25846 - in /branches/upstream/libtk-gbarr-perl/current: Changes MANIFEST META.yml Makefile.PL TFrame.pm t/0basic.t t/0firebutton.t t/1numentryplain.t t/2numentry.t t/3cloth.t t/6numentry.t
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Tue Oct 7 22:53:02 UTC 2008
Author: rmayorga-guest
Date: Tue Oct 7 22:52:59 2008
New Revision: 25846
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25846
Log:
[svn-upgrade] Integrating new upstream version, libtk-gbarr-perl (2.08)
Modified:
branches/upstream/libtk-gbarr-perl/current/Changes
branches/upstream/libtk-gbarr-perl/current/MANIFEST
branches/upstream/libtk-gbarr-perl/current/META.yml
branches/upstream/libtk-gbarr-perl/current/Makefile.PL
branches/upstream/libtk-gbarr-perl/current/TFrame.pm
branches/upstream/libtk-gbarr-perl/current/t/0basic.t
branches/upstream/libtk-gbarr-perl/current/t/0firebutton.t
branches/upstream/libtk-gbarr-perl/current/t/1numentryplain.t
branches/upstream/libtk-gbarr-perl/current/t/2numentry.t
branches/upstream/libtk-gbarr-perl/current/t/3cloth.t
branches/upstream/libtk-gbarr-perl/current/t/6numentry.t
Modified: branches/upstream/libtk-gbarr-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/Changes?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/Changes (original)
+++ branches/upstream/libtk-gbarr-perl/current/Changes Tue Oct 7 22:52:59 2008
@@ -1,3 +1,6 @@
+*** Release 2.08
+ - make test scripts more robust against missing DISPLAY
+
*** Release 2.07
- fixed foreground propagation in Tk::NumEntry
Modified: branches/upstream/libtk-gbarr-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/MANIFEST?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/MANIFEST (original)
+++ branches/upstream/libtk-gbarr-perl/current/MANIFEST Tue Oct 7 22:52:59 2008
@@ -29,4 +29,3 @@
t/3cloth.t
t/5tframe.t
t/6numentry.t
-META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libtk-gbarr-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/META.yml?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/META.yml (original)
+++ branches/upstream/libtk-gbarr-perl/current/META.yml Tue Oct 7 22:52:59 2008
@@ -1,11 +1,13 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Tk-GBARR
-version: 2.07
-version_from:
-installdirs: site
-requires:
+--- #YAML:1.0
+name: Tk-GBARR
+version: 2.08
+abstract: Additional Tk widgets (NumEntry, FireButton, Cloth...)
+license: ~
+author: ~
+generated_by: ExtUtils::MakeMaker version 6.44
+distribution_type: module
+requires:
Tk: 402.002
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: branches/upstream/libtk-gbarr-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/Makefile.PL?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/Makefile.PL (original)
+++ branches/upstream/libtk-gbarr-perl/current/Makefile.PL Tue Oct 7 22:52:59 2008
@@ -29,7 +29,7 @@
PREREQ_PM => { 'Tk' => '402.002' }, # Tk/NumEntry need it
NAME => 'Tk::GBARR',
DISTNAME => 'Tk-GBARR',
- VERSION => "2.07",
+ VERSION => "2.08",
PM => \%pm,
'dist' => {
COMPRESS => 'gzip -9f',
Modified: branches/upstream/libtk-gbarr-perl/current/TFrame.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/TFrame.pm?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/TFrame.pm (original)
+++ branches/upstream/libtk-gbarr-perl/current/TFrame.pm Tue Oct 7 22:52:59 2008
@@ -1,4 +1,4 @@
-# $Id: TFrame.pm,v 2.1 2000/10/22 17:12:40 eserte Exp $
+# $Id: TFrame.pm,v 2.2 2007/12/06 20:09:39 eserte Exp $
package Tk::TFrame;
@@ -7,7 +7,7 @@
use vars qw($VERSION @ISA);
@ISA = qw(Tk::Derived Tk::Frame);
-$VERSION = sprintf("%d.%02d", q$Revision: 2.1 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 2.2 $ =~ /(\d+)\.(\d+)/);
Construct Tk::Widget "TFrame";
@@ -175,9 +175,9 @@
use Tk::TFrame;
$frame1 = $parent->TFrame(
- -label => [ -text => 'Title' ]
+ -label => [ -text => 'Title' ],
-borderwidth => 2,
- -relief => 'groove'
+ -relief => 'groove',
);
# or simply
Modified: branches/upstream/libtk-gbarr-perl/current/t/0basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/t/0basic.t?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/t/0basic.t (original)
+++ branches/upstream/libtk-gbarr-perl/current/t/0basic.t Tue Oct 7 22:52:59 2008
@@ -33,17 +33,21 @@
TFrame
);
- plan test => (10*@class+3);
-
};
-eval { require Tk; };
-ok($@, "", "loading Tk module");
+my $mw;
+BEGIN {
+ if (!eval {
+ require Tk;
+ $mw = Tk::MainWindow->new();
+ Tk::Exists($mw);
+ }) {
+ print "1..0 # skip cannot open DISPLAY\n";
+ CORE::exit;
+ }
+}
-my $mw;
-eval {$mw = Tk::MainWindow->new();};
-ok($@, "", "can't create MainWindow");
-ok(Tk::Exists($mw), 1, "MainWindow creation failed");
+plan test => 10*@class;
my $w;
foreach my $class (@class)
Modified: branches/upstream/libtk-gbarr-perl/current/t/0firebutton.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/t/0firebutton.t?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/t/0firebutton.t (original)
+++ branches/upstream/libtk-gbarr-perl/current/t/0firebutton.t Tue Oct 7 22:52:59 2008
@@ -1,15 +1,26 @@
use strict;
use vars '$loaded';
+
+my $top1;
+my $top2;
+BEGIN {
+ if (!eval {
+ # two MainWindows test...
+ require Tk;
+ $top1 = MainWindow->new;
+ $top2 = MainWindow->new;
+ }) {
+ print "1..0 # skip cannot open DISPLAY\n";
+ CORE::exit;
+ }
+}
+
BEGIN { $^W= 1; $| = 1; print "1..10\n"; }
END {print "not ok 1\n" unless $loaded;}
use Tk::FireButton;
$loaded = 1;
my $ok = 1;
print "ok " . $ok++ . "\n";
-
-# two MainWindows test...
-my $top1 = new MainWindow;
-my $top2 = new MainWindow;
my $fb;
eval {
Modified: branches/upstream/libtk-gbarr-perl/current/t/1numentryplain.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/t/1numentryplain.t?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/t/1numentryplain.t (original)
+++ branches/upstream/libtk-gbarr-perl/current/t/1numentryplain.t Tue Oct 7 22:52:59 2008
@@ -16,9 +16,17 @@
use strict;
use Tk;
+my $mw;
+BEGIN
+ {
+ if (!eval { $mw = Tk::MainWindow->new })
+ {
+ print "1..0 # skip cannot open DISPLAY\n";
+ CORE::exit;
+ }
+ }
+
BEGIN { plan tests => 10 };
-
-my $mw = Tk::MainWindow->new;
my $nep;
{
Modified: branches/upstream/libtk-gbarr-perl/current/t/2numentry.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/t/2numentry.t?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/t/2numentry.t (original)
+++ branches/upstream/libtk-gbarr-perl/current/t/2numentry.t Tue Oct 7 22:52:59 2008
@@ -1,5 +1,17 @@
use strict;
use vars '$loaded';
+
+my $top;
+BEGIN {
+ if (!eval {
+ require Tk;
+ $top = MainWindow->new;
+ }) {
+ print "1..0 # skip cannot open DISPLAY\n";
+ CORE::exit;
+ }
+}
+
BEGIN { $^W= 1; $| = 1; print "1..7\n"; }
END {print "not ok 1\n" unless $loaded;}
use Tk::NumEntry;
@@ -7,7 +19,6 @@
my $ok = 1;
print "ok " . $ok++ . "\n";
-my $top = new MainWindow;
my $ne;
eval {
$ne = $top->NumEntry->pack;
Modified: branches/upstream/libtk-gbarr-perl/current/t/3cloth.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/t/3cloth.t?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/t/3cloth.t (original)
+++ branches/upstream/libtk-gbarr-perl/current/t/3cloth.t Tue Oct 7 22:52:59 2008
@@ -1,14 +1,23 @@
use strict;
use vars '$loaded';
use Tk;
+
+my $top;
+BEGIN {
+ if (!eval {
+ $top = MainWindow->new;
+ }) {
+ print "1..0 # skip cannot open DISPLAY\n";
+ CORE::exit;
+ }
+}
+
BEGIN { $^W= 1; $| = 1; print "1..10\n"; }
END {print "not ok 1\n" unless $loaded;}
use Tk::Cloth;
$loaded = 1;
my $ok = 1;
print "ok @{[ $ok++ ]}\n";
-
-my $top = new MainWindow;
my $cloth;
eval {
Modified: branches/upstream/libtk-gbarr-perl/current/t/6numentry.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtk-gbarr-perl/current/t/6numentry.t?rev=25846&op=diff
==============================================================================
--- branches/upstream/libtk-gbarr-perl/current/t/6numentry.t (original)
+++ branches/upstream/libtk-gbarr-perl/current/t/6numentry.t Tue Oct 7 22:52:59 2008
@@ -1,5 +1,17 @@
use strict;
use vars '$loaded';
+
+my $top;
+BEGIN {
+ if (!eval {
+ require Tk;
+ $top = MainWindow->new;
+ }) {
+ print "1..0 # skip cannot open DISPLAY\n";
+ CORE::exit;
+ }
+}
+
BEGIN { $^W= 1; $| = 1; print "1..6\n"; }
END {print "not ok 1\n" unless $loaded;}
use Tk::NumEntry;
@@ -62,7 +74,6 @@
# back to main again
package main;
-my $top = new MainWindow;
my $ne;
eval {
$ne = $top->MyNumEntry(-defaultvalue => 42,
More information about the Pkg-perl-cvs-commits
mailing list