r4854 - in
/packages/libtk-histentry-perl/branches/upstream/current: Changes
HistEntry.pm MANIFEST META.yml Makefile.PL t/match.t
segre at users.alioth.debian.org
segre at users.alioth.debian.org
Fri Feb 16 06:36:51 CET 2007
Author: segre
Date: Fri Feb 16 06:36:51 2007
New Revision: 4854
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4854
Log:
[svn-upgrade] Integrating new upstream version, libtk-histentry-perl (0.43)
Added:
packages/libtk-histentry-perl/branches/upstream/current/META.yml
Modified:
packages/libtk-histentry-perl/branches/upstream/current/Changes
packages/libtk-histentry-perl/branches/upstream/current/HistEntry.pm
packages/libtk-histentry-perl/branches/upstream/current/MANIFEST
packages/libtk-histentry-perl/branches/upstream/current/Makefile.PL
packages/libtk-histentry-perl/branches/upstream/current/t/match.t
Modified: packages/libtk-histentry-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/branches/upstream/current/Changes?rev=4854&op=diff
==============================================================================
--- packages/libtk-histentry-perl/branches/upstream/current/Changes (original)
+++ packages/libtk-histentry-perl/branches/upstream/current/Changes Fri Feb 16 06:36:51 2007
@@ -1,4 +1,8 @@
Revision history for Perl extension Tk::HistEntry.
+
+0.43
+ - no code changes, just fixed a possibly failing test
+ (depending on setting of window focus)
0.42
- fixed a failing test (it was a delegation problem)
Modified: packages/libtk-histentry-perl/branches/upstream/current/HistEntry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/branches/upstream/current/HistEntry.pm?rev=4854&op=diff
==============================================================================
--- packages/libtk-histentry-perl/branches/upstream/current/HistEntry.pm (original)
+++ packages/libtk-histentry-perl/branches/upstream/current/HistEntry.pm Fri Feb 16 06:36:51 2007
@@ -1,7 +1,7 @@
# -*- perl -*-
#
-# $Id: HistEntry.pm,v 1.29 2003/10/27 22:15:03 eserte Exp $
+# $Id: HistEntry.pm,v 1.30 2007/02/02 00:01:35 eserte Exp $
# Author: Slaven Rezic
#
# Copyright © 1997, 2000, 2001, 2003 Slaven Rezic. All rights reserved.
@@ -17,7 +17,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '0.42';
+$VERSION = '0.43';
sub addBind {
my $w = shift;
Modified: packages/libtk-histentry-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/branches/upstream/current/MANIFEST?rev=4854&op=diff
==============================================================================
--- packages/libtk-histentry-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libtk-histentry-perl/branches/upstream/current/MANIFEST Fri Feb 16 06:36:51 2007
@@ -9,3 +9,4 @@
t/newclass.t
t/match.t
t/invoke.t
+META.yml Module meta-data (added by MakeMaker)
Added: packages/libtk-histentry-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/branches/upstream/current/META.yml?rev=4854&op=file
==============================================================================
--- packages/libtk-histentry-perl/branches/upstream/current/META.yml (added)
+++ packages/libtk-histentry-perl/branches/upstream/current/META.yml Fri Feb 16 06:36:51 2007
@@ -1,0 +1,12 @@
+--- #YAML:1.0
+name: Tk-HistEntry
+version: 0.43
+abstract: ~
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.31
+distribution_type: module
+requires:
+ Tk: 0
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: packages/libtk-histentry-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/branches/upstream/current/Makefile.PL?rev=4854&op=diff
==============================================================================
--- packages/libtk-histentry-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libtk-histentry-perl/branches/upstream/current/Makefile.PL Fri Feb 16 06:36:51 2007
@@ -17,7 +17,7 @@
EOF
- if (defined $ENV{USER} && $ENV{USER} eq 'eserte') {
+ if (defined $ENV{USER} && $ENV{USER} eq 'eserte' && $^O =~ /bsd/i && -f "../../perl.release.mk") {
$postamble .= <<'EOF';
.include "../../perl.release.mk"
Modified: packages/libtk-histentry-perl/branches/upstream/current/t/match.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/branches/upstream/current/t/match.t?rev=4854&op=diff
==============================================================================
--- packages/libtk-histentry-perl/branches/upstream/current/t/match.t (original)
+++ packages/libtk-histentry-perl/branches/upstream/current/t/match.t Fri Feb 16 06:36:51 2007
@@ -1,10 +1,10 @@
# -*- perl -*-
#
-# $Id: match.t,v 1.2 1998/08/28 11:54:20 eserte Exp $
+# $Id: match.t,v 1.4 2007/02/02 18:49:35 eserte Exp $
# Author: Slaven Rezic
#
-# Copyright (C) 1997,1998 Slaven Rezic. All rights reserved.
+# Copyright (C) 1997,1998,2007 Slaven Rezic. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
@@ -12,36 +12,60 @@
# WWW: http://user.cs.tu-berlin.de/~eserte/
#
-use Test;
+BEGIN {
+ if (!eval q{
+ use Test::More;
+ 1;
+ }) {
+ print "1..0 # skip: no Test::More module\n";
+ exit;
+ }
+}
+
use Tk;
use Tk::HistEntry;
use strict;
-BEGIN { plan tests => 2, todo => [2] }
+plan tests => 4;
my $top = new MainWindow;
$top->geometry($top->screenwidth . "x" .$top->screenheight . "+0+0");
my $he = $top->HistEntry(-match => 1,
)->pack;
+isa_ok($he, "Tk::HistEntry");
-$he->addhistory('Slaven');
-$he->addhistory('Rezic');
+$he->addhistory('Foo');
+$he->addhistory('Bar');
my $e = $he->_entry;
+isa_ok($e, "Tk::LabEntry");
+my $focus_e = $e->Subwidget("entry");
$e->focus;
$e->update;
+
eval {
- $e->event('generate', '<KeyPress>', -keysym => 'S');
- $e->event('generate', '<KeyPress>', -keysym => 'l');
+ $e->event('generate', '<KeyPress>', -keysym => 'F');
+ $e->event('generate', '<KeyPress>', -keysym => 'o');
$e->update;
};
-skip($@, $e->get eq 'Slaven');
+SKIP: {
+ skip("Focus lost? $@", 1) if $@;
+ skip("Focus lost!", 1) if ($top->focusCurrent||"") ne $focus_e;
+ is($e->get, 'Foo', "Expected first entry");
+}
-eval {
- $e->event('generate', '<KeyPress>', -keysym => 'BackSpace');
- $e->update;
-};
-#warn $e->get;
-skip ($@, $e->get eq 'S');
+{
+ local $TODO = "Rethink BackSpace behavior...";
+
+ eval {
+ $e->event('generate', '<KeyPress>', -keysym => 'BackSpace');
+ $e->update;
+ };
+ SKIP: {
+ skip("Focus lost? $@", 1) if $@;
+ skip("Focus lost!", 1) if ($top->focusCurrent||"") ne $focus_e;
+ is($e->get, 'F', 'Only one character entered');
+ }
+}
#MainLoop;
More information about the Pkg-perl-cvs-commits
mailing list