[perl-Glib-Object-Introspection] Add more tests for constants



commit d61a21a22bb4372b248ab711f56470739e44b76a
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Mon Aug 22 23:11:55 2011 +0200

    Add more tests for constants

 t/constants.t |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)
---
diff --git a/t/constants.t b/t/constants.t
index d4a356f..1e2e000 100644
--- a/t/constants.t
+++ b/t/constants.t
@@ -4,8 +4,12 @@ BEGIN { require './t/inc/setup.pl' };
 
 use strict;
 use warnings;
+use utf8;
 
-plan tests => 4;
+plan tests => 6;
+
+is (GI::CONSTANT_NUMBER, 42);
+is (GI::CONSTANT_UTF8, 'const â utf8');
 
 is (Regress::INT_CONSTANT, 4422);
 delta_ok (Regress::DOUBLE_CONSTANT, 44.22);



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