Replaced the messy GNU-styled, multi-lingual documents with a single Markdown README.md. Added the GitHub repository to the document and removed the SourceForge website, my web page, and the SourceForge mailing list from the document. Removed the document license, and my PGP key from the package. Removed the signature file from the repository. Changed the license from GPLv3 to APLv2. Various fixes to avoid JetBrains IDE problem detection.
This commit is contained in:
@ -1,17 +1,23 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
print "1..1\n";
|
||||
|
||||
if (!-s 'SIGNATURE') {
|
||||
if (!$ENV{TEST_SIGNATURE}) {
|
||||
print "ok 1 # skip Set the environment variable",
|
||||
" TEST_SIGNATURE to enable this test\n";
|
||||
}
|
||||
elsif (!-s 'SIGNATURE') {
|
||||
print "ok 1 # skip No signature file found\n";
|
||||
}
|
||||
elsif (!eval { require Module::Signature; 1 }) {
|
||||
print "ok 1 # skip ",
|
||||
"Next time around, consider install Module::Signature, ",
|
||||
"so you can verify the integrity of this distribution.\n";
|
||||
"Next time around, consider install Module::Signature, ",
|
||||
"so you can verify the integrity of this distribution.\n";
|
||||
}
|
||||
elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
|
||||
print "ok 1 # skip Cannot connect to the keyserver\n";
|
||||
elsif (!eval { require Socket; Socket::inet_aton('pool.sks-keyservers.net') }) {
|
||||
print "ok 1 # skip ",
|
||||
"Cannot connect to the keyserver\n";
|
||||
}
|
||||
else {
|
||||
(Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
|
||||
|
||||
49
t/01-basic.t
49
t/01-basic.t
@ -1,20 +1,19 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Basic test suite
|
||||
#
|
||||
# Copyright (c) 2003-2007 imacat.
|
||||
#
|
||||
# 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 <http://www.gnu.org/licenses/>.
|
||||
|
||||
# Copyright (c) 2003-2021 imacat.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
use 5.006;
|
||||
use strict;
|
||||
@ -26,7 +25,7 @@ use FindBin;
|
||||
use File::Spec::Functions qw(catdir updir);
|
||||
use File::Spec qw();
|
||||
use lib $FindBin::Bin;
|
||||
use vars qw($chklinks $start);
|
||||
our ($chklinks, $start);
|
||||
$chklinks = catdir($FindBin::Bin, updir, "blib", "script", "chklinks");
|
||||
$start = catdir($FindBin::Bin, "htdocs", "dir01", "start.html");
|
||||
|
||||
@ -88,16 +87,16 @@ s/^.*test02.html [^\n]*\n//m;
|
||||
ok($_, qr/test3\.css /);
|
||||
s/^.*test3.css [^\n]*\n//m;
|
||||
# 17
|
||||
ok($_, qr/^http:\/\/www\.yahoo\.com\/nonexistent /m);
|
||||
s/^http:\/\/www\.yahoo\.com\/nonexistent [^\n]*\n//m;
|
||||
# 18
|
||||
ok($_, qr/^http:\/\/www\.domain\.invalid\/ /m);
|
||||
s/^http:\/\/www\.domain\.invalid\/ [^\n]*\n//m;
|
||||
# 19
|
||||
ok($_, qr/^ftp:\/\/ftp\.cpan\.org\/nonexistent /m);
|
||||
s/^ftp:\/\/ftp\.cpan\.org\/nonexistent [^\n]*\n//m;
|
||||
# 20
|
||||
ok($_, qr/^ftp:\/\/ftp\.domain\.invalid\/ /m);
|
||||
s/^ftp:\/\/ftp\.domain\.invalid\/ [^\n]*\n//m;
|
||||
# 18
|
||||
ok($_, qr/^ftp:\/\/ftp\.gnu\.org\/nonexistent /m);
|
||||
s/^ftp:\/\/ftp\.gnu\.org\/nonexistent [^\n]*\n//m;
|
||||
# 19
|
||||
ok($_, qr/^http:\/\/info\.cern\.ch\/nonexistent /m);
|
||||
s/^http:\/\/info\.cern\.ch\/nonexistent [^\n]*\n//m;
|
||||
# 20
|
||||
ok($_, qr/^http:\/\/www\.domain\.invalid\/ /m);
|
||||
s/^http:\/\/www\.domain\.invalid\/ [^\n]*\n//m;
|
||||
# 21
|
||||
ok($_, "");
|
||||
|
||||
@ -1,17 +1,14 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
|
||||
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
||||
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
|
||||
<html lang="en-us">
|
||||
<head>
|
||||
<link rel="stylesheet" type="text/css" href="../stylesheets/test.css" />
|
||||
<link rel="stylesheet" type="text/css" href="../stylesheets/test2.css" />
|
||||
<link rel="stylesheet" type="text/css" href="../stylesheets/test.css">
|
||||
<link rel="stylesheet" type="text/css" href="../stylesheets/test2.css">
|
||||
<title>Test Start</title>
|
||||
</head>
|
||||
<body>
|
||||
|
||||
<h1>Test Start</h1>
|
||||
|
||||
<p xml:lang="zh-tw">這是一頁測試網頁。</p>
|
||||
<p>這是一頁測試網頁。</p>
|
||||
|
||||
<ul>
|
||||
<li><a href="test01.html">Test #01</a></li>
|
||||
|
||||
@ -1,10 +1,7 @@
|
||||
<?xml version="1.0" encoding="US-ASCII" ?>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
|
||||
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
||||
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
|
||||
<html lang="en-us">
|
||||
<head>
|
||||
<link rel="stylesheet" type="text/css" href="../stylesheets/test.css" />
|
||||
<link rel="stylesheet" type="text/css" href="test3.css" />
|
||||
<link rel="stylesheet" type="text/css" href="../stylesheets/test.css">
|
||||
<link rel="stylesheet" type="text/css" href="test3.css">
|
||||
<title>Test #01</title>
|
||||
</head>
|
||||
<body>
|
||||
@ -12,12 +9,12 @@
|
||||
<h1>Test #01</h1>
|
||||
|
||||
<ul>
|
||||
<li><a href="http://www.cpan.org/"><acronym title="Comprehensive Perl Archive Network">CPAN</acronym></a></li>
|
||||
<li><a href="http://www.yahoo.com/nonexistent">Non-existing HTTP</a></li>
|
||||
<li><a href="http://info.cern.ch">CERN</a></li>
|
||||
<li><a href="http://info.cern.ch/nonexistent">Non-existing HTTP</a></li>
|
||||
<li><a href="http://www.domain.invalid/">Non-existing HTTP host</a></li>
|
||||
<li><a href="ftp://ftp.cpan.org/"><acronym title="Comprehensive Perl Archive Network">CPAN</acronym> FTP</a></li>
|
||||
<li><a href="ftp://ftp.cpan.org/nonexistent">Non-existing FTP</a></li>
|
||||
<li><a href="ftp://ftp.domain.invalid/">Non-existing FTP host</a></li>
|
||||
<li><a href="ftp://ftp.gnu.org">FTP</a></li>
|
||||
<li><a href="ftp://ftp.gnu.org/nonexistent">Non-existing FTP</a></li>
|
||||
<li><a href="ftp://ftp.domain.invalid">Non-existing FTP host</a></li>
|
||||
</ul>
|
||||
|
||||
</body>
|
||||
|
||||
@ -1,7 +1,4 @@
|
||||
<?xml version="1.0" encoding="US-ASCII" ?>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
|
||||
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
||||
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
|
||||
<html lang="en-us">
|
||||
<head>
|
||||
<link rel="stylesheet" type="text/css" href="../stylesheets/test.css" />
|
||||
<title>Test #03</title>
|
||||
|
||||
Reference in New Issue
Block a user