vcs.maemo.org Git - pkg-perl/blob - deb-src/libextutils-xspp-perl/libextutils-xspp-perl-0.07/t/031_verbatim_blocks.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use t::lib::XSP::Test tests => 2;
   6
   7 run_diff xsp_stdout => 'expected';
   8
   9 __DATA__
  10
  11 === Verbatim blocks
  12 --- xsp_stdout
  13 %module{Foo};
  14 %package{Foo};
  15
  16 %{
  17 Straight to XS, no checks...
  18 %}
  19 --- expected
  20 MODULE=Foo
  21
  22 MODULE=Foo PACKAGE=Foo
  23
  24
  25 Straight to XS, no checks...
  26
  27 === Space after verbatim blocks
  28 --- xsp_stdout
  29 %module{Foo};
  30
  31 class X
  32 {
  33 %{
  34 Straight to XS, no checks...
  35 %}
  36     int foo(int a);
  37 };
  38 --- expected
  39 MODULE=Foo
  40
  41 MODULE=Foo PACKAGE=X
  42
  43
  44 Straight to XS, no checks...
  45
  46
  47 int
  48 X::foo( a )
  49     int a