diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-08-09 23:22:32 +0200 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-08-09 23:22:32 +0200 |
| commit | 3f19d3480369ba1e586cb7db64706c9e325fb52d (patch) | |
| tree | e19b1c10f9a43319c7290b083d52ec40e636d4ce | |
| parent | 165e1eb7f15234fca8877fffa1224d22125045e5 (diff) | |
| download | sbotools2-3f19d3480369ba1e586cb7db64706c9e325fb52d.tar.xz | |
Test::Sbotools: make load() return the explained struct
| -rw-r--r-- | t/Test/Sbotools.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/Test/Sbotools.pm b/t/Test/Sbotools.pm index 0db120e..7c6d98b 100644 --- a/t/Test/Sbotools.pm +++ b/t/Test/Sbotools.pm @@ -167,7 +167,9 @@ sub load { }; my $err = $@; - note explain { ret => $ret, exit => $exit, out => $out, eval => $eval, err => $err, do_err => $do_err } if $opts{explain}; + my $explain = { ret => $ret, exit => $exit, out => $out, eval => $eval, err => $err, do_err => $do_err }; + note explain $explain if $opts{explain}; + return $explain; } |