← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/libglib-perl/jaunty

« back to all changes in this revision

Viewing changes to t/c.t

  • Committer: Bazaar Package Importer
  • Author(s): Marc 'HE' Brockschmidt
  • Date: 2008-03-15 09:40:14 UTC
  • mfrom: (1.1.10 upstream)
  • Revision ID: james.westby@ubuntu.com-20080315094014-af0fqrtad5fq1u0f
Tags: 1:1.181-1
New upstream release (only changes in the build system irrelevant for
Debian, but for completeness' sake...)

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/c.t
1
1
#
2
 
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/t/c.t,v 1.7 2005/10/05 19:03:39 kaffeetisch Exp $
 
2
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/t/c.t,v 1.8 2008/01/17 20:55:52 kaffeetisch Exp $
3
3
#
4
4
 
5
5
#
11
11
 
12
12
#########################
13
13
 
14
 
use Test::More tests => 14;
 
14
use Test::More tests => 15;
15
15
BEGIN { use_ok('Glib') };
16
16
 
17
17
#########################
70
70
};
71
71
ok ($@, 'failed register_flag with undef');
72
72
 
 
73
my @actual_values = Glib::Type->list_values ('TestEnum');
 
74
my @expected_values = (
 
75
  {
 
76
    value => 1,
 
77
    name => 'value-one',
 
78
    nick => 'value-one',
 
79
  },
 
80
  {
 
81
    value => 2,
 
82
    name => 'value-two',
 
83
    nick => 'value-two',
 
84
  },
 
85
  {
 
86
    value => 3,
 
87
    name => 'value-three',
 
88
    nick => 'value-three',
 
89
  },
 
90
  {
 
91
    value => 42,
 
92
    name => 'value-four',
 
93
    nick => 'value-four',
 
94
  },
 
95
  {
 
96
    value => 5,
 
97
    name => 'value-five',
 
98
    nick => 'value-five',
 
99
  },
 
100
  {
 
101
    value => 6,
 
102
    name => 'value-six',
 
103
    nick => 'value-six',
 
104
  },
 
105
);
 
106
is_deeply (\@actual_values, \@expected_values, 'list_interfaces');
 
107
 
73
108
package Tester;
74
109
 
75
110
use Test::More;