File: 207_typedef.t

package info (click to toggle)
libconvert-binary-c-perl 0.74-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 9,100 kB
  • ctags: 21,416
  • sloc: ansic: 63,666; perl: 18,582; yacc: 2,143; makefile: 44
file content (126 lines) | stat: -rw-r--r-- 3,204 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
################################################################################
#
# $Project: /Convert-Binary-C $
# $Author: mhx $
# $Date: 2009/03/15 04:11:01 +0100 $
# $Revision: 17 $
# $Source: /tests/207_typedef.t $
#
################################################################################
#
# Copyright (c) 2002-2009 Marcus Holland-Moritz. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
################################################################################

use Test;
use Convert::Binary::C @ARGV;

$^W = 1;

BEGIN { plan tests => 30 }

eval { $c = new Convert::Binary::C; };
ok($@,'',"failed to create Convert::Binary::C object");

eval {
$c->parse(<<'EOF');
/* just some C stuff */
typedef struct car truck, mobile[3], *vehicle;
typedef enum { MONDAY, JANUARY, Y2K } day, month[4][5], *year;
struct car {
  int wheel;
  int gear;
};
/* the only way to execute the default_declaring_list */
/* rule is some strange construct like this...        */
typedef const foo, *bar, baz[2][3];
EOF
};
ok($@,'',"parse() failed");

# catch all warnings for further checks

$SIG{__WARN__} = sub { push @warn, $_[0] };
sub chkwarn {
  ok( scalar @warn, scalar @_, "wrong number of warnings" );
  ok( shift @warn, $_ ) for @_;
  @warn = ();
}

#-----------------------------------------------------
# check what has been parsed...
#-----------------------------------------------------

@names   = eval { $c->typedef_names };
ok( $@, '' );
$n_names = eval { $c->typedef_names };
ok( $@, '' );

@defs    = eval { $c->typedef };
ok( $@, '' );
$n_defs  = eval { $c->typedef };
ok( $@, '' );

ok( $n_names, 9, "wrong number of typedefs has been parsed" );
ok( $n_names, $n_defs, "typedef_names/typedef mismatch" );
ok( scalar @names, $n_names, "typedef_names array/scalar mismatch" );
ok( scalar @defs,  $n_defs,  "typedef array/scalar mismatch" );

#-----------------------------------------------------
# some heavy typedefing ;-)
#-----------------------------------------------------

eval {
  $c->clean->IntSize(4)->parse(<<ENDC);
typedef int a;                            //   4
typedef a b;                              //   4
typedef b c[5];                           //  20
typedef c d;                              //  20
typedef d e[10];                          // 200
typedef e f;                              // 200
typedef struct { struct { f x; }; } g[2]; // 400
ENDC
};
ok( $@, '', 'parse() failed' );

$r = eval { $c->def('f') };
ok( $@, '' );
ok( $r,'typedef');

$r = eval { $c->offsetof('f', '[1][2]+1') };
ok( $@, '' );
ok( $r, 29 );

$r = eval { $c->offsetof('f[9]', '[1]+2') };
ok( $@, '' );
ok( $r, 6 );

$r = eval { $c->sizeof('f[9]') };
ok( $@, '' );
ok( $r, 20 );

$r = eval { $c->sizeof('g') };
ok( $@, '' );
ok( $r, 400 );

$r = eval { $c->typeof('f[9]') };
ok( $@, '' );
ok( $r, 'd' );

$r = eval { $c->member('f', 29) };
ok( $@, '' );
ok( $r, '[1][2]+1' );

$r = eval { $c->member('f[9]', 6) };
ok( $@, '' );
ok( $r, '[1]+2' );

$r = eval { $c->member('g', 256) };
ok( $@, '' );
ok( $r, '[1].x[2][4]' );

ok( scalar @warn, 0, "unexpected warnings" );
print "# $_" for @warn;