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