use strict;
use warnings;
use Test::More tests => 4;
use FFI;
use FFI::Library;
# Load the C and Math libraries
use lib "./t";
use Support;
# Function addresses
my $atoi = address($libc, "atoi");
my $strlen = address($libc, "strlen");
my $pow = address($libm, "pow");
is FFI::call($atoi, 'cip', "12"), 12, 'atoi(12)';
is FFI::call($atoi, 'cip', "-97"), -97, 'atoi(-97)';
is FFI::call($pow, 'cddd', 2, 0.5), 2**0.5, 'pow(2,0.5)';
is FFI::call($strlen, 'cIp', "Perl"), 4, 'strlen("Perl")';