view release on metacpan or  search on metacpan

t/01-xs.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test::Alien::CPP;
use Test::Alien::Diag;
use Alien::Boost::Headers;
 
alien_diag 'Alien::Boost::Headers';
 
alien_ok 'Alien::Boost::Headers';
 
subtest xs => sub {
 
  my $xs = <<'EOM';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <boost/version.hpp>

#ifdef do_open(a,b,c,d,e,f,g)
#undef do_open(a,b,c,d,e,f,g)
#undef do_open
#undef do_close(a,b)
#undef do_close
#endif
#ifndef do_open
#define do_open                 Perl_do_open
#define do_open(a,b,c,d,e,f,g)  Perl_do_open(aTHX_ a,b,c,d,e,f,g)
#define do_close                Perl_do_close
#define do_close(a,b)           Perl_do_close(aTHX_ a,b)
#endif


MODULE = Boost::Headers PACKAGE = Boost::Headers
 
int 
main()
    INIT:
    CODE:
      printf("Boost version %s", BOOST_LIB_VERSION);
      RETVAL = 1;
    OUTPUT:
      RETVAL
EOM
 
  xs_ok $xs, with_subtest {
    ok(Boost::Headers::main());
  };
 
};
 
done_testing;