?????????? ????????? - ??????????????? - /home/.cpan/build/Devel-CheckLib-1.16-0/t/found.t
???????
use strict; # compatible use warnings BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } } use lib 't/lib'; use Capture::Tiny qw(capture); use Config; use File::Spec; use Test::More; eval "use Devel::CheckLib"; if($@ =~ /Couldn't find your C compiler/) { plan skip_all => "Couldn't find your C compiler"; } else { eval "use Helper qw/create_testlib/"; } my $debug = $ENV{DEVEL_CHECKLIB_DEBUG} || 0; # compile a test library my $libdir = create_testlib("bazbam"); my @lib = $^O eq 'MSWin32' # if Win32 (not Cygwin) ... ? ( $Config{cc} =~ /(^|^\w+ )bcc/ # FIXME - find a second Borland lib ? ('cc3250', 'cc3250') # ... Borland : ('msvcrt', 'kernel32') # ... otherwise assume Microsoft ) : qw(m c) # default to Unix-style ; # cases are strings to interpolate into the assert_lib call my @cases = ( qq/lib => '$lib[0]'/, qq/lib => '$lib[1]'/, qq/lib => ['$lib[0]', '$lib[1]']/, ); push @cases, qq{lib => 'bazbam', libpath => '$libdir'} if $libdir; plan tests => 2 * scalar @cases; for my $c ( @cases ) { my $error; my ($stdout, $stderr) = capture { eval "assert_lib(debug => $debug, $c)"; $error = $@; }; is($error, q{}, "$c") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n"); ok(check_lib(debug => $debug, eval($c)), "... and check_lib is true"); }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????