Commit | Line | Data |
---|---|---|
99da4e5f S |
1 | #!/usr/bin/perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | # tests for generating embedded typemaps | |
6 | ||
7 | use Test::More tests => 1; | |
8 | use ExtUtils::Typemaps; | |
9 | ||
10 | SCOPE: { | |
11 | my $map = ExtUtils::Typemaps->new(); | |
12 | $map->add_string(string => <<HERE); | |
13 | char* T_PV | |
14 | HERE | |
15 | is($map->as_embedded_typemap(), <<'HERE', "Embedded typemap as expected"); | |
16 | TYPEMAP: <<END_TYPEMAP; | |
17 | TYPEMAP | |
18 | char* T_PV | |
19 | ||
20 | END_TYPEMAP | |
21 | HERE | |
22 | } | |
23 | ||
24 |