use lib 't/lib'; use Test2::V0 -no_srand => 1; use Test2::Plugin::FauxOS 'linux'; use Test2::Tools::FauxDynaLoader; use Test2::Tools::NoteStderr qw( note_stderr ); use FFI::CheckLib; use File::Basename qw( basename ); @$FFI::CheckLib::system_path = ( 'corpus/unix/usr/lib', 'corpus/unix/lib', ); my $mock1 = mock_dynaloader; subtest 'find_lib (good)' => sub { my($path) = find_lib( lib => 'foo' ); ok -r $path, "path = $path is readable"; my $path2 = find_lib( lib => 'foo' ); is $path, $path2, 'scalar context'; my $dll = TestDLL->new($path); is $dll->name, 'foo', 'dll.name = foo'; is $dll->version, '1.2.3', 'dll.version = 1.2.3'; }; subtest 'find_lib (fail)' => sub { my @path = find_lib( lib => 'foobar' ); ok @path == 0, 'libfoobar not found'; }; subtest 'find_lib list' => sub { my @path = find_lib( lib => [ 'foo', 'bar' ] ); ok -r $path[0], "path[0] = $path[0] is readable"; ok -r $path[1], "path[1] = $path[1] is readable"; subtest foo => sub { my($foo) = grep { $_->name eq 'foo' } map { TestDLL->new($_) } @path; is $foo->name, 'foo', 'dll.name = foo'; is $foo->version, '1.2.3', 'dll.version = 1.2.3'; }; subtest bar => sub { my($bar) = grep { $_->name eq 'bar' } map { TestDLL->new($_) } @path; is $bar->name, 'bar', 'dll.name = bar'; is $bar->version, '1.2.3', 'dll.version = 1.2.3'; }; }; subtest 'find_lib libpath' => sub { my($path) = find_lib( lib => 'foo', libpath => 'corpus/unix/custom' ); ok -r $path, "path = $path is readable"; my $dll = TestDLL->new($path); is $dll->name, 'foo', 'dll.name = foo'; is $dll->version, '1.2.3a', 'dll.version = 1.2.3a'; }; subtest 'find_lib libpath (list)' => sub { my($path) = find_lib( lib => 'foo', libpath => ['corpus/unix/custom']); ok -r $path, "path = $path is readable"; my $dll = TestDLL->new($path); is $dll->name, 'foo', 'dll.name = foo'; is $dll->version, '1.2.3a', 'dll.version = 1.2.3a'; }; subtest 'find_lib symbol' => sub { my($path) = find_lib( lib => 'foo', symbol => 'foo_init' ); ok -r $path, "path = $path is readable"; my $dll = TestDLL->new($path); is $dll->name, 'foo', 'dll.name = foo'; is $dll->version, '1.2.3', 'dll.version = 1.2.3'; }; subtest 'find_lib symbol (bad)' => sub { my @path = find_lib( lib => 'foo', symbol => 'foo_initx' ); ok @path == 0, 'no path found'; }; subtest 'find_lib symbol (list)' => sub { my($path) = find_lib( lib => 'foo', symbol => ['foo_init', 'foo_new', 'foo_delete'] ); ok -r $path, "path = $path is readable"; my $dll = TestDLL->new($path); is $dll->name, 'foo', 'dll.name = foo'; is $dll->version, '1.2.3', 'dll.version = 1.2.3'; }; subtest 'find_lib symbol (list) (bad)' => sub { my @path = find_lib( lib => 'foo', symbol => ['foo_init', 'foo_new', 'foo_delete', 'bogus'] ); ok @path == 0, 'no path found'; }; subtest 'assert_lib' => sub { subtest 'found' => sub { eval { assert_lib( lib => 'foo' ) }; is $@, '', 'no exception'; }; subtest 'not found' => sub { eval { assert_lib( lib => 'foobar') }; isnt $@, '', 'exception'; }; }; subtest 'check_lib' => sub { is check_lib( lib => 'foo' ), 1, 'found'; is check_lib( lib => 'foobar'), 0, 'not found'; }; subtest 'verify bad' => sub { my @lib = find_lib( lib => 'foo', verify => sub { 0 }, ); ok @lib == 0, 'returned empty list'; @lib = find_lib( lib => 'foo', verify => [ sub { 0 } ], ); ok @lib == 0, 'returned empty list'; }; subtest 'verify' => sub { my($lib) = find_lib( lib => 'foo', verify => sub { my($name, $path) = @_; my $lib = TestDLL->new($path); $lib->version ne '1.2.3' }, ); ok -r $lib, "path = $lib is readable"; my $dll = TestDLL->new($lib); is $dll->name, 'foo', 'dll.name = foo'; is $dll->version, '2.3.4', 'dll.version = 2.3.4'; }; subtest 'symlink' => sub { # TODO: this test only gets run out of git, since Dist::Zilla # converts the symlinks into real files :/ skip_all 'Test requires a system with proper symlinks' unless -l 'corpus/unix/usr/lib/libxor.so' && readlink('corpus/unix/usr/lib/libxor.so'); subtest 'multiple versions of the same lib' => sub { my($lib) = find_lib( lib => 'xor', ); is(basename($lib), 'libxor.so.1.2.4'); }; subtest 'broken symlink' => sub { my($lib) = find_lib( lib => 'ganon', ); is($lib, undef); }; subtest 'infinite recurse symlink' => sub { my($lib) = find_lib( lib => 'link', ); is($lib, undef); }; }; subtest 'prefer newer' => sub { my($lib) = find_lib( lib => 'crypto', ); is($lib, T()); is(basename($lib), 'libcrypto.so.1.0.0'); note "lib = $lib"; }; sub p { my($path) = @_; $path =~ s{/}{\\}g if $^O eq 'MSWin32'; $path; } subtest '_cmp' => sub { my $process = sub { [ sort { FFI::CheckLib::_cmp($a,$b) } map { FFI::CheckLib::_matches($_, '/lib') } @_ ]; }; is( $process->(qw( libfoo.so.1.2.3 libbar.so.3.4.5 libbaz.so.0.0.0 )), [ [ 'bar', p('/lib/libbar.so.3.4.5'), 3,4,5 ], [ 'baz', p('/lib/libbaz.so.0.0.0'), 0,0,0 ], [ 'foo', p('/lib/libfoo.so.1.2.3'), 1,2,3 ], ], 'name first 1', ); is( $process->(qw( libbaz.so.0.0.0 libfoo.so.1.2.3 libbar.so.3.4.5 )), [ [ 'bar', p('/lib/libbar.so.3.4.5'), 3,4,5 ], [ 'baz', p('/lib/libbaz.so.0.0.0'), 0,0,0 ], [ 'foo', p('/lib/libfoo.so.1.2.3'), 1,2,3 ], ], 'name first 2', ); is( $process->(qw( libbar.so.3.4.5 libbaz.so.0.0.0 libfoo.so.1.2.3 )), [ [ 'bar', p('/lib/libbar.so.3.4.5'), 3,4,5 ], [ 'baz', p('/lib/libbaz.so.0.0.0'), 0,0,0 ], [ 'foo', p('/lib/libfoo.so.1.2.3'), 1,2,3 ], ], 'name first 3', ); is( $process->(qw( libfoo.so.1.2.3 libfoo.so libfoo.so.1.2 libfoo.so.1 )), [ [ 'foo', p('/lib/libfoo.so'), ], [ 'foo', p('/lib/libfoo.so.1'), 1 ], [ 'foo', p('/lib/libfoo.so.1.2'), 1,2 ], [ 'foo', p('/lib/libfoo.so.1.2.3'), 1,2,3 ], ], 'no version before version', ); is( $process->(qw( libfoo.so.2.3.4 libfoo.so.1.2.3 libfoo.so.3.4.5 )), [ [ 'foo', p('/lib/libfoo.so.3.4.5'), 3,4,5 ], [ 'foo', p('/lib/libfoo.so.2.3.4'), 2,3,4 ], [ 'foo', p('/lib/libfoo.so.1.2.3'), 1,2,3 ], ], 'newer version first', ); }; done_testing;