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