icli -lq: Support filtering output with -h/-g

1 files changed, 6 insertions, 1 deletions

diff --git a/t/50-icli.t b/t/50-icli.t
index d5a4b65..2ab76e4 100644
--- a/t/50-icli.t
+++ b/t/50-icli.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.010;
 
-use Test::Command tests => (21*3);
+use Test::Command tests => (22*3);
 
 my $icli = 'bin/icli -f t/in/status.dat -c t/in/objects.cache';
 
@@ -80,6 +80,11 @@ $cmd->exit_is_num(0);
 $cmd->stdout_is_file('t/out/list_queue');
 $cmd->stderr_is_eq($EMPTY);
 
+$cmd = Test::Command->new(cmd => "$icli -lq -h aneurysm");
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('t/out/list_queue_aneurysm');
+$cmd->stderr_is_eq($EMPTY);
+
 
 $cmd = Test::Command->new(cmd => "$icli -g invalid");
 $cmd->exit_isnt_num(0);