use strict;
use FindBin ();
use lib $FindBin::Bin;
use testlib;
use Test::More tests => 3;
use Path::Class qw( file dir );
my $inc = dir($FindBin::Bin, 'c');
my $options = "-I$inc -L$inc -DFOO=22";
my $tcc = FFI::TinyCC->new;
eval { $tcc->set_options($options) };
is $@, '', 'tcc.set_options';
eval { $tcc->compile_string(q{
#include "foo.h"
int
main(int argc, char *argv[])
{
return FOO;
}
})};
is $@, '', 'tcc.compile_string';
is $tcc->run, 22, 'tcc.run';