study/chsrc
1
0
Fork 0
mirror of https://github.com/RubyMetric/chsrc synced 2025-10-10 06:03:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

podchecker

Browse Source
This commit is contained in:
Aoran Zeng
2025-09-27 12:23:38 +08:00
parent 143bc80870
commit c1e3522303
2 changed files with 46 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -41,6 +41,7 @@ chsrc-ci-release
xy xy
fw fw
README.md.bak* README.md.bak*
*.tmp
# Generated when testing (when there's a bug) # Generated when testing (when there's a bug)
nul nul

51
test/cli.pl
View File

@@ -1,14 +1,41 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# --------------------------------------------------------------- # ---------------------------------------------------------------
# Test File : cli.pl # Test File : cli.pl
# Test Authors : Aoran Zeng <ccmywish@qq.com> # Test Authors : 曾奥然 <ccmywish@qq.com>
# Contributors : Nil Null <nil@null.org> # Contributors : Nil Null <nil@null.org>
# Created On : <2024-06-05> # Created On : <2024-06-05>
# Last Modified : <2025-08-11> # Last Modified : <2025-09-27>
# #
# 测试 chsrc 可执行文件 # 测试 chsrc 可执行文件
# --------------------------------------------------------------- # ---------------------------------------------------------------
=encoding utf8
本文件可以使用
$ podchecker .test\cli.pl
来检查 Pod 语法
$ pod2html .\test\cli.pl > CLI.html
来生成 HTML 文件
$ pod2markdown .\test\cli.pl > CLI.md
来生成 Markdown 文件
=over
=item C<=end> 的时候前面必须给一个空行，否则 podchecker 不认
=item 每一个 Pod block 必须用 C<=cut> 来终结，否则 VS Code 会把后续内容全部认为是 POD
=back
=cut
use v5.38; use v5.38;
use Test::More; use Test::More;
@@ -23,8 +50,12 @@ like `./chsrc --help`, $help_str, 'chsrc --help';
like `./chsrc help`, $help_str, 'chsrc help'; like `./chsrc help`, $help_str, 'chsrc help';
like `./chsrc`, $help_str, 'chsrc'; like `./chsrc`, $help_str, 'chsrc';
=begin
=begin comment
测试 chsrc list 测试 chsrc list
=end comment
=cut =cut
my $list_str = qr/mirrorz\s*MirrorZ\s*.*\ntuna\s*TUNA/; my $list_str = qr/mirrorz\s*MirrorZ\s*.*\ntuna\s*TUNA/;
like `./chsrc ls`, $list_str, 'chsrc ls'; like `./chsrc ls`, $list_str, 'chsrc ls';
@@ -33,8 +64,11 @@ like `./chsrc list os`, qr/netbsd\s*openbsd/, 'chsrc list os';
like `./chsrc list ware`, qr/brew\s*homebrew/, 'chsrc list ware'; like `./chsrc list ware`, qr/brew\s*homebrew/, 'chsrc list ware';
=begin =begin comment
测试 chsrc get 测试 chsrc get
=end comment
=cut =cut
my $get_null = qr/chsrc: 请提供想要查看源的目标名/; my $get_null = qr/chsrc: 请提供想要查看源的目标名/;
like `./chsrc get -no-color 2>&1`, $get_null, 'chsrc get -no-color'; like `./chsrc get -no-color 2>&1`, $get_null, 'chsrc get -no-color';
@@ -62,16 +96,21 @@ my $get_ruby = qr/gem sources/;
like `./chsrc get ruby`, $get_ruby, 'chsrc get ruby'; like `./chsrc get ruby`, $get_ruby, 'chsrc get ruby';
=begin =begin comment
测试 chsrc measure 测试 chsrc measure
=end comment
=cut =cut
my $measure_ruby = qr/Ruby China 社区/; my $measure_ruby = qr/Ruby China 社区/;
like `./chsrc measure ruby`, $measure_ruby, 'chsrc measure ruby'; like `./chsrc measure ruby`, $measure_ruby, 'chsrc measure ruby';
=begin comment
=begin
测试 chsrc set 以及 chsrc reset 测试 chsrc set 以及 chsrc reset
=end comment
=cut =cut
my $set_ruby_abcd = qr/镜像站.*不存在/; my $set_ruby_abcd = qr/镜像站.*不存在/;
my $set_ruby_first = qr/全自动换源完成, 感谢镜像提供方/; my $set_ruby_first = qr/全自动换源完成, 感谢镜像提供方/;