[perl-glib-object-introspection] Add missing version checks to t/param-specs.t



commit c15aaa2248b1d39547de56ecd76934da11ab203e
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Jan 6 15:50:54 2019 +0100

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

 t/param-specs.t | 34 ++++++++++++++++++++++------------
 1 file changed, 22 insertions(+), 12 deletions(-)
---
diff --git a/t/param-specs.t b/t/param-specs.t
index 2bc7877..edfe544 100644
--- a/t/param-specs.t
+++ b/t/param-specs.t
@@ -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');
+}


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]