Select Code to Download

t/e.t ...................... 1/243
#   Failed test at t/e.t line 229.
...
#   at t/e.t line 231.
#          got: undef
#     expected: '30'

#
# value_validate() and value_cmp()
...
  is (@a, 2);
  ok (! $a[0], "value 30 bool no modify (array context)");
  is ($a[1], 30, "value 30 value unchanged");

 my $p = Glib::ParamSpec->int ('name','nick','blurb',
                                20, 50, 25, G_PARAM_READWRITE);

    gperl_register_param_spec (G_TYPE_PARAM_INT, "Glib::Param::Int");

MODULE = Glib::ParamSpec    PACKAGE = Glib::ParamSpec    PREFIX = g_pa
+ram_

...
    }
    g_value_unset (&v);
    XSRETURN(retcount);