dist/ExtUtils-ParseXS/t/514-t-embed.t

   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