最新消息:

Rex::Test::Spec 模块

Perl admin 1216浏览 0评论

上篇说了 serverspec 工具,我一直对 Rspec 的语法蛮有好感的,于是昨晚花了点时间模仿这个给 Rex 写了个类似的工具,叫 Rex::Test::Spec,源代码地址见:https://github.com/chenryn/Rex–Test–Spec

语法大概是这样的:

use Rex::Test::Spec;
    describe "Nginx Test", sub {
        context run("nginx -t"), "nginx.conf testing", sub {
            like its('stdout'), qr/ok/;
        };
        context file("/etc/nginx.conf"), sub {
            is its('ensure'), 'present';
            like its('content'), qr/listens+80;/;
        };
        context service("nginx"), sub {
            is its('ensure'), 'running';
        };
        context pkg("nginx"), sub {
            is its('ensure'), 'present';
            is its('version'), '1.5.8';
        };
        context cron, sub {
            like its('www'), 'logrotate';
        };
        context gateway, sub {
            is it, '192.168.0.1';
        };
        context group('www'), sub {
            ok its('ensure');
        };
        context port(80), sub {
            is its('bind'), '0.0.0.0';
            is its('proto'), 'tcp';
            is its('command'), 'nginx';
        };
        context process('nginx'), sub {
            like its('command'), qr(nginx -c /etc/nginx.conf);
            ok its('mem') > 1024;
        };
        context routes, sub {
            is_deeply its(1), {
                destination => $dest,
                gateway     => $gw,
                genmask     => $genmask,
                flags       => $flags,
                mss         => $mss,
                irtt        => $irtt,
                iface       => $iface,
            };
        };
        context sysctl, sub {
            is its('vm.swapiness'), 1;
        };
        context user('www'), sub {
            ok its('ensure');
            is its('home'), '/var/www/html';
            is its('shell'), '/sbin/nologin';
            is_deeply its('belong_to'), ['www', 'nogroup'];
        };
    };
    done_testing;

从 Rspec 学来的 context/describe/it/its 语法,保留了 Test::More 的 is/like/is_deeply/done_testing 语法。

这里把 Test::More 里导入的指令都重载了,因为把 context 指令后面的资源类型通过 local $msg 变量传递过来,就可以显示出来每个 its 测试是什么资源类型的了。因为这个原因,指令导出的时候就没法用 Exporter 模块,因为 Exporter 里的 import 函数没有 no strict;no warnings。所以得自己写 import 函数导出。

具体的资源类型,第一次学习了一下 AUTOLOAD 的用法。还是蛮好玩的~

因为我是在 Mac 上写的代码,而 Rex 本身不怎么支持 Darwin 平台,所以源码里就测了一下 run 指令可用。欢迎大家帮忙补齐其他指令的测试用例,以及如何在 Rex 的 task 里通过 SSH 方式远程做这些测试(公司平台也没法让我做这个 SSH 测试)。

转载请注明:热门技术 » Rex::Test::Spec 模块

发表我的评论
取消评论
表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址