[perl-Glib] Add unit tests for the exportable constants
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Glib] Add unit tests for the exportable constants
- Date: Sat, 21 Apr 2012 17:59:11 +0000 (UTC)
commit 1226391a9f33321c7e5db3e4cbdcadd10cf0e8f5
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date: Tue Jul 21 21:52:51 2009 +0200
Add unit tests for the exportable constants
t/constants.t | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 59 insertions(+), 0 deletions(-)
---
diff --git a/t/constants.t b/t/constants.t
new file mode 100644
index 0000000..5505f1d
--- /dev/null
+++ b/t/constants.t
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+#
+# test the constants exported by Glib.
+#
+use strict;
+use warnings;
+
+use Glib qw(:constants);
+use Test::More tests => 9;
+
+ok(TRUE, "TRUE");
+ok(!FALSE, "FALSE");
+
+ok(
+ G_PRIORITY_HIGH < G_PRIORITY_DEFAULT,
+ "G_PRIORITY_HIGH < G_PRIORITY_DEFAULT"
+);
+ok(
+ G_PRIORITY_DEFAULT < G_PRIORITY_HIGH_IDLE,
+ "G_PRIORITY_DEFAULT < G_PRIORITY_HIGH_IDLE"
+);
+ok(
+ G_PRIORITY_HIGH_IDLE < G_PRIORITY_DEFAULT_IDLE,
+ "G_PRIORITY_HIGH_IDLE < G_PRIORITY_DEFAULT_IDLE"
+);
+ok(
+ G_PRIORITY_DEFAULT_IDLE < G_PRIORITY_LOW,
+ "G_PRIORITY_DEFAULT_IDLE < G_PRIORITY_LOW"
+);
+
+my $rw = G_PARAM_READWRITE;
+is_deeply(
+ [ sort @{ $rw } ],
+ ['readable', 'writable'],
+ "G_PARAM_READWRITE"
+);
+
+
+ok(SOURCE_CONTINUE, "SOURCE_CONTINUE");
+ok(!SOURCE_REMOVE, "SOURCE_REMOVE");
+
+__END__
+
+Copyright (C) 2003-2009 by the gtk2-perl team (see the file AUTHORS for the
+full list)
+
+This library is free software; you can redistribute it and/or modify it under
+the terms of the GNU Library General Public License as published by the Free
+Software Foundation; either version 2.1 of the License, or (at your option) any
+later version.
+
+This library is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Library General Public License for more
+details.
+
+You should have received a copy of the GNU Library General Public License along
+with this library; if not, write to the Free Software Foundation, Inc.,
+51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]