#!/usr/bin/perl
use strict;
use warnings;
use Tie::Hash;
use Glib qw/:constants/;
use Gtk2::TestHelper tests => 1;
# Make sure a tied Glib::Object is handled normally. Based on a test sent to
# the list by Terrence Brannon.
tie my %objects, 'Tie::StdHash';
my $vbox = Gtk2::VBox->new (FALSE, 0);
$objects{button} = Gtk2::Button->new ('Quit');
ok (eval { $vbox->add ($objects{button}); 1 });