#!/usr/bin/perl
use strict;
use warnings;
use Glib;
use Tie::Hash;
use Test::More tests => 1;

tie my %hash, 'Tie::StdHash';

my $pspec = Glib::ParamSpec->boxed('t', 't', 't',
                                   'Glib::Scalar', [qw/writable readable/]);
$hash{flags} = $pspec->get_flags;
ok (eval {
      Glib::ParamSpec->boxed('t', 't', 't',
                             'Glib::Scalar', $hash{flags});
      1
    });