12345678910 use strict;use warnings;use FindBin ();use lib $FindBin::Bin;use testlib;use Test::More tests => 2;use FFI::TinyCC::Inline qw( tcc_eval );is tcc_eval(q{ int main() { return 1+1; } }), 2;is tcc_eval(q{ const char *main() { return "hello"; } }), "hello";
use
strict;
warnings;
FindBin ();
lib
$FindBin::Bin
;
testlib;
Test::More
tests
=> 2;
FFI::TinyCC::Inline
qw( tcc_eval )
is tcc_eval(
q{ int main() { return 1+1; }
}), 2;
q{ const char *main() { return "hello"; }
}),
"hello"