Merge pull request RexOps#1506 from ferki/invalid_hostgroup

Detect invalid hostgroup expressions

Author: ferki

ChangeLog

@@ -4,6 +4,7 @@ Revision history for Rex
  [API CHANGES]
 
  [BUG FIXES]
+ - Detect invalid hostgroup expressions
 
  [DOCUMENTATION]
 

lib/Rex/Commands.pm

@@ -1786,9 +1786,12 @@ sub evaluate_hostname {
   if ( $rule =~ m/,/ ) {
     @ret = _evaluate_hostname_list( $start, $rule, $end );
   }
-  else {
+  elsif ( $rule =~ m/[.]{2}/msx ) {
     @ret = _evaluate_hostname_range( $start, $rule, $end );
   }
+  else {
+    croak('Invalid hostgroup expression');
+  }
 
   return @ret;
 }

t/group.t

@@ -1,7 +1,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 97;
+use Test::More tests => 98;
+use Test::Exception;
 
 use Rex -feature => '0.31';
 use Rex::Group;
@@ -72,3 +73,8 @@ ok( $server->function( $function_name, sub { return $function_result } ),
 
 my $function_ref = qualify_to_ref( $function_name, $server );
 is( *{$function_ref}->(), $function_result, 'calling custom function' );
+
+# invalid hostgroup expression
+
+dies_ok( sub { Rex::Commands::evaluate_hostname('s[78]') },
+  'die on invalid hostgroup expression' );