Perl China Blog Spot: 2010-09-12

2010年9月17日星期五

[PerlChina] [OT]NDM-1开始在美国多个州出现了

最先在个把月之前柳叶刀上看到NDM-1的消息，今天突然看到这东东开始在美国好多个州出现了，不会变成第二个SARS吧

Check out this article that I saw in USA TODAY's iPhone application.

Drug-resistant 'superbugs' hit 20 states, spread worldwide
http://usat.me?40168080

To view the story, click the link or paste it into your browser.

To learn more about USA TODAY for iPhone and download, visit: http://usatoday.com/iphone/

Sent from my iPod

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

2010年9月16日星期四

[PerlChina] 请教在nginx中如何在返回的header中后端server的端口，ip等的问题

记得在五道口的聚会上，好像agent提到过可以用nginx来实现这一功能，希望能在header中得知，此次负责执行的到底是哪个ip,哪个端口的server,
不知道是怎么实现的，我只找到了add_header这么一个方法，却不知道如何获得到像127.0.1:8001这样的数据进行返回，
下面是我的部分nginx.conf配置
    upstream frontends {
        server 127.0.0.1:8001   max_fails=3 fail_timeout=30s;
        server 127.0.0.1:8002;
    }

            proxy_pass_header Server;
            proxy_set_header Host $http_host;实现的
            proxy_redirect off;
            proxy_set_header X-Real-IP $remote_addr;
            proxy_set_header X-Scheme $scheme;
            proxy_pass http://frontends;

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

[PerlChina] Re: 如何测试完全打开指定url的速度？如何统计一个页面元素(js,css)的个数？

1.如何定义完全打开url的速度,从发出请求到全部展示出来?(是否考虑带宽影响,有些异步调用的网站可能全部展示很慢,但是大部分内容很快就下载完
并展示出来了.不晓得如何定义完全打开指定url的速度,我猜测你可能是问时间的?)
2.统计页面元素用正则啊,3p都可以做.
匹配全部html => header => {meta,link,style,script} (这只是header内的,body的很少统
计.)

On Sep 15, 10:42 am, li <yzhk...@gmail.com> wrote:
> RT!
>
> 不像用webwait。打算批量做一下。求指点！！！
>
> 用perl,php,python都可以！

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

2010年9月15日星期三

[PerlChina] Re: 安装Log-Dispatch-2.26模块 make test出错

真是不甘心啊～～～不过看现在的情况，只有安装sun的cc了(将近五百兆o_O 正在下载......)。

这个问题还是open状态，如果哪位有在solaris下用gcc（而非solaris的cc）编译perl模块的经验，还请指教。

On Sep 14, 12:19 pm, "woosley. xu." <redic...@gmail.com> wrote:
> export CC=gcc？
> 我以前也尝试用gcc编译过solaris下的模块
> 问题的确很多，最后还是安装了个sun的cc
>
> 在 2010年9月14日上午11:50，ZHANG Jiaqiang A <Jiaqiang.a.Zh...@alcatel-sbell.com.cn
>
>
>
> >写道：
>
> > 我猜想会不会因为Config.pm里面的信息有不统一的地方呢？问题是如何确定该修改哪个Config.pm文件，另外该如何修改Config.pm文件呢？
>
> > 昨天我安装了某个模块后，(不记得具体是哪个了) 再调用perlgcc
> > Makefile.PL的时候就总会开始出现下面的warning，以这次编译ExtUtils-ParseXS-2.2206为例：
>
> > # perlgcc Makefile.PL
> > Have /usr/perl5/5.8.4/lib/Sun/Solaris/PerlGcc
> > Want /usr/perl5/5.8.4/lib/sun4-solaris-64int
> > Your perl and your Config.pm seem to have different ideas about the
> > architecture they are running on.
> > Perl thinks: [PerlGcc]
> > Config says: [sun4-solaris-64int]
> > This may or may not cause problems. Please check your installation of perl
> > if you have problems building this extension.
> > Writing Makefile for ExtUtils::ParseXS
>
> > 我刚才查看测试文件more.t，应该是在38行的have_comiler（ExtUtils::CBuilder）的时候返回空，所以把相关编译的cases都跳过了。看文档ExtUtils::CBuilder是从Config.pm
> > 读取编译工具的相关信息。我猜想我的编译方式比较特殊（在Solaris下用gcc编译而不是cc），所以它没能找到gcc ?
>
> > =============more.t==============================
> > 33 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
> > 34 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
> > 35
> > 36 SKIP: {
> > * 37 skip "no compiler available", 2
> > 38 if ! $b->have_compiler;*
> > 39 $obj_file = $b->compile( source => $source_file );
> > 40 ok $obj_file;
> > 41 ok -e $obj_file, "Make sure $obj_file exists";
> > 42 }
>
> > ------------------------------
> > *From:* ZHANG Jiaqiang A
> > *Sent:* 2010年9月14日 10:47
> > *To:* 'perlchina@googlegroups.com'
> > *Subject:* RE: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错
>
> > 多谢，这回执行成功了。
>
> > 似乎前面的很多case都跳过去了，没找到编译器么？这台机器安装的是标准solaris，莫非是root的环境变量弄得不对？
>
> > # perl -Mlib=./lib,./blib/lib,./blib/arch t/more.t
> > 1..25
> > ok 1 - require ExtUtils::ParseXS;
> > ok 2 - Create an output file
> > ok 3 # skip no compiler available
> > ok 4 # skip no compiler available
> > ok 5 # skip no dynamic loading
> > ok 6 # skip no dynamic loading
> > ok 7 # skip no dynamic loading
> > ok 8 # skip no dynamic loading
> > ok 9 # skip no dynamic loading
> > ok 10 # skip no dynamic loading
> > # Looks like you planned 25 tests but ran 10.
>
> > # which gcc
> > /usr/sfw/bin/gcc
> > # gcc -v
> > Reading specs from /usr/sfw/lib/gcc/sparc-sun-solaris2.10/3.4.3/specs
> > Configured with:
> > /sfw10/builds/build/sfw10-patch/usr/src/cmd/gcc/gcc-3.4.3/configure
> > --prefix=/usr/sfw --with-as=/usr/ccs/bin/as --without-gnu-as
> > --with-ld=/usr/ccs/bin/ld --without-gnu-ld --enable-languages=c,c++
> > --enable-shared
> > Thread model: posix
> > gcc version 3.4.3 (csl-sol210-3_4-branch+sol_rpath)
> > # env
> > HOME=/root
> > HZ=
> > LD_LIBRARY_PATH=/usr/local/lib
> > LOGNAME=root
> > MAIL=/var/mail/root
> > PATH=/usr/sbin:/usr/bin:/usr/sfw/bin:/usr/ccs/bin:/usr/perl5/bin
> > SHELL=/sbin/sh
> > TERM=xterm
> > TZ=PRC
>
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com<perlchina%2Bunsubscribe@googlegroups.com>
> > 。
> > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。
>
> --
> Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

还可以考虑 PAR::Packer

比如说，先在某台有网络的机器上装好一个模块：Statistics::Basic

$ pp -B -p -o stat-basic-all.par -e 'use Statistics::Basic qw(:all)'

$ unzip -l stat-basic-all.par | head

Archive: stat-basic-all.par

Length Date Time Name

--------- ---------- ----- ----

0 2010-09-16 11:56 lib/

0 2010-09-16 11:56 script/

21749 2010-09-16 11:56 MANIFEST

225 2010-09-16 11:56 META.yml

5428 2010-09-16 11:56 lib/AutoLoader.pm

8092 2010-09-16 11:56 lib/B.pm

1477 2010-09-16 11:56 lib/Carp.pm

然后把 par 文件拷贝到目标机器上（那台机器需要预先安装 PAR）

$ perl -MPAR=./stat-basic-all.par -MStatistics::Basic=:all -le 'print median( 1,2,3 )'

这样以后只要在程序引用此模块之前加上 use PAR qw(./stat-basic-all.par) 就好了。

2010/9/16 Robincui <cuiyuming@gmail.com>

我的方法是：
在有外网机器上cpan安装个http proxy模块，写2行代码跑起来
没外网机器cpan指定前边的http proxy，依赖问题就解决了

发自我的 iPad

在 2010-9-14，8:36，rochelle hsu <rjhome@gmail.com> 写到：

PERL有啥好的模块安装方法不？（不能上网的主机）。碰到这种依赖关系一堆的模块，安装是个头痛的问题。

2010/9/13 Qiang (James) <shijialee@gmail.com>

On 09/13/2010 08:49 PM, ZHANG Jiaqiang A wrote:
> 大家好，
> 求高手给出出主意
> 我想安装Log-Dispatch-2.26，然后被告知缺少Params::Validate，安装Params-
> Validate-0.95，缺少Module::Build，安装Module-Build-0.3607，被告知缺少
> ExtUtils::ParseXS，安装ExtUtils-ParseXS-2.2206，make test的时候出错。
> 这是台机房里的Solaris server，无法上网。只能把各个软件从CPAN上下载
> 了，1)perlgcc Makefile.PL 2)make 3)make test 4) make install。
>

你可以在能上网的相同环境的系统里 CPAN 下载，安装。然后再复制到你这个系统
里，这样会省事不少。

至于这个模块 make test 的问题，你可以尝试跳过 make test,直接 make
install。或者看一下具体 t/more.t 里的那个 test 没有通过，再尝试解决。

另外，（可能没有多大关系）我在 Ubuntu Lucid 里手动装了下这个模块，没问题。

> # make test
> PERL_DL_NONLAZY=1 /usr/perl5/5.8.4/bin/perl
> "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib',
> 'blib/arch')" t/*.t
> t/basic.t .. ok
> t/more.t ... 1/25 # Looks like you planned 25 tests but ran 10.
> t/more.t ... Dubious, test returned 255 (wstat 65280, 0xff00)
> Failed 15/25 subtests
> (less 8 skipped subtests: 2 okay)
> t/usage.t .. ok
> Test Summary Report
> -------------------
> t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
> Non-zero exit status: 255
> Parse errors: Bad plan. You planned 25 tests but ran 10.
> Files=3, Tests=44, 2 wallclock secs ( 0.12 usr 0.03 sys + 1.20 cusr
> 0.12 csys = 1.47 CPU)
> Result: FAIL
> Failed 1/3 test programs. 0/44 subtests failed.
> *** Error code 29
> make: Fatal error: Command failed for target `test_dynamic'

Qiang

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

我的方法是：

在有外网机器上cpan安装个http proxy模块，写2行代码跑起来

没外网机器cpan指定前边的http proxy，依赖问题就解决了

发自我的 iPad

在 2010-9-14，8:36，rochelle hsu <rjhome@gmail.com> 写到：

PERL有啥好的模块安装方法不？（不能上网的主机）。碰到这种依赖关系一堆的模块，安装是个头痛的问题。

2010/9/13 Qiang (James) <shijialee@gmail.com>

On 09/13/2010 08:49 PM, ZHANG Jiaqiang A wrote:
> 大家好，
> 求高手给出出主意
> 我想安装Log-Dispatch-2.26，然后被告知缺少Params::Validate，安装Params-
> Validate-0.95，缺少Module::Build，安装Module-Build-0.3607，被告知缺少
> ExtUtils::ParseXS，安装ExtUtils-ParseXS-2.2206，make test的时候出错。
> 这是台机房里的Solaris server，无法上网。只能把各个软件从CPAN上下载
> 了，1)perlgcc Makefile.PL 2)make 3)make test 4) make install。
>

你可以在能上网的相同环境的系统里 CPAN 下载，安装。然后再复制到你这个系统
里，这样会省事不少。

至于这个模块 make test 的问题，你可以尝试跳过 make test,直接 make
install。或者看一下具体 t/more.t 里的那个 test 没有通过，再尝试解决。

另外，（可能没有多大关系）我在 Ubuntu Lucid 里手动装了下这个模块，没问题。

> # make test
> PERL_DL_NONLAZY=1 /usr/perl5/5.8.4/bin/perl
> "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib',
> 'blib/arch')" t/*.t
> t/basic.t .. ok
> t/more.t ... 1/25 # Looks like you planned 25 tests but ran 10.
> t/more.t ... Dubious, test returned 255 (wstat 65280, 0xff00)
> Failed 15/25 subtests
> (less 8 skipped subtests: 2 okay)
> t/usage.t .. ok
> Test Summary Report
> -------------------
> t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
> Non-zero exit status: 255
> Parse errors: Bad plan. You planned 25 tests but ran 10.
> Files=3, Tests=44, 2 wallclock secs ( 0.12 usr 0.03 sys + 1.20 cusr
> 0.12 csys = 1.47 CPU)
> Result: FAIL
> Failed 1/3 test programs. 0/44 subtests failed.
> *** Error code 29
> make: Fatal error: Command failed for target `test_dynamic'

Qiang

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

[PerlChina] 如何测试完全打开指定url的速度？如何统计一个页面元素(js,css)的个数？

RT!

不像用webwait。打算批量做一下。求指点！！！

用perl,php,python都可以！

2010年9月13日星期一

Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

export CC=gcc？
我以前也尝试用gcc编译过solaris下的模块
问题的确很多，最后还是安装了个sun的cc

在 2010年9月14日上午11:50，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

我猜想会不会因为Config.pm里面的信息有不统一的地方呢？问题是如何确定该修改哪个Config.pm文件，另外该如何修改Config.pm文件呢？

昨天我安装了某个模块后，(不记得具体是哪个了) 再调用perlgcc Makefile.PL的时候就总会开始出现下面的warning，以这次编译ExtUtils-ParseXS-2.2206为例：

# perlgcc Makefile.PL
Have /usr/perl5/5.8.4/lib/Sun/Solaris/PerlGcc
Want /usr/perl5/5.8.4/lib/sun4-solaris-64int
Your perl and your Config.pm seem to have different ideas about the
architecture they are running on.
Perl thinks: [PerlGcc]
Config says: [sun4-solaris-64int]
This may or may not cause problems. Please check your installation of perl
if you have problems building this extension.
Writing Makefile for ExtUtils::ParseXS

我刚才查看测试文件more.t，应该是在38行的have_comiler（ExtUtils::CBuilder）的时候返回空，所以把相关编译的cases都跳过了。看文档ExtUtils::CBuilder是从Config.pm 读取编译工具的相关信息。我猜想我的编译方式比较特殊（在Solaris下用gcc编译而不是cc），所以它没能找到gcc ?

    =============more.t==============================

    33 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
    34 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
    35
    36 SKIP: {
    37    skip "no compiler available", 2
    38      if ! $b->have_compiler;
    39    $obj_file = $b->compile( source => $source_file );
    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";
    42 }

From: ZHANG Jiaqiang A
Sent: 2010年9月14日 10:47
To: 'perlchina@googlegroups.com'
Subject: RE: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

多谢，这回执行成功了。

似乎前面的很多case都跳过去了，没找到编译器么？这台机器安装的是标准solaris，莫非是root的环境变量弄得不对？

# perl -Mlib=./lib,./blib/lib,./blib/arch t/more.t
1..25
ok 1 - require ExtUtils::ParseXS;
ok 2 - Create an output file
ok 3 # skip no compiler available
ok 4 # skip no compiler available
ok 5 # skip no dynamic loading
ok 6 # skip no dynamic loading
ok 7 # skip no dynamic loading
ok 8 # skip no dynamic loading
ok 9 # skip no dynamic loading
ok 10 # skip no dynamic loading
# Looks like you planned 25 tests but ran 10.

# which gcc
/usr/sfw/bin/gcc
# gcc -v
Reading specs from /usr/sfw/lib/gcc/sparc-sun-solaris2.10/3.4.3/specs
Configured with: /sfw10/builds/build/sfw10-patch/usr/src/cmd/gcc/gcc-3.4.3/configure --prefix=/usr/sfw --with-as=/usr/ccs/bin/as --without-gnu-as --with-ld=/usr/ccs/bin/ld --without-gnu-ld --enable-languages=c,c++ --enable-shared
Thread model: posix
gcc version 3.4.3 (csl-sol210-3_4-branch+sol_rpath)
# env
HOME=/root
HZ=
LD_LIBRARY_PATH=/usr/local/lib
LOGNAME=root
MAIL=/var/mail/root
PATH=/usr/sbin:/usr/bin:/usr/sfw/bin:/usr/ccs/bin:/usr/perl5/bin
SHELL=/sbin/sh
TERM=xterm
TZ=PRC

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

RE: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

我猜想会不会因为Config.pm里面的信息有不统一的地方呢？问题是如何确定该修改哪个Config.pm文件，另外该如何修改Config.pm文件呢？

昨天我安装了某个模块后，(不记得具体是哪个了) 再调用perlgcc Makefile.PL的时候就总会开始出现下面的warning，以这次编译ExtUtils-ParseXS-2.2206为例：

# perlgcc Makefile.PL
Have /usr/perl5/5.8.4/lib/Sun/Solaris/PerlGcc
Want /usr/perl5/5.8.4/lib/sun4-solaris-64int
Your perl and your Config.pm seem to have different ideas about the
architecture they are running on.
Perl thinks: [PerlGcc]
Config says: [sun4-solaris-64int]
This may or may not cause problems. Please check your installation of perl
if you have problems building this extension.
Writing Makefile for ExtUtils::ParseXS

我刚才查看测试文件more.t，应该是在38行的have_comiler（ExtUtils::CBuilder）的时候返回空，所以把相关编译的cases都跳过了。看文档ExtUtils::CBuilder是从Config.pm 读取编译工具的相关信息。我猜想我的编译方式比较特殊（在Solaris下用gcc编译而不是cc），所以它没能找到gcc ?

=============more.t==============================

    33 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
    34 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
    35
    36 SKIP: {
    37    skip "no compiler available", 2
    38      if ! $b->have_compiler;
    39    $obj_file = $b->compile( source => $source_file );
    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";
    42 }

From: ZHANG Jiaqiang A
Sent: 2010年9月14日 10:47
To: 'perlchina@googlegroups.com'
Subject: RE: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

多谢，这回执行成功了。

似乎前面的很多case都跳过去了，没找到编译器么？这台机器安装的是标准solaris，莫非是root的环境变量弄得不对？

# perl -Mlib=./lib,./blib/lib,./blib/arch t/more.t
1..25
ok 1 - require ExtUtils::ParseXS;
ok 2 - Create an output file
ok 3 # skip no compiler available
ok 4 # skip no compiler available
ok 5 # skip no dynamic loading
ok 6 # skip no dynamic loading
ok 7 # skip no dynamic loading
ok 8 # skip no dynamic loading
ok 9 # skip no dynamic loading
ok 10 # skip no dynamic loading
# Looks like you planned 25 tests but ran 10.

# which gcc
/usr/sfw/bin/gcc
# gcc -v
Reading specs from /usr/sfw/lib/gcc/sparc-sun-solaris2.10/3.4.3/specs
Configured with: /sfw10/builds/build/sfw10-patch/usr/src/cmd/gcc/gcc-3.4.3/configure --prefix=/usr/sfw --with-as=/usr/ccs/bin/as --without-gnu-as --with-ld=/usr/ccs/bin/ld --without-gnu-ld --enable-languages=c,c++ --enable-shared
Thread model: posix
gcc version 3.4.3 (csl-sol210-3_4-branch+sol_rpath)
# env
HOME=/root
HZ=
LD_LIBRARY_PATH=/usr/local/lib
LOGNAME=root
MAIL=/var/mail/root
PATH=/usr/sbin:/usr/bin:/usr/sfw/bin:/usr/ccs/bin:/usr/perl5/bin
SHELL=/sbin/sh
TERM=xterm
TZ=PRC

RE: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

多谢，这回执行成功了。

似乎前面的很多case都跳过去了，没找到编译器么？这台机器安装的是标准solaris，莫非是root的环境变量弄得不对？

# perl -Mlib=./lib,./blib/lib,./blib/arch t/more.t
1..25
ok 1 - require ExtUtils::ParseXS;
ok 2 - Create an output file
ok 3 # skip no compiler available
ok 4 # skip no compiler available
ok 5 # skip no dynamic loading
ok 6 # skip no dynamic loading
ok 7 # skip no dynamic loading
ok 8 # skip no dynamic loading
ok 9 # skip no dynamic loading
ok 10 # skip no dynamic loading
# Looks like you planned 25 tests but ran 10.

# which gcc
/usr/sfw/bin/gcc
# gcc -v
Reading specs from /usr/sfw/lib/gcc/sparc-sun-solaris2.10/3.4.3/specs
Configured with: /sfw10/builds/build/sfw10-patch/usr/src/cmd/gcc/gcc-3.4.3/configure --prefix=/usr/sfw --with-as=/usr/ccs/bin/as --without-gnu-as --with-ld=/usr/ccs/bin/ld --without-gnu-ld --enable-languages=c,c++ --enable-shared
Thread model: posix
gcc version 3.4.3 (csl-sol210-3_4-branch+sol_rpath)
# env
HOME=/root
HZ=
LD_LIBRARY_PATH=/usr/local/lib
LOGNAME=root
MAIL=/var/mail/root
PATH=/usr/sbin:/usr/bin:/usr/sfw/bin:/usr/ccs/bin:/usr/perl5/bin
SHELL=/sbin/sh
TERM=xterm
TZ=PRC

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of woosley. xu.
Sent: 2010年9月14日 10:37
To: perlchina@googlegroups.com
Subject: Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

hi
这个是由于安装过程中产生在当前目录下的lib找不到，也就是当前目录下的一些目录不在@INC里面
试试
perl -Mlib=./lib,./blib/lib,./blib/arch t/more.t

在 2010年9月14日上午10:10，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

之前我试了单独执行t/more.t，不过都没有成功。输出如下:

# /usr/perl5/5.8.4/bin/perl t/more.t
1..25
not ok 1 - require ExtUtils::ParseXS;
#   Failed test 'require ExtUtils::ParseXS;'
#   at t/more.t line 15.
#     Tried to require 'ExtUtils::ParseXS'.
#     Error: Can't locate ExtUtils/ParseXS.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at (eval 8) line 2.
Can't locate object method "process_file" via package "ExtUtils::ParseXS" at t/more.t line 27.
# Looks like you planned 25 tests but ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test exited with 255 just after 1.
# /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" t/more.t
1..25
not ok 1 - require ExtUtils::ParseXS;
#   Failed test 'require ExtUtils::ParseXS;'
#   at t/more.t line 15.
#     Tried to require 'ExtUtils::ParseXS'.
#     Error: Can't locate ExtUtils/ParseXS.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at (eval 8) line 2.
Can't locate object method "process_file" via package "ExtUtils::ParseXS" at t/more.t line 27.
# Looks like you planned 25 tests but ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test exited with 255 just after 1.

而且说实话我数了半天，都没数全25个用例。这个测试是fail在了第十个用例还是第一个用例呢？

# cat -n more.t|egrep 'ok | is'

    31 ok -e $source_file, "Create an output file";

    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";

    49    ok $lib_file;
    50    ok -e $lib_file, "Make sure $lib_file exists";

    60    is $@, '';
    61    is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';

    63    is $XSMore::boot_ok, 100, 'the BOOT keyword';

    65    ok XSMore::include_ok(), 'the INCLUDE keyword';
    66    is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';

    68    is prototype(\&XSMore::prototype_ssa),
'$$@', 'the PROTOTYPE keyword';

    70    is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
    71    is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';

    73    is XSMore::return_1(), 1, 'the CASE keyword (1)';
    74    is XSMore::return_2(), 2, 'the CASE keyword (2)';
    75    is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
    76    is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';

    78    is XSMore::arg_init(200), 200, 'argument init';

    80    ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
    81    is abs(XSMore->new), 42, 'the OVERLOAD keyword';

    85    is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';

    87    is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';

    89    is XSMore::len("foo"), 3, 'the length keyword';

    91    is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';

# cat -n more.t|egrep 'ok | is'|wc -l
      24

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of woosley. xu.
Sent: 2010年9月14日 10:00

To: perlchina@googlegroups.com
Subject: Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

直接perl t/more.t
不要用test_harness了
test_harness打印的是测试结果的统计信息，

不过我这边solaris测试是通过的

root@seaserver0:/.cpan/build/ExtUtils-ParseXS-2.2206-BLvSpp>perl t/more.t
1..25
ok 1 - require ExtUtils::ParseXS;
ok 2 - Create an output file
/opt/studio/SOS11/SUNWspro/bin/cc -I/opt/csw/lib/perl/5.10.1/CORE -KPIC -c -D_RE
ENTRANT -xO3 -xarch=v8 -I/opt/csw/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BIT
S=64 -xO3 -xarch=v8 -o XSMore.o XSMore.c
ok 3
ok 4 - Make sure XSMore.o exists
/opt/studio/SOS11/SUNWspro/bin/cc -G -L/opt/csw/lib/libperl.so -L/opt/csw/lib -L
/opt/csw/bdb47/lib -L/usr/lib -L/usr/ccs/lib -L/lib -o XSMore.so XSMore.o
ok 5
ok 6 - Make sure XSMore.so exists
ok 7
ok 8 - ExtUtils::ParseXS::errors()
ok 9 - the BOOT keyword
ok 10 - the INCLUDE keyword
ok 11 - the PROTOTYPES keyword
ok 12 - the PROTOTYPE keyword
ok 13 - the ATTRS keyword
ok 14 - ATTRS with prototype
ok 15 - the CASE keyword (1)
.........

在 2010年9月14日上午9:44，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

不好意思，这封信似乎有点长，我以前从来没有debug过make test。

如何查看出错的用例是哪一个呢？刚才我执行了一下more.t，屏幕的输出和原来的一致。

# /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/more.t

t/more.t .. 1/25 # Looks like you planned 25 tests but ran 10.
t/more.t .. Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 15/25 subtests
        (less 8 skipped subtests: 2 okay)

Test Summary Report
-------------------
t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 25 tests but ran 10.
Files=1, Tests=10, 1 wallclock secs ( 0.09 usr 0.01 sys + 0.40 cusr 0.04 csys = 0.54 CPU)
Result: FAIL
Failed 1/1 test programs. 0/10 subtests failed.

# cat -n more.t
     1 #!/usr/bin/perl
     2
     3 use strict;
     4 use Test::More;
     5 use Config;
     6 use DynaLoader;
     7 use ExtUtils::CBuilder;
     8 use attributes;
     9 use overload;
    10
    11 plan tests => 25;
    12
    13 my ($source_file, $obj_file, $lib_file);
    14
    15 require_ok( 'ExtUtils::ParseXS' );
    16 ExtUtils::ParseXS->import('process_file');
    17
    18 chdir 't' or die "Can't chdir to t/, $!";
    19
    20 use Carp; $SIG{__WARN__} = \&Carp::cluck;
    21
    22 #########################
    23
    24 $source_file = 'XSMore.c';
    25
    26 # Try sending to file
    27 ExtUtils::ParseXS->process_file(
    28          filename => 'XSMore.xs',
    29          output   => $source_file,
    30 );
    31 ok -e $source_file, "Create an output file";
    32
    33 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
    34 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
    35
    36 SKIP: {
    37    skip "no compiler available", 2
    38      if ! $b->have_compiler;
    39    $obj_file = $b->compile( source => $source_file );
    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";
    42 }
    43
    44 SKIP: {
    45    skip "no dynamic loading", 6
    46      if !$b->have_compiler || !$Config{usedl};
    47    my $module = 'XSMore';
    48    $lib_file = $b->link( objects => $obj_file, module_name => $module );
    49    ok $lib_file;
    50    ok -e $lib_file, "Make sure $lib_file exists";
    51
    52    eval{
    53      package XSMore;
    54      our $VERSION = 42;
    55      our $boot_ok;
    56      DynaLoader::bootstrap_inherit(__PACKAGE__, $VERSION); # VERSIONCHECK disabled
    57
    58      sub new{ bless {}, shift }
    59    };
    60    is $@, '';
    61    is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';
    62
    63    is $XSMore::boot_ok, 100, 'the BOOT keyword';
    64
    65    ok XSMore::include_ok(), 'the INCLUDE keyword';
    66    is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';
    67
    68    is prototype(\&XSMore::prototype_ssa), '$$@', 'the PROTOTYPE keyword';
    69
    70    is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
    71    is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';
    72
    73    is XSMore::return_1(), 1, 'the CASE keyword (1)';
    74    is XSMore::return_2(), 2, 'the CASE keyword (2)';
    75    is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
    76    is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';
    77
    78    is XSMore::arg_init(200), 200, 'argument init';
    79
    80    ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
    81    is abs(XSMore->new), 42, 'the OVERLOAD keyword';
    82
    83    my @a;
    84    XSMore::hook(\@a);
    85    is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';
    86
    87    is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';
    88
    89    is XSMore::len("foo"), 3, 'the length keyword';
    90
    91    is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';
    92
    93    # Win32 needs to close the DLL before it can unlink it, but unfortunately
    94    # dl_unload_file was missing on Win32 prior to perl change #24679!
    95    if ($^O eq 'MSWin32' and defined &DynaLoader::dl_unload_file) {
    96      for (my $i = 0; $i < @DynaLoader::dl_modules; $i++) {
    97        if ($DynaLoader::dl_modules[$i] eq $module) {
    98          DynaLoader::dl_unload_file($DynaLoader::dl_librefs[$i]);
    99          last;
   100        }
   101      }
   102    }
   103 }
   104
   105 unless ($ENV{PERL_NO_CLEANUP}) {
   106    for ( $obj_file, $lib_file, $source_file) {
   107      next unless defined $_;
   108      1 while unlink $_;
   109    }
   110 }

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of woosley. xu.
Sent: 2010年9月14日 9:26

To: perlchina@googlegroups.com
Subject: Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

perl t/more.t 找出出错原因并fix，
或者直接跳过make test

在 2010年9月13日下午8:49，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

大家好，

求高手给出出主意

我想安装Log-Dispatch-2.26，然后被告知缺少Params::Validate，安装Params-Validate-0.95，缺少Module::Build，安装Module-Build-0.3607，被告知缺少ExtUtils::ParseXS，安装ExtUtils-ParseXS-2.2206，make test的时候出错。

这是台机房里的Solaris server，无法上网。只能把各个软件从CPAN上下载了，1)perlgcc Makefile.PL 2)make 3)make test 4) make install。

# make test
PERL_DL_NONLAZY=1 /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/basic.t .. ok
t/more.t ... 1/25 # Looks like you planned 25 tests but ran 10.
t/more.t ... Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 15/25 subtests
        (less 8 skipped subtests: 2 okay)
t/usage.t .. ok

Test Summary Report
-------------------
t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 25 tests but ran 10.
Files=3, Tests=44, 2 wallclock secs ( 0.12 usr 0.03 sys + 1.20 cusr 0.12 csys = 1.47 CPU)
Result: FAIL
Failed 1/3 test programs. 0/44 subtests failed.
*** Error code 29
make: Fatal error: Command failed for target `test_dynamic'

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

On 09/14/2010 10:10 AM, ZHANG Jiaqiang A wrote:
> 之前我试了单独执行t/more.t，不过都没有成功。输出如下:

你需要用 perl -I 把ExtUtils::ParseXS 存在的目录手动加上，再运行 test.

cd ExtUtils-ParseXS-2.2206
perl -Iblib/lib -Iblib/arch t/more.t

Qiang

P.S 请回复的时候请只包括对话的相关上下文，否则这个 email 就越来越大了。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

hi
这个是由于安装过程中产生在当前目录下的lib找不到，也就是当前目录下的一些目录不在@INC里面
试试
perl -Mlib=./lib,./blib/lib,./blib/arch t/more.t

在 2010年9月14日上午10:10，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

之前我试了单独执行t/more.t，不过都没有成功。输出如下:

# /usr/perl5/5.8.4/bin/perl t/more.t
1..25
not ok 1 - require ExtUtils::ParseXS;
#   Failed test 'require ExtUtils::ParseXS;'
#   at t/more.t line 15.
#     Tried to require 'ExtUtils::ParseXS'.
#     Error: Can't locate ExtUtils/ParseXS.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at (eval 8) line 2.
Can't locate object method "process_file" via package "ExtUtils::ParseXS" at t/more.t line 27.
# Looks like you planned 25 tests but ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test exited with 255 just after 1.
# /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" t/more.t
1..25
not ok 1 - require ExtUtils::ParseXS;
#   Failed test 'require ExtUtils::ParseXS;'
#   at t/more.t line 15.
#     Tried to require 'ExtUtils::ParseXS'.
#     Error: Can't locate ExtUtils/ParseXS.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at (eval 8) line 2.
Can't locate object method "process_file" via package "ExtUtils::ParseXS" at t/more.t line 27.
# Looks like you planned 25 tests but ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test exited with 255 just after 1.

而且说实话我数了半天，都没数全25个用例。这个测试是fail在了第十个用例还是第一个用例呢？

# cat -n more.t|egrep 'ok | is'
    31 ok -e $source_file, "Create an output file";
    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";
    49    ok $lib_file;
    50    ok -e $lib_file, "Make sure $lib_file exists";
    60    is $@, '';
    61    is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';
    63    is $XSMore::boot_ok, 100, 'the BOOT keyword';
    65    ok XSMore::include_ok(), 'the INCLUDE keyword';
    66    is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';
    68    is prototype(\&XSMore::prototype_ssa),
'$$@', 'the PROTOTYPE keyword';

    70    is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
    71    is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';
    73    is XSMore::return_1(), 1, 'the CASE keyword (1)';
    74    is XSMore::return_2(), 2, 'the CASE keyword (2)';
    75    is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
    76    is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';
    78    is XSMore::arg_init(200), 200, 'argument init';
    80    ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
    81    is abs(XSMore->new), 42, 'the OVERLOAD keyword';
    85    is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';
    87    is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';
    89    is XSMore::len("foo"), 3, 'the length keyword';
    91    is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';

# cat -n more.t|egrep 'ok | is'|wc -l
      24

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of woosley. xu.
Sent: 2010年9月14日 10:00

To: perlchina@googlegroups.com
Subject: Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

直接perl t/more.t
不要用test_harness了
test_harness打印的是测试结果的统计信息，

不过我这边solaris测试是通过的

root@seaserver0:/.cpan/build/ExtUtils-ParseXS-2.2206-BLvSpp>perl t/more.t
1..25
ok 1 - require ExtUtils::ParseXS;
ok 2 - Create an output file
/opt/studio/SOS11/SUNWspro/bin/cc -I/opt/csw/lib/perl/5.10.1/CORE -KPIC -c -D_RE
ENTRANT -xO3 -xarch=v8 -I/opt/csw/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BIT
S=64 -xO3 -xarch=v8 -o XSMore.o XSMore.c
ok 3
ok 4 - Make sure XSMore.o exists
/opt/studio/SOS11/SUNWspro/bin/cc -G -L/opt/csw/lib/libperl.so -L/opt/csw/lib -L
/opt/csw/bdb47/lib -L/usr/lib -L/usr/ccs/lib -L/lib -o XSMore.so XSMore.o
ok 5
ok 6 - Make sure XSMore.so exists
ok 7
ok 8 - ExtUtils::ParseXS::errors()
ok 9 - the BOOT keyword
ok 10 - the INCLUDE keyword
ok 11 - the PROTOTYPES keyword
ok 12 - the PROTOTYPE keyword
ok 13 - the ATTRS keyword
ok 14 - ATTRS with prototype
ok 15 - the CASE keyword (1)
.........

在 2010年9月14日上午9:44，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

不好意思，这封信似乎有点长，我以前从来没有debug过make test。

如何查看出错的用例是哪一个呢？刚才我执行了一下more.t，屏幕的输出和原来的一致。

# /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/more.t

t/more.t .. 1/25 # Looks like you planned 25 tests but ran 10.
t/more.t .. Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 15/25 subtests
        (less 8 skipped subtests: 2 okay)

Test Summary Report
-------------------
t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 25 tests but ran 10.
Files=1, Tests=10, 1 wallclock secs ( 0.09 usr 0.01 sys + 0.40 cusr 0.04 csys = 0.54 CPU)
Result: FAIL
Failed 1/1 test programs. 0/10 subtests failed.

# cat -n more.t
     1 #!/usr/bin/perl
     2
     3 use strict;
     4 use Test::More;
     5 use Config;
     6 use DynaLoader;
     7 use ExtUtils::CBuilder;
     8 use attributes;
     9 use overload;
    10
    11 plan tests => 25;
    12
    13 my ($source_file, $obj_file, $lib_file);
    14
    15 require_ok( 'ExtUtils::ParseXS' );
    16 ExtUtils::ParseXS->import('process_file');
    17
    18 chdir 't' or die "Can't chdir to t/, $!";
    19
    20 use Carp; $SIG{__WARN__} = \&Carp::cluck;
    21
    22 #########################
    23
    24 $source_file = 'XSMore.c';
    25
    26 # Try sending to file
    27 ExtUtils::ParseXS->process_file(
    28          filename => 'XSMore.xs',
    29          output   => $source_file,
    30 );
    31 ok -e $source_file, "Create an output file";
    32
    33 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
    34 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
    35
    36 SKIP: {
    37    skip "no compiler available", 2
    38      if ! $b->have_compiler;
    39    $obj_file = $b->compile( source => $source_file );
    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";
    42 }
    43
    44 SKIP: {
    45    skip "no dynamic loading", 6
    46      if !$b->have_compiler || !$Config{usedl};
    47    my $module = 'XSMore';
    48    $lib_file = $b->link( objects => $obj_file, module_name => $module );
    49    ok $lib_file;
    50    ok -e $lib_file, "Make sure $lib_file exists";
    51
    52    eval{
    53      package XSMore;
    54      our $VERSION = 42;
    55      our $boot_ok;
    56      DynaLoader::bootstrap_inherit(__PACKAGE__, $VERSION); # VERSIONCHECK disabled
    57
    58      sub new{ bless {}, shift }
    59    };
    60    is $@, '';
    61    is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';
    62
    63    is $XSMore::boot_ok, 100, 'the BOOT keyword';
    64
    65    ok XSMore::include_ok(), 'the INCLUDE keyword';
    66    is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';
    67
    68    is prototype(\&XSMore::prototype_ssa), '$$@', 'the PROTOTYPE keyword';
    69
    70    is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
    71    is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';
    72
    73    is XSMore::return_1(), 1, 'the CASE keyword (1)';
    74    is XSMore::return_2(), 2, 'the CASE keyword (2)';
    75    is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
    76    is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';
    77
    78    is XSMore::arg_init(200), 200, 'argument init';
    79
    80    ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
    81    is abs(XSMore->new), 42, 'the OVERLOAD keyword';
    82
    83    my @a;
    84    XSMore::hook(\@a);
    85    is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';
    86
    87    is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';
    88
    89    is XSMore::len("foo"), 3, 'the length keyword';
    90
    91    is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';
    92
    93    # Win32 needs to close the DLL before it can unlink it, but unfortunately
    94    # dl_unload_file was missing on Win32 prior to perl change #24679!
    95    if ($^O eq 'MSWin32' and defined &DynaLoader::dl_unload_file) {
    96      for (my $i = 0; $i < @DynaLoader::dl_modules; $i++) {
    97        if ($DynaLoader::dl_modules[$i] eq $module) {
    98          DynaLoader::dl_unload_file($DynaLoader::dl_librefs[$i]);
    99          last;
   100        }
   101      }
   102    }
   103 }
   104
   105 unless ($ENV{PERL_NO_CLEANUP}) {
   106    for ( $obj_file, $lib_file, $source_file) {
   107      next unless defined $_;
   108      1 while unlink $_;
   109    }
   110 }

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of woosley. xu.
Sent: 2010年9月14日 9:26

To: perlchina@googlegroups.com
Subject: Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

perl t/more.t 找出出错原因并fix，
或者直接跳过make test

在 2010年9月13日下午8:49，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

大家好，

求高手给出出主意

我想安装Log-Dispatch-2.26，然后被告知缺少Params::Validate，安装Params-Validate-0.95，缺少Module::Build，安装Module-Build-0.3607，被告知缺少ExtUtils::ParseXS，安装ExtUtils-ParseXS-2.2206，make test的时候出错。

这是台机房里的Solaris server，无法上网。只能把各个软件从CPAN上下载了，1)perlgcc Makefile.PL 2)make 3)make test 4) make install。

# make test
PERL_DL_NONLAZY=1 /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/basic.t .. ok
t/more.t ... 1/25 # Looks like you planned 25 tests but ran 10.
t/more.t ... Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 15/25 subtests
        (less 8 skipped subtests: 2 okay)
t/usage.t .. ok

Test Summary Report
-------------------
t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 25 tests but ran 10.
Files=3, Tests=44, 2 wallclock secs ( 0.12 usr 0.03 sys + 1.20 cusr 0.12 csys = 1.47 CPU)
Result: FAIL
Failed 1/3 test programs. 0/44 subtests failed.
*** Error code 29
make: Fatal error: Command failed for target `test_dynamic'

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

RE: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

和xu woosley成功的测试例子对比了一下，我之前找的时候是落了第15行的require_ok。

是不是出错在第65行的第10个测试用例呢？我在目录t底下打开了XSMore.xs，之后该怎么查呢？

case nu line nu

     1      15 require_ok( 'ExtUtils::ParseXS' );
     2      31 ok -e $source_file, "Create an output file";
     3      40    ok $obj_file;
     4      41    ok -e $obj_file, "Make sure $obj_file exists";
     5      49    ok $lib_file;
     6      50    ok -e $lib_file, "Make sure $lib_file exists";
     7      60    is $@, '';
     8      61    is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';
     9      63    is $XSMore::boot_ok, 100, 'the BOOT keyword';
    10      65    ok XSMore::include_ok(), 'the INCLUDE keyword';
    11      66    is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';
    12      68    is prototype(\&XSMore::prototype_ssa), '$$@', 'the PROTOTYPE keyword';
    13      70    is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
    14      71    is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';
    15      73    is XSMore::return_1(), 1, 'the CASE keyword (1)';
    16      74    is XSMore::return_2(), 2, 'the CASE keyword (2)';
    17      75    is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
    18      76    is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';
    19      78    is XSMore::arg_init(200), 200, 'argument init';
    20      80    ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
    21      81    is abs(XSMore->new), 42, 'the OVERLOAD keyword';
    22      85    is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';
    23      87    is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';
    24      89    is XSMore::len("foo"), 3, 'the length keyword';
    25      91    is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';

# cat -n XSMore.xs
     1 #include "EXTERN.h"
     2 #include "perl.h"
     3 #include "XSUB.h"
     4
     5 =for testing
     6
     7 This parts are ignored.
     8
     9 =cut
    10
    11 STATIC void
    12 outlist(int* a, int* b){
    13          *a = 'a';
    14          *b = 'b';
    15 }
    16
    17 STATIC int
    18 len(const char* const s, int const l){
    19          return l;
    20 }
    21
    22 MODULE = XSMore         PACKAGE = XSMore
    23
    24 =for testing
    25
    26 This parts are also ignored.
    27
    28 =cut
    29
    30 PROTOTYPES: ENABLE
    31
    32 VERSIONCHECK: DISABLE
    33
    34 REQUIRE: 2.20
    35
    36 SCOPE: DISABLE
    37
    38 FALLBACK: TRUE
    39
    40 BOOT:
    41          sv_setiv(get_sv("XSMore::boot_ok", TRUE), 100);
    42
    43
    44 void
    45 prototype_ssa()
    46 PROTOTYPE: $$@
    47 CODE:
    48          NOOP;
    49
    50 void
    51 attr_method(self, ...)
    52 ATTRS: method
    53 CODE:
    54          NOOP;
    55
    56 #define RET_1 1
    57 #define RET_2 2
    58
    59 int
    60 return_1()
    61 CASE: ix == 1
    62          ALIAS:
    63                  return_1 = RET_1
    64                  return_2 = RET_2
    65          CODE:
    66                  RETVAL = ix;
    67          OUTPUT:
    68                  RETVAL
    69 CASE: ix == 2
    70          CODE:
    71                  RETVAL = ix;
    72          OUTPUT:
    73                  RETVAL
    74
    75 int
    76 arg_init(x)
    77          int x = SvIV($arg);
    78 CODE:
    79          RETVAL = x;
    80 OUTPUT:
    81          RETVAL
    82
    83 int
    84 myabs(...)
    85 OVERLOAD: abs
    86 CODE:
    87          RETVAL = 42;
    88 OUTPUT:
    89          RETVAL
    90
    91 void
    92 hook(IN AV* av)
    93 INIT:
    94          av_push(av, newSVpv("INIT", 0));
    95 CODE:
    96          av_push(av, newSVpv("CODE", 0));
    97 POSTCALL:
    98          av_push(av, newSVpv("POSTCALL", 0));
    99 CLEANUP:
   100          av_push(av, newSVpv("CLEANUP", 0));
   101
   102
   103 void
   104 outlist(OUTLIST int a, OUTLIST int b)
   105
   106 int
   107 len(char* s, int length(s))
   108
   109 INCLUDE_COMMAND: $^X -Ilib -It/lib -MIncludeTester -e IncludeTester::print_xs
   110
   111 #if 1
   112
   113 INCLUDE: XSInclude.xsh
   114
   115 #else
   116
   117 # for testing #else directive
   118
   119

RE: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

之前我试了单独执行t/more.t，不过都没有成功。输出如下:

# /usr/perl5/5.8.4/bin/perl t/more.t
1..25
not ok 1 - require ExtUtils::ParseXS;
#   Failed test 'require ExtUtils::ParseXS;'
#   at t/more.t line 15.
#     Tried to require 'ExtUtils::ParseXS'.
#     Error: Can't locate ExtUtils/ParseXS.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at (eval 8) line 2.
Can't locate object method "process_file" via package "ExtUtils::ParseXS" at t/more.t line 27.
# Looks like you planned 25 tests but ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test exited with 255 just after 1.
# /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" t/more.t
1..25
not ok 1 - require ExtUtils::ParseXS;
#   Failed test 'require ExtUtils::ParseXS;'
#   at t/more.t line 15.
#     Tried to require 'ExtUtils::ParseXS'.
#     Error: Can't locate ExtUtils/ParseXS.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at (eval 8) line 2.
Can't locate object method "process_file" via package "ExtUtils::ParseXS" at t/more.t line 27.
# Looks like you planned 25 tests but ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test exited with 255 just after 1.

而且说实话我数了半天，都没数全25个用例。这个测试是fail在了第十个用例还是第一个用例呢？

# cat -n more.t|egrep 'ok | is'
    31 ok -e $source_file, "Create an output file";
    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";
    49    ok $lib_file;
    50    ok -e $lib_file, "Make sure $lib_file exists";
    60    is $@, '';
    61    is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';
    63    is $XSMore::boot_ok, 100, 'the BOOT keyword';
    65    ok XSMore::include_ok(), 'the INCLUDE keyword';
    66    is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';
    68    is prototype(\&XSMore::prototype_ssa), '$$@', 'the PROTOTYPE keyword';
    70    is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
    71    is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';
    73    is XSMore::return_1(), 1, 'the CASE keyword (1)';
    74    is XSMore::return_2(), 2, 'the CASE keyword (2)';
    75    is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
    76    is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';
    78    is XSMore::arg_init(200), 200, 'argument init';
    80    ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
    81    is abs(XSMore->new), 42, 'the OVERLOAD keyword';
    85    is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';
    87    is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';
    89    is XSMore::len("foo"), 3, 'the length keyword';
    91    is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';
# cat -n more.t|egrep 'ok | is'|wc -l
      24

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of woosley. xu.
Sent: 2010年9月14日 10:00
To: perlchina@googlegroups.com
Subject: Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

直接perl t/more.t
不要用test_harness了
test_harness打印的是测试结果的统计信息，

不过我这边solaris测试是通过的

root@seaserver0:/.cpan/build/ExtUtils-ParseXS-2.2206-BLvSpp>perl t/more.t
1..25
ok 1 - require ExtUtils::ParseXS;
ok 2 - Create an output file
/opt/studio/SOS11/SUNWspro/bin/cc -I/opt/csw/lib/perl/5.10.1/CORE -KPIC -c -D_RE
ENTRANT -xO3 -xarch=v8 -I/opt/csw/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BIT
S=64 -xO3 -xarch=v8 -o XSMore.o XSMore.c
ok 3
ok 4 - Make sure XSMore.o exists
/opt/studio/SOS11/SUNWspro/bin/cc -G -L/opt/csw/lib/libperl.so -L/opt/csw/lib -L
/opt/csw/bdb47/lib -L/usr/lib -L/usr/ccs/lib -L/lib -o XSMore.so XSMore.o
ok 5
ok 6 - Make sure XSMore.so exists
ok 7
ok 8 - ExtUtils::ParseXS::errors()
ok 9 - the BOOT keyword
ok 10 - the INCLUDE keyword
ok 11 - the PROTOTYPES keyword
ok 12 - the PROTOTYPE keyword
ok 13 - the ATTRS keyword
ok 14 - ATTRS with prototype
ok 15 - the CASE keyword (1)
.........

在 2010年9月14日上午9:44，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

不好意思，这封信似乎有点长，我以前从来没有debug过make test。

如何查看出错的用例是哪一个呢？刚才我执行了一下more.t，屏幕的输出和原来的一致。

# /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/more.t

t/more.t .. 1/25 # Looks like you planned 25 tests but ran 10.
t/more.t .. Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 15/25 subtests
        (less 8 skipped subtests: 2 okay)

Test Summary Report
-------------------
t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 25 tests but ran 10.
Files=1, Tests=10, 1 wallclock secs ( 0.09 usr 0.01 sys + 0.40 cusr 0.04 csys = 0.54 CPU)
Result: FAIL
Failed 1/1 test programs. 0/10 subtests failed.

# cat -n more.t
     1 #!/usr/bin/perl
     2
     3 use strict;
     4 use Test::More;
     5 use Config;
     6 use DynaLoader;
     7 use ExtUtils::CBuilder;
     8 use attributes;
     9 use overload;
    10
    11 plan tests => 25;
    12
    13 my ($source_file, $obj_file, $lib_file);
    14
    15 require_ok( 'ExtUtils::ParseXS' );
    16 ExtUtils::ParseXS->import('process_file');
    17
    18 chdir 't' or die "Can't chdir to t/, $!";
    19
    20 use Carp; $SIG{__WARN__} = \&Carp::cluck;
    21
    22 #########################
    23
    24 $source_file = 'XSMore.c';
    25
    26 # Try sending to file
    27 ExtUtils::ParseXS->process_file(
    28          filename => 'XSMore.xs',
    29          output   => $source_file,
    30 );
    31 ok -e $source_file, "Create an output file";
    32
    33 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
    34 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
    35
    36 SKIP: {
    37    skip "no compiler available", 2
    38      if ! $b->have_compiler;
    39    $obj_file = $b->compile( source => $source_file );
    40    ok $obj_file;
    41    ok -e $obj_file, "Make sure $obj_file exists";
    42 }
    43
    44 SKIP: {
    45    skip "no dynamic loading", 6
    46      if !$b->have_compiler || !$Config{usedl};
    47    my $module = 'XSMore';
    48    $lib_file = $b->link( objects => $obj_file, module_name => $module );
    49    ok $lib_file;
    50    ok -e $lib_file, "Make sure $lib_file exists";
    51
    52    eval{
    53      package XSMore;
    54      our $VERSION = 42;
    55      our $boot_ok;
    56      DynaLoader::bootstrap_inherit(__PACKAGE__, $VERSION); # VERSIONCHECK disabled
    57
    58      sub new{ bless {}, shift }
    59    };
    60    is $@, '';
    61    is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';
    62
    63    is $XSMore::boot_ok, 100, 'the BOOT keyword';
    64
    65    ok XSMore::include_ok(), 'the INCLUDE keyword';
    66    is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';
    67
    68    is prototype(\&XSMore::prototype_ssa), '$$@', 'the PROTOTYPE keyword';
    69
    70    is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
    71    is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';
    72
    73    is XSMore::return_1(), 1, 'the CASE keyword (1)';
    74    is XSMore::return_2(), 2, 'the CASE keyword (2)';
    75    is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
    76    is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';
    77
    78    is XSMore::arg_init(200), 200, 'argument init';
    79
    80    ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
    81    is abs(XSMore->new), 42, 'the OVERLOAD keyword';
    82
    83    my @a;
    84    XSMore::hook(\@a);
    85    is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';
    86
    87    is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';
    88
    89    is XSMore::len("foo"), 3, 'the length keyword';
    90
    91    is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';
    92
    93    # Win32 needs to close the DLL before it can unlink it, but unfortunately
    94    # dl_unload_file was missing on Win32 prior to perl change #24679!
    95    if ($^O eq 'MSWin32' and defined &DynaLoader::dl_unload_file) {
    96      for (my $i = 0; $i < @DynaLoader::dl_modules; $i++) {
    97        if ($DynaLoader::dl_modules[$i] eq $module) {
    98          DynaLoader::dl_unload_file($DynaLoader::dl_librefs[$i]);
    99          last;
   100        }
   101      }
   102    }
   103 }
   104
   105 unless ($ENV{PERL_NO_CLEANUP}) {
   106    for ( $obj_file, $lib_file, $source_file) {
   107      next unless defined $_;
   108      1 while unlink $_;
   109    }
   110 }

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of woosley. xu.
Sent: 2010年9月14日 9:26

To: perlchina@googlegroups.com
Subject: Re: [PerlChina] 安装Log-Dispatch-2.26模块 make test出错

perl t/more.t 找出出错原因并fix，
或者直接跳过make test

在 2010年9月13日下午8:49，ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>写道：

大家好，

求高手给出出主意

我想安装Log-Dispatch-2.26，然后被告知缺少Params::Validate，安装Params-Validate-0.95，缺少Module::Build，安装Module-Build-0.3607，被告知缺少ExtUtils::ParseXS，安装ExtUtils-ParseXS-2.2206，make test的时候出错。

这是台机房里的Solaris server，无法上网。只能把各个软件从CPAN上下载了，1)perlgcc Makefile.PL 2)make 3)make test 4) make install。

# make test
PERL_DL_NONLAZY=1 /usr/perl5/5.8.4/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/basic.t .. ok
t/more.t ... 1/25 # Looks like you planned 25 tests but ran 10.
t/more.t ... Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 15/25 subtests
        (less 8 skipped subtests: 2 okay)
t/usage.t .. ok

Test Summary Report
-------------------
t/more.t (Wstat: 65280 Tests: 10 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 25 tests but ran 10.
Files=3, Tests=44, 2 wallclock secs ( 0.12 usr 0.03 sys + 1.20 cusr 0.12 csys = 1.47 CPU)
Result: FAIL
Failed 1/3 test programs. 0/44 subtests failed.
*** Error code 29
make: Fatal error: Command failed for target `test_dynamic'

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

订阅：博文 (Atom)

2010年9月17日星期五

2010年9月16日星期四

2010年9月15日星期三

2010年9月13日星期一

订阅

博客归档