Add tests for delete

[perl/modules/Sub-Nary.git] / t / 23-branch.t

diff --git a/t/23-branch.t b/t/23-branch.t
index f806089a649ded05b90ba99687fa37822f5d3056..8bffe50fdbbf93f569681ec1c1b8a21ce2dccf66 100644 (file)
--- a/t/23-branch.t
+++ b/t/23-branch.t
@@ -64,7 +64,8 @@ my @tests = (
 my $i = 1;
 for (@tests) {
  my $r = $sn->nary($_->[0]);
- is_deeply($r, $_->[1], 'branch test ' . $i);
+ my $exp = ref $_->[1] ? $_->[1] : { $_->[1] => 1 };
+ is_deeply($r, $exp, 'branch test ' . $i);
  ++$i;
 }