# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1597959307 -32400
# Node ID 49d57e7fce39cccb1e86f21d12b04b6d50172c71
# Parent  04df4583de360c5eb08cd6346e7468cee24a67db
add perl test

diff -r 04df4583de36 -r 49d57e7fce39 src/parallel_execution/lib/Gears/Util.pm
--- a/src/parallel_execution/lib/Gears/Util.pm	Fri Aug 21 05:59:24 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Util.pm	Fri Aug 21 06:35:07 2020 +0900
@@ -17,6 +17,8 @@
 
   unless ($ir->{name}) {
     croak "invalid struct name $file_name";
+  }
+  return $ir;
 }
 
 
diff -r 04df4583de36 -r 49d57e7fce39 src/parallel_execution/perlTests/README.md
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/parallel_execution/perlTests/README.md	Fri Aug 21 06:35:07 2020 +0900
@@ -0,0 +1,7 @@
+# perl test tool
+
+## USAGE
+
+```
+$prove -v perlTests -Ilib
+```
diff -r 04df4583de36 -r 49d57e7fce39 src/parallel_execution/perlTests/util.t
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/parallel_execution/perlTests/util.t	Fri Aug 21 06:35:07 2020 +0900
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Test::More;
+
+use_ok "Gears::Util";
+
+
+done_testing;