Config-AutoConf
view release on metacpan or search on metacpan
t/02.compile.t view on Meta::CPAN
114115116117118119120121122123124125126127128129130131132133134135136137#include \"perl.h\"
#include \"XSUB.h\""
}
),
"Check struct regexp"
);
Config::AutoConf->write_config_h();
ok(-f
"config.h"
,
"default config.h created"
);
my
$fsize
;
ok(
$fsize
= (
stat
(
"config.h"
))[7],
"config.h contains content"
);
$ac
->write_config_h();
ok(-f
"config.h"
,
"default config.h created"
);
cmp_ok((
stat
(
"config.h"
))[7],
">"
,
$fsize
,
"2nd config.h is bigger than first (more checks made)"
);
my
(
$fh
,
$fbuf
,
$dbuf
);
open
(
$fh
,
"<"
,
"config.h"
);
{
local
$/;
$fbuf
= <
$fh
>; }
close
(
$fh
);
if
($] < 5.008)
{
$fh
= IO::String->new(
$dbuf
);
( run in 0.347 second using v1.01-cache-2.11-cpan-0d8aa00de5b )