[perl-Glib-Object-Introspection] Fix t/enums.t for older versions of Test::More
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Glib-Object-Introspection] Fix t/enums.t for older versions of Test::More
- Date: Sat, 29 Nov 2014 16:22:09 +0000 (UTC)
commit ed1f8743c473a3f3d86476c9c3ca4e3b154b8b8b
Author: Torsten Schönfeld <kaffeetisch 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 files 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/]);
}
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]