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