1use strict; use warnings; 2use lib -e 't' ? 't' : 'test'; 3use TestInlineSetup; 4 5use Test::More tests => 1; 6 7BEGIN { 8 delete $ENV{PERL_INLINE_DIRECTORY}; 9 delete $ENV{HOME}; 10} 11 12# Make sure Inline can generate a new _Inline/ directory. 13# (But make sure it's in our own space.) 14use Inline Config => DIRECTORY => $TestInlineSetup::DIR; 15use Inline 'Foo'; 16ok(add(3, 7) == 10, 'in own DID'); 17 18__END__ 19 20__Foo__ 21foo-sub add { foo-return $_[0] + $_[1]; } 22