子测验：获取

Question

我想在perl .cgi中测试一个小程序

该程序位于以下网址：

该程序是一项通用测试，他说：

“足以显示如何测试任何CGI脚本”

然后我将2个cgi复制/粘贴到同一目录中，然后尝试使用命令行：

prove cgi.t

通常都成功

错误是：

     Failed test 'GET'
    #   at cgi.t line 20.
    #                   ''
    #     doesn't match '(?^:<tr><td>request_method</td><td>GET</td></tr>)'

    #   Failed test 'name'
    #   at cgi.t line 21.
    #                   ''
    #     doesn't match '(?^:<tr><td>name</td><td>foo</td></tr>)'

    #   Failed test 'email'
    #   at cgi.t line 22.
    #                   ''
    #     doesn't match '(?^:<tr><td>email</td><td>bar\@corp.com</td></tr>)'

    #   Failed test 'stderr is empty'
    #   at cgi.t line 23.
    #          got: 'Can't exec "./cgi.pl": Permission denied at cgi.t line 17.
    # '
    #     expected: ''

    #   Failed test 'exit code is 0'
    #   at cgi.t line 24.
    #          got: '-1'
    #     expected: '0'
    # Looks like you failed 5 tests of 5.
cgi.t .. 1/2
#   Failed test 'get'
#   at cgi.t line 25.

    #   Failed test 'POST'
    #   at cgi.t line 43.
    #                   ''
    #     doesn't match '(?^:<tr><td>request_method</td><td>POST</td></tr>)'

    #   Failed test 'language'
    #   at cgi.t line 44.
    #                   ''
    #     doesn't match '(?^:<tr><td>language</td><td>Perl</td></tr>)'

    #   Failed test 'creator'
    #   at cgi.t line 45.
    #                   ''
    #     doesn't match '(?^:<tr><td>creator</td><td>TimToady</td></tr>)'

    #   Failed test 'stderr is empty'
    #   at cgi.t line 46.
    #          got: 'sh: ./cgi.pl: Permission denied
    # '
    #     expected: ''

    #   Failed test 'exit code is 0'
    #   at cgi.t line 47.
    #          got: '32256'
    #     expected: '0'
    # Looks like you failed 5 tests of 5.

#   Failed test 'post'
#   at cgi.t line 48.
# Looks like you failed 2 tests of 2.
cgi.t .. Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/2 subtests

Test Summary Report
-------------------
cgi.t (Wstat: 512 Tests: 2 Failed: 2)
  Failed tests:  1-2
  Non-zero exit status: 2
Files=1, Tests=2,  1 wallclock secs ( 0.12 usr  0.01 sys +  0.44 cusr  0.06 csys                                                                                                                                                              =  0.63 CPU)
Result: FAIL

预先感谢

是否

Answer 1

我刚好刚被引导到Windows中，我看到了类似的故障。

这个问题对于初学者来说很难发现，但确实非常简单。

my ($out, $err, $exit) = capture { system "./cgi.pl" };

该程序的调用方式显然是Linux-y。如果您将其更改为perl cgi.pl，它将起作用。这是因为命令的./部分告诉Linux Shell在当前目录中运行程序cgi.pl。它通过查找文件，查看文件是否具有可执行标志，然后在文件的第一行中进行查找。在那里，它找到shebang（#!/usr/bin/perl），告诉它使用什么程序运行文件。

在Windows上，它不能那样工作，因此您需要直接调用perl可执行文件。但是，对于您而言，这是因为该文件不可执行。

您可以像上面所说的那样更改它，也可以在程序上设置可执行标志。在命令行中运行它。它将您的程序标记为可执行文件，并且操作系统将知道该怎么做。

$ chmod u+x cgi.pl

如果要更改代码，请记住需要在两个位置进行更改。

您应该已经从测试输出中推断出这一点。一项失败的测试向我们显示了$err的返回值，它是命令的STDERR输出通道。

#   Failed test 'stderr is empty'
#   at cgi.t line 23.
#          got: 'Can't exec "./cgi.pl": Permission denied at cgi.t line 17.
# '
#     expected: ''

但是要花很多时间才能通过失败的测试输出来真正读取整个内容，并从中了解可能的含义，这需要很多经验。对于它的价值，我也没有全部阅读。我浏览了一下测试输出以查看是否得到相同的结果，然后阅读代码并发现了./cgi.pl，这使我感到奇怪。由于某种原因，我还记得我现在在Windows上。可能是因为要首先运行它很辛苦。

Answer 2

现在所有命令行都可以使用@simbabque的解决方案

perl cgi.t

1..2

子测验：获取

1..5
ok 1 - GET
ok 2 - name
ok 3 - email
ok 4 - stderr is empty
ok 5 - exit code is 0

确定1-获取

子测试：发布

1..5
ok 1 - POST
ok 2 - language
ok 3 - creator
ok 4 - stderr is empty
ok 5 - exit code is 0

确定2-发布

并使用以下命令：

prove cgi.t

cgi.t .. ok

所有测试成功。

文件= 1，测试= 2、1壁钟秒（0.11 usr 0.02 sys + 0.64 cusr 0.08 csys = 0.85 CPU）

结果：通过

为什么我的CGI程序的Perl单元测试未能通过所有测试？

2 个答案:

子测验：获取

子测试：发布