File: enums.t

package info (click to toggle)
libglib-object-introspection-perl 0.051-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 584 kB
  • sloc: ansic: 3,543; perl: 2,809; makefile: 9; sh: 3
file content (20 lines) | stat: -rw-r--r-- 475 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/env perl

BEGIN { require './t/inc/setup.pl' };

use strict;
use warnings;

plan tests => 4;

is (Regress::test_enum_param ('value1'), 'value1');
is (Regress::test_unsigned_enum_param ('value2'), 'value2');
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/]);
  cmp_ok (GI::no_type_flags_returnv (), '==', [qw/value2/]);
}