From 8e60487fdaddfd77b8b9fd9dfd3c949d83933d0d Mon Sep 17 00:00:00 2001
From: Sunpoet Po-Chuan Hsieh <sunpoet@FreeBSD.org>
Date: Sun, 29 Apr 2012 17:19:34 +0000
Subject: - Add p5-Gtk2-Notify 0.05

Gtk2::Notify provides a Perl XS API to the The Desktop Notifications
framework, which provides a standard way of doing passive pop-up
notifications on the desktop.

WWW: http://search.cpan.org/dist/Gtk2-Notify/

PR:		ports/161571
Submitted by:	Zhihao Yuan <lichray@gmail.com>
---
 devel/p5-Gtk2-Notify/files/patch-t-notification.t | 51 +++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 devel/p5-Gtk2-Notify/files/patch-t-notification.t

(limited to 'devel/p5-Gtk2-Notify/files/patch-t-notification.t')

diff --git a/devel/p5-Gtk2-Notify/files/patch-t-notification.t b/devel/p5-Gtk2-Notify/files/patch-t-notification.t
new file mode 100644
index 000000000000..70478a3c4dd5
--- /dev/null
+++ b/devel/p5-Gtk2-Notify/files/patch-t-notification.t
@@ -0,0 +1,51 @@
+--- t/notification.t.orig	2006-08-27 14:11:57.000000000 -0500
++++ t/notification.t	2012-04-29 05:36:50.252318938 -0500
+@@ -2,20 +2,18 @@
+ 
+ use strict;
+ use warnings;
+-use Gtk2::TestHelper tests => 35;
++use Gtk2::TestHelper tests => 32;
+ use Test::Exception;
+ use Gtk2::Notify -init, $0;
+ 
+ ginterfaces_ok('Gtk2::Notify');
+ 
+-my $w = Gtk2::Window->new;
+-my $n = Gtk2::Notify->new('foo', 'bar', '', $w);
++my $n = Gtk2::Notify->new('foo', 'bar', '');
+ 
+ isa_ok($n, 'Gtk2::Notify');
+ 
+ my @methods = qw(
+         add_action
+-        attach_to_widget
+         clear_actions
+         clear_hints
+         close
+@@ -46,16 +44,6 @@ lives_ok(sub {
+         }, 42);
+ }, 'add_action');
+ 
+-{
+-    my $nw = Gtk2::Window->new;
+-    lives_ok(sub {
+-            $n->attach_to_widget($nw);
+-    }, 'attach_to_widget');
+-    lives_ok(sub {
+-            $n->attach_to_widget($w);
+-    }, 'attach_to_widget');
+-}
+-
+ lives_ok(sub {
+         $n->clear_actions;
+ }, 'clear_actions with existing actions');
+@@ -99,8 +87,6 @@ lives_ok(sub {
+         $n->close;
+ }, 'close before show');
+ 
+-$w->show_all;
+-
+ lives_ok(sub {
+         $n->show;
+ }, 'show');
-- 
cgit v1.2.3