--- a/src/parallel_execution/perlTests/Interface.t	Fri Aug 21 17:07:01 2020 +0900
+++ b/src/parallel_execution/perlTests/Interface.t	Fri Aug 21 17:10:38 2020 +0900
@@ -20,7 +20,7 @@
     plan tests => 1;
 
     my $stack_header = "$FindBin::Bin/../Stack.h";
-    my $expand = {
+    my $want = {
           name => 'Stack',
           file_name => $stack_header,
           content => [
@@ -39,9 +39,9 @@
                        ]
      };
 
-     my $res = Gears::Interface->parse($stack_header);
+     my $have = Gears::Interface->parse($stack_header);
 
-     is_deeply ($res, $expand, "parsing stack.h");
+     is_deeply ($have, $want, "parsing stack.h");
   };
 };
 
@@ -52,7 +52,7 @@
 
     my $queue_header = "$FindBin::Bin/../Queue.h";
 
-    my $expand = {
+    my $want = {
             'data' => [
                         'union Data* queue;',
                         'union Data* data;'
@@ -97,15 +97,14 @@
                        ],
             'hasOutputArgs' => {
                                  'take' => {
-                                             'Data' => 'union',
-                                             'data' => '*'
+                                             'data' => 'union Data*'
                                            }
                                }
           };
 
-          my $res = Gears::Interface->separate_code_and_data_gear_after_parse($queue_header);
+          my $have = Gears::Interface->separate_code_and_data_gear_after_parse($queue_header);
 
-          is_deeply ($res, $expand, "parsing Queue.h");
+          is_deeply ($have, $want, "parsing Queue.h")  || diag explain $have;
       };
 
 };