[perl-Gtk3] Avoid some warnings from the tests



commit ab402eed026042cd4436304b7dcdd4875cd5ba3b
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Fri Jan 25 20:32:38 2013 +0100

    Avoid some warnings from the tests

 t/signals.t         |    1 +
 t/zz-GtkContainer.t |    1 +
 2 files changed, 2 insertions(+), 0 deletions(-)
---
diff --git a/t/signals.t b/t/signals.t
index 8b40b7e..c11a382 100644
--- a/t/signals.t
+++ b/t/signals.t
@@ -10,6 +10,7 @@ plan tests => 3;
 # Gtk3::Widget.size-allocate
 {
   my $window = Gtk3::Window->new;
+  $window->show;
   my $alloc = {x => 10, y => 10, width => 100, height => 100};
   my $data = [23, 42];
   $window->signal_connect (size_allocate => sub {
diff --git a/t/zz-GtkContainer.t b/t/zz-GtkContainer.t
index 3fd3379..ad3784f 100644
--- a/t/zz-GtkContainer.t
+++ b/t/zz-GtkContainer.t
@@ -20,6 +20,7 @@ is ($window->child_type, 'Gtk3::Widget', 'a window wants a widget');
 # i think we'd know if $container->add didn't work
 $window->add ($vbox);
 ok (1, 'added a widget to the window');
+$window->show_all;
 
 $window->set_focus_child($vbox);
 ok (1);



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]