view release on metacpan or  search on metacpan

t/alien_libnewrelic.t  view on Meta::CPAN

#include "perl.h"
#include "XSUB.h"
#include <libnewrelic.h>

MODULE = TA_MODULE PACKAGE = TA_MODULE

const char* version(class)
    const char *class
  CODE:
    RETVAL = newrelic_version();
  OUTPUT:
    RETVAL
EOF

xs_ok $xs, with_subtest {
  my($nr) = @_;
  my $version = $nr->version;
  is($version, Alien::libnewrelic->version);
};

ffi_ok with_subtest {