[perl-Gtk3] Test for correct error location reports

[Torsten Schönfeld <tsch src gnome org>]

commit 1164406daa03bb524167159f2bf20ba6bcab0f2d
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Fri Jun 17 14:42:21 2016 +0200

    Test for correct error location reports

 t/00-init.t |    9 ++++++++-
 1 files changed, 8 insertions(+), 1 deletions(-)
---
diff --git a/t/00-init.t b/t/00-init.t
index ad5f717..34f5cf1 100644
--- a/t/00-init.t
+++ b/t/00-init.t
@@ -17,7 +17,7 @@ unless (eval { Gtk3->import; 1 }) {
   }
 }
 
-plan tests => 2;
+plan tests => 3;
 
 diag (sprintf 'Testing against gtk+ %d.%d.%d',
       Gtk3::get_major_version (),
@@ -35,3 +35,10 @@ SKIP: {
   # Gtk3::init().
   ok (defined eval 'use 5.8.0; 1');
 }
+
+# Ensure that error messages are reported at the point in the program, not in
+# Gtk3.pm.
+{
+  eval { my $b = Gtk3::LinkButton->new; };
+  like ($@, qr/00-init\.t/);
+}