#!perl
use strict;
use warnings;
use Test::More;
use FFI::Raw;
my $isalpha = FFI::Raw -> new(undef, 'isalpha', FFI::Raw::int, FFI::Raw::int);
isa_ok $isalpha, 'FFI::Raw';
ok $isalpha -> call(ord 'a');
ok !$isalpha -> call(ord '0');
done_testing;