view release on metacpan or  search on metacpan

t/alien_serd.t  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
    ->out_like(qr/serdi\s+([0-9.]+)/);
}
 
my $xs = <<'END';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
 
#include "serd/serd.h"
 
bool wrap_serd_uri_string_has_scheme( const char* class, const uint8_t *utf8) {
  return serd_uri_string_has_scheme(utf8);
}
 
MODULE = main PACKAGE = main
 
bool wrap_serd_uri_string_has_scheme(class, utf8)
  const char* class
  const char* utf8
 
END
xs_ok $xs, with_subtest {
  my ($module) = @_;
  ok !! $module->wrap_serd_uri_string_has_scheme("http://example.com"), 'has scheme';
  ok ! $module->wrap_serd_uri_string_has_scheme("example.com"), 'no scheme';
};
 
ffi_ok { symbols => [ 'serd_uri_string_has_scheme' ] }, with_subtest {
  my $ffi = shift;