Hello community, here is the log from the commit of package perl-Gtk2 for openSUSE:Factory checked in at 2014-05-13 20:46:51 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Gtk2 (Old) and /work/SRC/openSUSE:Factory/.perl-Gtk2.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Gtk2" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Gtk2/perl-Gtk2.changes 2013-10-06 14:31:17.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Gtk2.new/perl-Gtk2.changes 2014-05-13 20:46:52.000000000 +0200 @@ -1,0 +2,19 @@ +Mon May 12 07:07:32 UTC 2014 - [email protected] + +- fix build with newer gdk-pixbuf + * added perl-Gtk2-fix_GdkPixbufLoader_test.patch + +------------------------------------------------------------------- +Sun Feb 9 13:05:31 UTC 2014 - [email protected] + +- enable the test suite again + +------------------------------------------------------------------- +Sun Feb 2 17:52:46 UTC 2014 - [email protected] + +- Update to version 1.249: + + Eliminate test failures by using unique temp directories during + testing. +- Disable testsuite since it still fails.... + +------------------------------------------------------------------- Old: ---- Gtk2-1.248.tar.gz New: ---- Gtk2-1.249.tar.gz perl-Gtk2-fix_GdkPixbufLoader_test.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Gtk2.spec ++++++ --- /var/tmp/diff_new_pack.ORN3Qa/_old 2014-05-13 20:46:53.000000000 +0200 +++ /var/tmp/diff_new_pack.ORN3Qa/_new 2014-05-13 20:46:53.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Gtk2 # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2014 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 @@ -17,14 +17,14 @@ Name: perl-Gtk2 -Version: 1.248 +Version: 1.249 Release: 0 %define cpan_name Gtk2 -Summary: Perl interface to the 2 +Summary: Perl interface to the 2.x series of the Gimp Toolkit library License: LGPL-2.1+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Gtk2/ -Source: http://www.cpan.org/modules/by-module/Gtk2/Gtk2-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/X/XA/XAOC/%{cpan_name}-%{version}.tar.gz BuildRequires: perl BuildRequires: perl-macros BuildRequires: update-desktop-files @@ -34,9 +34,10 @@ BuildRequires: perl(Cairo) >= 1.000 BuildRequires: perl(ExtUtils::Depends) >= 0.300 BuildRequires: perl(ExtUtils::PkgConfig) >= 1.03 -BuildRequires: perl(Glib) >= 1.228 +BuildRequires: perl(Glib) >= 1.280 BuildRequires: perl(Pango) >= 1.220 BuildRequires: pkgconfig(gtk+-2.0) +Patch: perl-Gtk2-fix_GdkPixbufLoader_test.patch Requires: perl(Cairo) >= 1.000 Requires: perl(ExtUtils::Depends) >= 0.300 Requires: perl(ExtUtils::PkgConfig) >= 1.03 @@ -46,13 +47,23 @@ %{perl_requires} %description -Perl bindings to the 2.x series of the Gtk+ widget set. This module -allows you to write graphical user interfaces in a perlish and -object-oriented way, freeing you from the casting and memory management -in C, yet remaining very close in spirit to original API. +The Gtk2 module allows a Perl developer to use the Gtk+ graphical user +interface library. Find out more about Gtk+ at http://www.gtk.org. + +The GTK+ Reference Manual is also a handy companion when writing Gtk +programs in any language. http://developer.gnome.org/doc/API/2.0/gtk/ The +Perl bindings follow the C API very closely, and the C reference +documentation should be considered the canonical source. + +To discuss gtk2-perl, ask questions and flame/praise the authors, join [email protected] at lists.gnome.org. + +Also have a look at the gtk2-perl website and sourceforge project page, +http://gtk2-perl.sourceforge.net %prep %setup -q -n %{cpan_name}-%{version} +%patch -p1 %build perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" ++++++ Gtk2-1.248.tar.gz -> Gtk2-1.249.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/META.json new/Gtk2-1.249/META.json --- old/Gtk2-1.248/META.json 2013-09-30 00:10:58.000000000 +0200 +++ new/Gtk2-1.249/META.json 2013-12-11 06:43:11.000000000 +0100 @@ -4,7 +4,7 @@ "gtk2-perl Team <gtk-perl-list at gnome dot org>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.131560", + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.132830", "license" : [ "lgpl_2_1" ], @@ -26,11 +26,6 @@ ] }, "prereqs" : { - "build" : { - "requires" : { - "ExtUtils::MakeMaker" : "0" - } - }, "configure" : { "requires" : { "Cairo" : "1.000", @@ -39,15 +34,6 @@ "Glib" : "1.280", "Pango" : "1.220" } - }, - "runtime" : { - "requires" : { - "Cairo" : "1.000", - "ExtUtils::Depends" : "0.300", - "ExtUtils::PkgConfig" : "1.030", - "Glib" : "1.280", - "Pango" : "1.220" - } } }, "release_status" : "stable", @@ -67,5 +53,5 @@ }, "x_MailingList" : "https://mail.gnome.org/mailman/listinfo/gtk-perl-list"; }, - "version" : "1.248" + "version" : "1.249" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/META.yml new/Gtk2-1.249/META.yml --- old/Gtk2-1.248/META.yml 2013-09-30 00:10:58.000000000 +0200 +++ new/Gtk2-1.249/META.yml 2013-12-11 06:43:11.000000000 +0100 @@ -2,8 +2,7 @@ abstract: 'Perl interface to the 2.x series of the Gimp Toolkit library' author: - 'gtk2-perl Team <gtk-perl-list at gnome dot org>' -build_requires: - ExtUtils::MakeMaker: 0 +build_requires: {} configure_requires: Cairo: 1.000 ExtUtils::Depends: 0.300 @@ -11,7 +10,7 @@ Glib: 1.280 Pango: 1.220 dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.131560' +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.132830' license: lgpl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -26,16 +25,10 @@ file: - Makefile.PL - gtk-demo/main.pl -requires: - Cairo: 1.000 - ExtUtils::Depends: 0.300 - ExtUtils::PkgConfig: 1.030 - Glib: 1.280 - Pango: 1.220 resources: MailingList: https://mail.gnome.org/mailman/listinfo/gtk-perl-list bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Gtk2 homepage: http://gtk2-perl.sourceforge.net license: http://www.gnu.org/licenses/lgpl-2.1.html repository: git://git.gnome.org/perl-Gtk2 -version: 1.248 +version: 1.249 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/NEWS new/Gtk2-1.249/NEWS --- old/Gtk2-1.248/NEWS 2013-09-30 00:08:14.000000000 +0200 +++ new/Gtk2-1.249/NEWS 2013-12-11 06:39:22.000000000 +0100 @@ -1,3 +1,8 @@ +Overview of changes in Gtk2 1.249 +================================= + +* Eliminate test failures by using unique temp directories during testing + Overview of changes in Gtk2 1.248 ================================= diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/lib/Gtk2.pm new/Gtk2-1.249/lib/Gtk2.pm --- old/Gtk2-1.248/lib/Gtk2.pm 2013-09-30 00:08:53.000000000 +0200 +++ new/Gtk2-1.249/lib/Gtk2.pm 2013-12-11 06:39:42.000000000 +0100 @@ -73,7 +73,7 @@ use Exporter; require DynaLoader; -our $VERSION = '1.248'; +our $VERSION = '1.249'; our @ISA = qw(DynaLoader Exporter); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GdkPixbuf.t new/Gtk2-1.249/t/GdkPixbuf.t --- old/Gtk2-1.248/t/GdkPixbuf.t 2011-11-24 08:28:17.000000000 +0100 +++ new/Gtk2-1.249/t/GdkPixbuf.t 2013-12-11 05:45:11.000000000 +0100 @@ -5,7 +5,8 @@ my $show = 0; - +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); my $gif = 'gtk-demo/floppybuddy.gif'; @@ -195,7 +196,7 @@ # these functions can throw Gtk2::Gdk::Pixbuf::Error and Glib::File::Error # exceptions. # -my $filename = 'testsave.jpg'; +my $filename = "$dir/testsave1.jpg"; $pixbuf->save ($filename, 'jpeg', quality => 75.0); ok (1); @@ -232,10 +233,9 @@ is ($height, 5); } -unlink $filename; -$filename = 'testsave.png'; +$filename = "$dir/testsaves.png"; eval { $pixbuf->save ($filename, 'png', 'key_arg_without_value_arg'); @@ -289,8 +289,6 @@ is ($pixbuf->get_option ('tEXt::woot'), 'whee'); } -unlink $filename; - # raw pixel values to make the xpm above, but with green for the # transparent pixels, so we can use add_alpha. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GtkBuilder.t new/Gtk2-1.249/t/GtkBuilder.t --- old/Gtk2-1.248/t/GtkBuilder.t 2011-11-24 08:28:17.000000000 +0100 +++ new/Gtk2-1.249/t/GtkBuilder.t 2013-12-11 06:32:22.000000000 +0100 @@ -7,6 +7,9 @@ # $Id$ +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); + my $builder; my $ui = <<EOD; <interface> @@ -27,7 +30,7 @@ # --------------------------------------------------------------------------- # -my $ui_file = 'tmp.ui'; +my $ui_file = "$dir/tmp.ui"; open my $fh, '>', $ui_file or plan skip_all => 'unable to create ui file'; print $fh $ui; @@ -83,8 +86,6 @@ like ($@, qr/bla/); } -unlink $ui_file; - # --------------------------------------------------------------------------- # $builder = Gtk2::Builder->new; @@ -230,5 +231,5 @@ __END__ -Copyright (C) 2007 by the gtk2-perl team (see the file AUTHORS for the +Copyright (C) 2007, 2013 by the gtk2-perl team (see the file AUTHORS for the full list). See LICENSE for more information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GtkPageSetup.t new/Gtk2-1.249/t/GtkPageSetup.t --- old/Gtk2-1.248/t/GtkPageSetup.t 2011-11-24 08:28:17.000000000 +0100 +++ new/Gtk2-1.249/t/GtkPageSetup.t 2013-12-11 06:33:03.000000000 +0100 @@ -6,6 +6,9 @@ # $Id$ +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); + my $setup = Gtk2::PageSetup -> new(); isa_ok($setup, "Gtk2::PageSetup"); @@ -43,7 +46,7 @@ my $new_setup; $setup -> set_top_margin(23, 'mm'); - my $file = 'tmp.setup'; + my $file = "$dir/tmp.setup"; eval { $setup -> to_file($file); @@ -73,14 +76,13 @@ isa_ok($new_setup, 'Gtk2::PageSetup'); is($new_setup -> get_top_margin('mm'), 23); - unlink $file; } SKIP: { skip 'new 2.14 stuff', 5 unless Gtk2->CHECK_VERSION(2, 14, 0); - my $file = 'tmp.setup'; + my $file = "$dir/tmp.setup"; my $setup = Gtk2::PageSetup -> new(); $setup -> set_top_margin(23, 'mm'); @@ -110,10 +112,9 @@ is($@, ''); is($copy -> get_top_margin('mm'), 23); - unlink $file; } __END__ -Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the +Copyright (C) 2006, 2013 by the gtk2-perl team (see the file AUTHORS for the full list). See LICENSE for more information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GtkPrintContext.t new/Gtk2-1.249/t/GtkPrintContext.t --- old/Gtk2-1.248/t/GtkPrintContext.t 2011-11-24 08:28:17.000000000 +0100 +++ new/Gtk2-1.249/t/GtkPrintContext.t 2013-12-11 06:33:25.000000000 +0100 @@ -6,6 +6,9 @@ # $Id$ +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); + # I hope that signal will always fire ... my $op = Gtk2::PrintOperation -> new(); @@ -37,14 +40,12 @@ $op -> set_n_pages(1); $op -> set_allow_async(TRUE); -$op -> set_export_filename("test.pdf"); +$op -> set_export_filename("$dir/test.pdf"); $op -> run("export", undef); $op -> cancel(); -unlink "test.pdf"; - __END__ -Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the +Copyright (C) 2006, 2013 by the gtk2-perl team (see the file AUTHORS for the full list). See LICENSE for more information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GtkPrintOperation.t new/Gtk2-1.249/t/GtkPrintOperation.t --- old/Gtk2-1.248/t/GtkPrintOperation.t 2011-11-24 08:28:17.000000000 +0100 +++ new/Gtk2-1.249/t/GtkPrintOperation.t 2013-12-11 06:33:54.000000000 +0100 @@ -6,6 +6,9 @@ # $Id$ +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); + my $op = Gtk2::PrintOperation -> new(); isa_ok($op, "Gtk2::PrintOperation"); @@ -32,7 +35,7 @@ $op -> set_current_page(1); $op -> set_use_full_page(TRUE); $op -> set_unit("mm"); - $op -> set_export_filename("test.pdf"); + $op -> set_export_filename("$dir/test.pdf"); $op -> set_track_print_status(TRUE); $op -> set_show_progress(FALSE); $op -> set_allow_async(TRUE); @@ -40,8 +43,6 @@ return $op; } -END { unlink "test.pdf"; } - $op = get_op(); ok(defined $op -> run("export", undef)); $op -> cancel(); @@ -124,5 +125,5 @@ __END__ -Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the +Copyright (C) 2006, 2013 by the gtk2-perl team (see the file AUTHORS for the full list). See LICENSE for more information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GtkPrintSettings.t new/Gtk2-1.249/t/GtkPrintSettings.t --- old/Gtk2-1.248/t/GtkPrintSettings.t 2011-11-24 08:28:17.000000000 +0100 +++ new/Gtk2-1.249/t/GtkPrintSettings.t 2013-12-11 06:34:11.000000000 +0100 @@ -6,6 +6,9 @@ # $Id$ +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); + my $settings = Gtk2::PrintSettings -> new(); isa_ok($settings, 'Gtk2::PrintSettings'); @@ -42,7 +45,7 @@ $settings -> set($key, $value); my $new_settings; - my $file = 'tmp.settings'; + my $file = "$dir/tmp.settings"; eval { $settings -> to_file($file); @@ -71,15 +74,13 @@ is($@, ''); isa_ok($new_settings, 'Gtk2::PrintSettings'); is($new_settings -> get($key), $value); - - unlink $file; } SKIP: { skip 'new 2.14 stuff', 5 unless Gtk2->CHECK_VERSION(2, 14, 0); - my $file = 'tmp.settings'; + my $file = "$dir/tmp.settings2"; my $settings = Gtk2::PrintSettings -> new(); $settings -> set($key, $value); @@ -108,8 +109,6 @@ }; is($@, ''); is($copy -> get($key), $value); - - unlink $file; } SKIP: { @@ -128,5 +127,5 @@ __END__ -Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the +Copyright (C) 2006, 2013 by the gtk2-perl team (see the file AUTHORS for the full list). See LICENSE for more information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GtkRecentChooser.t new/Gtk2-1.249/t/GtkRecentChooser.t --- old/Gtk2-1.248/t/GtkRecentChooser.t 2013-02-02 20:31:58.000000000 +0100 +++ new/Gtk2-1.249/t/GtkRecentChooser.t 2013-12-11 06:34:44.000000000 +0100 @@ -6,8 +6,10 @@ # $Id$ -unlink "./test.xbel"; # in case of an aborted run -my $manager = Glib::Object::new("Gtk2::RecentManager", filename => "./test.xbel"); +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); + +my $manager = Glib::Object::new("Gtk2::RecentManager", filename => "$dir/test.xbel"); my $chooser = Gtk2::RecentChooserWidget -> new_for_manager($manager); isa_ok($chooser, "Gtk2::RecentChooser"); @@ -88,9 +90,7 @@ $chooser -> set_filter($filter_one); is($chooser -> get_filter(), $filter_one); -unlink "./test.xbel"; - __END__ -Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the +Copyright (C) 2006, 2013 by the gtk2-perl team (see the file AUTHORS for the full list). See LICENSE for more information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Gtk2-1.248/t/GtkRecentManager.t new/Gtk2-1.249/t/GtkRecentManager.t --- old/Gtk2-1.248/t/GtkRecentManager.t 2011-11-24 08:28:17.000000000 +0100 +++ new/Gtk2-1.249/t/GtkRecentManager.t 2013-12-11 06:35:08.000000000 +0100 @@ -13,6 +13,8 @@ use strict; use warnings; use File::Basename qw(basename); +use File::Temp qw(tempdir); +my $dir = tempdir(CLEANUP => 1); use Gtk2::TestHelper tests => 36, at_least_version => [2, 10, 0, "GtkRecentManager is new in 2.10"], @@ -33,8 +35,7 @@ # list, so we use the 'filename' constructor only property of the # GtkRecentManager object to create our own test storage file. this # also gives us a better controlled environment. -- ebassi -unlink './test.xbel'; # in case of an aborted run -$manager = Glib::Object::new('Gtk2::RecentManager', filename => './test.xbel'); +$manager = Glib::Object::new('Gtk2::RecentManager', filename => "$dir/test.xbel"); isa_ok($manager, 'Gtk2::RecentManager'); # purge existing items. @@ -126,12 +127,9 @@ ok(!$manager->has_item($icon_uri), 'check remove item'); is($manager->purge_items, 0, 'check purge items'); - - unlink './test.xbel' or - die "Unable to remove the test storage file"; } __END__ -Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the +Copyright (C) 2006, 2013 by the gtk2-perl team (see the file AUTHORS for the full list). See LICENSE for more information. ++++++ perl-Gtk2-fix_GdkPixbufLoader_test.patch ++++++ >From 95b9e300b3208ed99160b6553941b7bd98a34f98 Mon Sep 17 00:00:00 2001 From: Colin Watson <[email protected]> Date: Mon, 24 Mar 2014 11:58:31 +0000 Subject: [PATCH] t/GdkPixbufLoader.t: Use a bigger file to test chunking gdk-pixbuf 2.30.3 unified sniff buffer sizes across loaders, effectively meaning that we now don't get any signals until at least 4096 bytes have been written to the loader. Use a bigger test file to work around this. https://bugzilla.gnome.org/show_bug.cgi?id=725055 --- t/GdkPixbufLoader.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/GdkPixbufLoader.t b/t/GdkPixbufLoader.t index 4f60114..ecfc434 100644 --- a/t/GdkPixbufLoader.t +++ b/t/GdkPixbufLoader.t @@ -123,7 +123,7 @@ SKIP: { # test chunked writing and signals and such SKIP: { - my $filename = 'gtk-demo/gnome-foot.png'; + my $filename = 'gtk-demo/alphatest.png'; skip "can't locate test image file", 4 unless -f $filename; -- 1.9.1 -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
