38 lines
1.4 KiB
Perl
38 lines
1.4 KiB
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use 5.16.0;
|
||
|
|
use warnings;
|
||
|
|
use Zonemaster::Engine;
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
# page header
|
||
|
|
print '<!-- File generated by ', basename ($0), ", script in zonemaster/zonemaster util directory.\n";
|
||
|
|
print "Use that script to generate a new file for each release of Zonemaster when \n";
|
||
|
|
print "Zonemaster-Engine also has been updated.-->\n\n";
|
||
|
|
print "# Implemented Test Cases\n\n";
|
||
|
|
print "Index of Text Case specifications is also found in [README](README.md).\n";
|
||
|
|
print "[Zonemaster-Engine] is the repository of the implementation of the Test Cases (the methods).\n";
|
||
|
|
print "\n\n";
|
||
|
|
|
||
|
|
# table header
|
||
|
|
print '|Test level (linked to Perl code at CPAN)|Method name in Perl code|',
|
||
|
|
"Test Case Identifier (linked to specification)|\n";
|
||
|
|
print '|:---------------------------------------|:-----------------------|',
|
||
|
|
"----------------------------------------------|\n";
|
||
|
|
|
||
|
|
|
||
|
|
# table content
|
||
|
|
foreach my $module ( sort { fc $a cmp fc $b } Zonemaster::Engine::Test->modules ) {
|
||
|
|
my $full = "Zonemaster::Engine::Test::$module";
|
||
|
|
my $ref = $full->metadata;
|
||
|
|
my $modulelink = "https://metacpan.org/pod/Zonemaster::Engine::Test::$module";
|
||
|
|
for my $method (sort keys %$ref) {
|
||
|
|
my $testcase = uc ($method);
|
||
|
|
my $testcaselink = "${module}-TP/${method}.md";
|
||
|
|
printf "| [%s](%s) | %s | [%s](%s) |\n", $module, $modulelink, $method, $testcase, $testcaselink;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\n[Zonemaster-Engine]: https://github.com/zonemaster/zonemaster-engine\n";
|
||
|
|
|