[perl-Gtk3] Avoid some warnings from the test suite



commit bc50791b14fb259d922f0cc8fc2405de299ecc1a
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Mon Jan 14 00:52:41 2013 +0100

    Avoid some warnings from the test suite

 t/overrides.t    |    2 +-
 t/zz-GdkEvent.t  |    2 +-
 t/zz-GtkDialog.t |    2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/t/overrides.t b/t/overrides.t
index 8ce3562..5ced709 100644
--- a/t/overrides.t
+++ b/t/overrides.t
@@ -365,7 +365,7 @@ SKIP: {
 
 # Gtk3::Gdk::Pixbuf::get_formats
 {
-  my @formats = Gtk3::Gdk::Pixbuf->get_formats;
+  my @formats = Gtk3::Gdk::Pixbuf::get_formats;
   isa_ok (ref $formats[0], 'Gtk3::Gdk::PixbufFormat');
 }
 
diff --git a/t/zz-GdkEvent.t b/t/zz-GdkEvent.t
index a16b023..fcd8eeb 100644
--- a/t/zz-GdkEvent.t
+++ b/t/zz-GdkEvent.t
@@ -41,7 +41,7 @@ field_ok ($event, window => $window);
 field_ok ($event, window => undef);
 field_ok ($event, send_event => 23);
 
-my $screen = Gtk3::Gdk::Screen->get_default;
+my $screen = Gtk3::Gdk::Screen::get_default;
 $event->set_screen ($screen);
 is ($event->get_screen, $screen, '$event->get_screen');
 
diff --git a/t/zz-GtkDialog.t b/t/zz-GtkDialog.t
index 846a5c9..7fa606a 100644
--- a/t/zz-GtkDialog.t
+++ b/t/zz-GtkDialog.t
@@ -77,7 +77,7 @@ SKIP: {
   $d->set_alternative_button_order (qw(ok cancel accept), 3);
   $d->set_alternative_button_order;
 
-  my $screen = Gtk3::Gdk::Screen->get_default;
+  my $screen = Gtk3::Gdk::Screen::get_default;
   ok (defined Gtk3::alternative_dialog_button_order ($screen));
   ok (defined Gtk3::alternative_dialog_button_order (undef));
   ok (defined Gtk3::alternative_dialog_button_order);



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