The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict; use warnings;
use lib -e 't' ? 't' : 'test';
use TestInlineSetup;

use Test::More;

use Inline Config => DIRECTORY => $TestInlineSetup::DIR;

BEGIN {
    eval "require Inline::Files";
    if ($@) {
        warn "Skipping - couldn't load the Inline::Files module\n";
        print "1..1\nok 1\n";
        exit 0;
    }
}

use Inline::Files;

BEGIN {
    plan(tests => 1,
         todo => [],
         onfail => sub {},
    );
}

# test 1
# Make sure that Inline::Files support works
use Inline Foo => 'BELOW';
ok(test1('test1'));

__FOO__

foo-sub test1 {
    foo-return $_[0] foo-eq 'test1';
}