diff options
Diffstat (limited to '_testing')
| -rw-r--r-- | _testing/_irssi_test.pl | 7 | ||||
| -rw-r--r-- | _testing/config.yml | 28 | ||||
| -rw-r--r-- | _testing/travis/update-scripts-yaml.pl | 5 |
3 files changed, 11 insertions, 29 deletions
diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl index f1eb998..462d86b 100644 --- a/_testing/_irssi_test.pl +++ b/_testing/_irssi_test.pl @@ -29,7 +29,8 @@ require Encode; # This is an ugly hack to be `lax' about the encoding. We try to # read everything as UTF-8 regardless of declared file encoding # and fall back to Latin-1. - my $orig = YAML::Tiny->can("_has_internal_string_value"); + my $orig = YAML::Tiny->can("_has_internal_string_value") || die("Error in ".__PACKAGE__); + no warnings 'redefine'; *YAML::Tiny::_has_internal_string_value = sub { my $ret = $orig->(@_); use bytes; @@ -48,7 +49,7 @@ my @modules = grep { && !Module::CoreList->first_release($_) } sort keys %{ $prereq_results->as_string_hash }; -my (%info, $version); +my (%info, $version, @commands); unless (defined $package) { my %fail = (failed => 1, name => $CURRENT_SCRIPT); $fail{modules} = \@modules if @modules; @@ -67,6 +68,7 @@ unless (defined $package) { else { %info = do { no strict 'refs'; %{"Irssi::Script::${package}IRSSI"} }; $version = do { no strict 'refs'; ${"Irssi::Script::${package}VERSION"} }; + @commands = sort map { $_->{cmd} } grep { $_->{category} eq "Perl scripts' commands" } Irssi::commands; } delete $info{''}; for my $rb (keys %info) { @@ -93,5 +95,6 @@ if ($loginfo) { $info{modified} = "$date $time"; } $info{modules} = \@modules if @modules; +$info{commands} = \@commands if @commands; $info{default_package} = $package =~ s/::$//r if $package; YAML::Tiny::DumpFile("info.yml", [\%info]); diff --git a/_testing/config.yml b/_testing/config.yml index 2b96a25..26bcec4 100644 --- a/_testing/config.yml +++ b/_testing/config.yml @@ -36,47 +36,21 @@ cpan: whitelist: - amaroknp - babelirc + - cap_sasl_fail - cap_sasl - - cgrep - - colorkick - - connectcmd - - dau - - dccself - dnsspam - - hddtemp - - hitcount - irc_chess - ircgallery - irssiq - isdn - ixmmsa - - kicks - l33tmusic - - localize - log2ansi - - mangle - mkshorterlink - - newsline - - nicklist - - ogg123 - oidenty - 'on' - osd - - page-c0ffee - - pager - - query - - quizgr - - quizmaster-fr - - quizmaster - - quiz - - randaway - - reorder - - scroller - stocks - - sysinfoplus - - topicsed - - translit - tvmusor - - wordcompletition - xetra - xmmsinfo diff --git a/_testing/travis/update-scripts-yaml.pl b/_testing/travis/update-scripts-yaml.pl index 0ed52ac..e554f33 100644 --- a/_testing/travis/update-scripts-yaml.pl +++ b/_testing/travis/update-scripts-yaml.pl @@ -46,6 +46,11 @@ for my $file (<scripts/*.pl>) { $newmeta{$filename}{modules} = join ' ', @$modules if 'ARRAY' eq ref $modules; + my $commands = delete $newmeta{$filename}{commands}; + my @commands = grep { !/ / } @$commands + if 'ARRAY' eq ref $commands; + $newmeta{$filename}{commands} = "@commands" + if @commands; } elsif (exists $oldmeta{$filename}) { print "META-INF FOR $base NOT FOUND\n"; |