From 76669f6c298bcf3f69a0e1df5c524a7cff3e367d Mon Sep 17 00:00:00 2001 From: Pasha Date: Sat, 20 Jan 2024 10:09:23 +0000 Subject: initial commit --- web/NetUseAdminWeb/t/002_index_route.t | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 web/NetUseAdminWeb/t/002_index_route.t (limited to 'web/NetUseAdminWeb/t/002_index_route.t') diff --git a/web/NetUseAdminWeb/t/002_index_route.t b/web/NetUseAdminWeb/t/002_index_route.t new file mode 100644 index 0000000..6333f5a --- /dev/null +++ b/web/NetUseAdminWeb/t/002_index_route.t @@ -0,0 +1,32 @@ +use strict; +use warnings; + +# NetUseMod is a program to moderate Usenet posts via web interface. +# Copyright (C) 2024 Salahuddin +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +use NetUseAdminWeb; +use Test::More tests => 2; +use Plack::Test; +use HTTP::Request::Common; +use Ref::Util qw; + +my $app = NetUseAdminWeb->to_app; +ok( is_coderef($app), 'Got app' ); + +my $test = Plack::Test->create($app); +my $res = $test->request( GET '/' ); + +ok( $res->is_success, '[GET /] successful' ); -- cgit v1.2.1