source: vendor/perl/5.8.8/lib/ExtUtils/t/MM_OS2.t

#!/usr/bin/perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
    else {
        unshift @INC, 't/lib';
    }
}
chdir 't';

use strict;
use Test::More;
if ($^O =~ /os2/i) {
        plan( tests => 32 );
} else {
        plan( skip_all => "This is not OS/2" );
}

# for dlsyms, overridden in tests
BEGIN {
        package ExtUtils::MM_OS2;
        use subs 'system', 'unlink';
}

# for maybe_command
use File::Spec;

use_ok( 'ExtUtils::MM_OS2' );
ok( grep( 'ExtUtils::MM_OS2',  @MM::ISA), 
        'ExtUtils::MM_OS2 should be parent of MM' );

# dlsyms
my $mm = bless({ 
        SKIPHASH => { 
                dynamic => 1 
        }, 
        NAME => 'foo:bar::',
}, 'ExtUtils::MM_OS2');

is( $mm->dlsyms(), '', 
        'dlsyms() should return nothing with dynamic flag set' );

$mm->{BASEEXT} = 'baseext';
delete $mm->{SKIPHASH};
my $res = $mm->dlsyms();