#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use ExtUtils::Typemaps;
SCOPE: {
my $map = ExtUtils::Typemaps->new();
$map->add_typemap(ctype => 'unsigned int', xstype => 'T_UV');
$map->add_inputmap(xstype => 'T_UV', code => ' $var = ($type)SvUV($arg);');
is($map->as_string(), <<'HERE', "Simple typemap (with input and code including leading whitespace) matches expectations");
TYPEMAP
unsigned int T_UV
INPUT
T_UV
$var = ($type)SvUV($arg);
HERE
}
SCOPE: {
my $map = ExtUtils::Typemaps->new();
$map->add_typemap(ctype => 'unsigned int', xstype => 'T_UV');
$map->add_inputmap(xstype => 'T_UV', code => " \$var =\n(\$type)\n SvUV(\$arg);");
is($map->as_string(), <<'HERE', "Simple typemap (with input and multi-line code) matches expectations");
TYPEMAP
unsigned int T_UV
INPUT
T_UV
$var =
($type)
SvUV($arg);
HERE
}