r4856 - in /packages/libtk-histentry-perl/trunk: Changes HistEntry.pm MANIFEST META.yml Makefile.PL debian/changelog t/match.t

segre at users.alioth.debian.org segre at users.alioth.debian.org
Fri Feb 16 06:39:52 CET 2007


Author: segre
Date: Fri Feb 16 06:39:52 2007
New Revision: 4856

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4856
Log:
New version (0.43) preparation for upload

Added:
    packages/libtk-histentry-perl/trunk/META.yml
      - copied unchanged from r4855, packages/libtk-histentry-perl/branches/upstream/current/META.yml
Modified:
    packages/libtk-histentry-perl/trunk/Changes
    packages/libtk-histentry-perl/trunk/HistEntry.pm
    packages/libtk-histentry-perl/trunk/MANIFEST
    packages/libtk-histentry-perl/trunk/Makefile.PL
    packages/libtk-histentry-perl/trunk/debian/changelog
    packages/libtk-histentry-perl/trunk/t/match.t

Modified: packages/libtk-histentry-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/trunk/Changes?rev=4856&op=diff
==============================================================================
--- packages/libtk-histentry-perl/trunk/Changes (original)
+++ packages/libtk-histentry-perl/trunk/Changes Fri Feb 16 06:39:52 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/trunk/HistEntry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/trunk/HistEntry.pm?rev=4856&op=diff
==============================================================================
--- packages/libtk-histentry-perl/trunk/HistEntry.pm (original)
+++ packages/libtk-histentry-perl/trunk/HistEntry.pm Fri Feb 16 06:39:52 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/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/trunk/MANIFEST?rev=4856&op=diff
==============================================================================
--- packages/libtk-histentry-perl/trunk/MANIFEST (original)
+++ packages/libtk-histentry-perl/trunk/MANIFEST Fri Feb 16 06:39:52 2007
@@ -9,3 +9,4 @@
 t/newclass.t
 t/match.t
 t/invoke.t
+META.yml                                 Module meta-data (added by MakeMaker)

Modified: packages/libtk-histentry-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/trunk/Makefile.PL?rev=4856&op=diff
==============================================================================
--- packages/libtk-histentry-perl/trunk/Makefile.PL (original)
+++ packages/libtk-histentry-perl/trunk/Makefile.PL Fri Feb 16 06:39:52 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/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/trunk/debian/changelog?rev=4856&op=diff
==============================================================================
--- packages/libtk-histentry-perl/trunk/debian/changelog (original)
+++ packages/libtk-histentry-perl/trunk/debian/changelog Fri Feb 16 06:39:52 2007
@@ -1,3 +1,9 @@
+libtk-histentry-perl (0.43-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Carlo Segre <segre at debian.org>  Thu, 15 Feb 2007 23:37:17 -0600
+
 libtk-histentry-perl (0.42-2) unstable; urgency=low
 
   * Change standards version to 3.7.2

Modified: packages/libtk-histentry-perl/trunk/t/match.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtk-histentry-perl/trunk/t/match.t?rev=4856&op=diff
==============================================================================
--- packages/libtk-histentry-perl/trunk/t/match.t (original)
+++ packages/libtk-histentry-perl/trunk/t/match.t Fri Feb 16 06:39:52 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