[libglib-object-introspection-perl] 01/13: Fix t/enums.t for older versions of Test::More

Intrigeri intrigeri at moszumanska.debian.org
Fri Mar 13 19:45:53 UTC 2015


This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libglib-object-introspection-perl.

commit ed1f8743c473a3f3d86476c9c3ca4e3b154b8b8b
Author: Torsten Schönfeld <kaffeetisch at gmx.de>
Date:   Sat Nov 29 17:21:51 2014 +0100

    Fix t/enums.t for older versions of Test::More
    
    Like the one shipped with perl 5.12.5, whose is() did not yet handle overloaded
    objects consistently.
---
 t/enums.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/enums.t b/t/enums.t
index e5cecdd..707a4e7 100644
--- a/t/enums.t
+++ b/t/enums.t
@@ -9,12 +9,12 @@ plan tests => 4;
 
 is (Regress::test_enum_param ('value1'), 'value1');
 is (Regress::test_unsigned_enum_param ('value2'), 'value2');
-ok (Regress::global_get_flags_out () == ['flag1', 'flag3']);
+cmp_ok (Regress::global_get_flags_out (), '==', ['flag1', 'flag3']);
 
 SKIP: {
   skip 'non-GType flags tests', 1
     unless (check_gi_version (0, 10, 3));
 
   GI::no_type_flags_in ([qw/value2/]);
-  is (GI::no_type_flags_returnv (), [qw/value2/]);
+  cmp_ok (GI::no_type_flags_returnv (), '==', [qw/value2/]);
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libglib-object-introspection-perl.git



More information about the Pkg-perl-cvs-commits mailing list