如何進行Perl Dancer測試

Question

通讀Dancer :: Test文檔使進行測試似乎很簡單，但是我缺少了一些東西。 如果我具有以下Dancer應用程序（ WebApp.pm ）：

package WebApp;
use Dancer;

# declare routes/actions
get '/' => sub {
    "Hello World";
};

dance;

然后是以下測試文件001_base.t ：

use strict;
use warnings;
use Test::More tests => 1;

use WebApp;
use Dancer::Test;

response_status_is [GET => '/'], 200, "GET / is found";

然后，當我運行測試： perl 001_base.t ，輸出是該舞者腳本已啟動：

Dancer 1.3132 server 7679 listening on http://0.0.0.0:3000
== Entering the development dance floor ...

但是然后等待。 （這與在WebApp.pm中運行代碼一樣）。 我在這里想念什么？ 我想我沒有正確運行測試。

Answer 1

您應該從WebApp.pm中刪除Dancer dancer() 。 這是正確的內容：

package WebApp;
use Dancer;

# declare routes/actions
get '/' => sub {
    "Hello World";
};

1;

然后您的測試將通過。

創建舞者應用程序的常用方法是在一個或多個.pm文件中聲明所有路由，並創建一個通常名為app.psgi的文件，其內容如下：

#!/usr/bin/env perl
use Dancer;
use WebApp;
dance;

然后，要啟動您的Web應用程序，您應該運行perl -Ilib app.psgi 。