Mercurial > hg > Gears > Gears

changeset 682:49d57e7fce39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add perl test
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 21 Aug 2020 06:35:07 +0900
parents 04df4583de36
children ccc17667ffb2
files src/parallel_execution/lib/Gears/Util.pm src/parallel_execution/perlTests/README.md src/parallel_execution/perlTests/util.t
diffstat 3 files changed, 19 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }
 
 
--- /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
+```
--- /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;