mirror of
https://github.com/RubyMetric/chsrc
synced 2025-10-10 06:03:24 +08:00
155 lines
4.3 KiB
Perl
155 lines
4.3 KiB
Perl
#!/usr/bin/env perl
|
||
# ---------------------------------------------------------------
|
||
# Test File : cli.pl
|
||
# Test Authors : 曾奥然 <ccmywish@qq.com>
|
||
# Contributors : Nil Null <nil@null.org>
|
||
# Created On : <2024-06-05>
|
||
# Last Modified : <2025-09-27>
|
||
#
|
||
# 测试 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.42;
|
||
use utf8;
|
||
# v5.38 还不用强制 utf8，现在代码里（包括注释）只要有其他字符，都必须强制使用 utf8
|
||
use Test::More;
|
||
# `` 执行命令以后，返回的全部是字节流，而不是字符串，
|
||
# chsrc 已经输出的是 UTF-8 字符串了，所以我们在这里需要
|
||
# 设置该选项，将这些字节流编码为 UTF-8 才能得到我们想要的结果
|
||
use open qw(:std :encoding(UTF-8));
|
||
|
||
=begin comment
|
||
|
||
注意:
|
||
|
||
`./chsrc`
|
||
|
||
在 Windows 上也是可以正常执行的，Perl 应该是内部进行了转换。然而，下面这一行却会报错：
|
||
|
||
`./chsrc get -no-color 2>&1`
|
||
|
||
2>&1重定向虽然在 Windows CMD 中是正确的，但是在 Perl 中执行，却会反而把 ./chsrc 的问题给报出来。
|
||
因此，我们需要对执行的命令进行处理
|
||
|
||
=end comment
|
||
=cut
|
||
|
||
my $CHSRC = ($^O eq 'MSWin32') ? '.\chsrc' : './chsrc';
|
||
|
||
|
||
my $version_str = qr|chsrc .*\nCopyright .*\nLicense GPLv3\+: GNU GPL version 3 or later|;
|
||
like `$CHSRC -v`, $version_str, 'chsrc -v';
|
||
like `$CHSRC --version`, $version_str, 'chsrc --version';
|
||
like `$CHSRC version`, $version_str, 'chsrc version';
|
||
|
||
my $help_str = qr/^ (help|list|get|set|reset)/m;
|
||
like `$CHSRC -h`, $help_str, 'chsrc -h';
|
||
like `$CHSRC --help`, $help_str, 'chsrc --help';
|
||
like `$CHSRC help`, $help_str, 'chsrc help';
|
||
like `$CHSRC`, $help_str, 'chsrc';
|
||
|
||
|
||
=begin comment
|
||
|
||
测试 chsrc list
|
||
|
||
=end comment
|
||
=cut
|
||
my $list_str = qr/mirrorz\s*MirrorZ\s*.*\ntuna\s*TUNA/;
|
||
like `$CHSRC ls`, $list_str, 'chsrc ls';
|
||
like `$CHSRC list mirrors`, $list_str, 'chsrc list mirrors';
|
||
like `$CHSRC list os`, qr/netbsd\s*openbsd/, 'chsrc list os';
|
||
like `$CHSRC list ware`, qr/brew\s*homebrew/, 'chsrc list ware';
|
||
|
||
|
||
=begin comment
|
||
|
||
测试 chsrc get
|
||
|
||
=end comment
|
||
=cut
|
||
my $get_null = qr/chsrc: 请提供想要查看源的目标名/u;
|
||
like `$CHSRC get -no-color 2>&1`, $get_null, 'chsrc get -no-color';
|
||
|
||
my $fake_target_name = qr/暂不支持的换源目标/;
|
||
like `$CHSRC get fake_target_name 2>&1`, $fake_target_name, 'chsrc get fake_target_name';
|
||
|
||
|
||
if ((defined $ARGV[0]) && ($ARGV[0] eq 'fastcheck')) {
|
||
say "Fast checking, done testing.";
|
||
done_testing;
|
||
exit 0;
|
||
}
|
||
|
||
my $has_ruby = system 'ruby -v';
|
||
if ($has_ruby == 0) {
|
||
say "Ruby exists. Go on testing.";
|
||
} else {
|
||
say "No Ruby. End testing.";
|
||
done_testing;
|
||
exit 0;
|
||
}
|
||
|
||
my $get_ruby = qr/gem sources/;
|
||
like `$CHSRC get ruby`, $get_ruby, 'chsrc get ruby';
|
||
|
||
|
||
=begin comment
|
||
|
||
测试 chsrc measure
|
||
|
||
=end comment
|
||
=cut
|
||
my $measure_ruby = qr/Ruby China 社区/;
|
||
like `$CHSRC measure ruby`, $measure_ruby, 'chsrc measure ruby';
|
||
|
||
|
||
=begin comment
|
||
|
||
测试 chsrc set 以及 chsrc reset
|
||
|
||
=end comment
|
||
=cut
|
||
my $set_ruby_abcd = qr/镜像站.*不存在/;
|
||
my $set_ruby_first = qr/全自动换源完成, 感谢镜像提供方/;
|
||
my $set_ruby = qr/全自动换源完成, 感谢镜像提供方/;
|
||
my $reset_ruby = qr/选中镜像站.*Upstream.*已重置为上游默认源/s;
|
||
my $set_ruby_rubychina = qr/Ruby China 社区/;
|
||
my $set_ruby_locally = qr/bundle config --local/;
|
||
|
||
like `$CHSRC set ruby abcd 2>&1`, $set_ruby_abcd, 'chsrc set ruby abcd';
|
||
like `$CHSRC set ruby first`, $set_ruby_first, 'chsrc set ruby first';
|
||
like `$CHSRC set ruby`, $set_ruby, 'chsrc set ruby';
|
||
like `$CHSRC reset ruby`, $reset_ruby, 'chsrc reset ruby';
|
||
like `$CHSRC set ruby rubychina`, $set_ruby_rubychina, 'chsrc set ruby rubychina';
|
||
like `$CHSRC set -local ruby first`, $set_ruby_locally, 'chsrc set -local ruby first';
|
||
|
||
|
||
done_testing;
|