Commit c15aaa22 authored by Torsten Schönfeld's avatar Torsten Schönfeld

Add missing version checks to t/param-specs.t

parent ee92d6de
......@@ -7,15 +7,25 @@ use warnings;
plan tests => 7;
GI::param_spec_in_bool (Glib::ParamSpec->boolean ('mybool', 'mybool', 'mybool', Glib::FALSE, []));
pass;
my $ps1 = GI::param_spec_return;
isa_ok ($ps1, 'Glib::Param::String');
is ($ps1->get_name, 'test_param');
is ($ps1->get_default_value, '42');
my $ps2 = GI::param_spec_out;
isa_ok ($ps2, 'Glib::Param::String');
is ($ps2->get_name, 'test_param');
is ($ps2->get_default_value, '42');
SKIP: {
skip 'param spec in test', 1
unless check_gi_version (1, 35, 4);
GI::param_spec_in_bool (Glib::ParamSpec->boolean ('mybool', 'mybool', 'mybool', Glib::FALSE, []));
pass;
}
SKIP: {
skip 'param spec return tests', 6
unless check_gi_version (1, 33, 10);
my $ps1 = GI::param_spec_return ();
isa_ok ($ps1, 'Glib::Param::String');
is ($ps1->get_name, 'test_param');
is ($ps1->get_default_value, '42');
my $ps2 = GI::param_spec_out ();
isa_ok ($ps2, 'Glib::Param::String');
is ($ps2->get_name, 'test_param');
is ($ps2->get_default_value, '42');
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment