'either or' value unit test case in Test::Simple or Test::More

palette has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: 'either or' value unit test case in Test::Simple or Test::More by ikegami (Patriarch) on Jan 05, 2007 at 14:34 UTC
`# Test::Simple or Test::More ok($var eq 'a' \|\| $var eq 'b', "test name");` [download] Update: `map` will help you avoid evaluating the expression twice. (Be careful about context.) ( Oops, added missing parens. Thanks shenme ) `# Test::Simple or Test::More ok((map { $_ eq 'a' \|\| $_ eq 'b' } $var), "test name");` [download] Update: Or you could use a regexp. `# Test::More like($var, qr/^(?:a\|b)\z/, "test name");` [download]	[reply] [d/l] [select]
Re: 'either or' value unit test case in Test::Simple or Test::More by imp (Priest) on Jan 05, 2007 at 14:54 UTC
You could use Test::Deep. `use strict; use warnings; use Test::More tests => 1; use Test::Deep; cmp_deeply([1], subsetof(1,2,3));` [download]	[reply] [d/l]
Re: 'either or' value unit test case in Test::Simple or Test::More by shmem (Chancellor) on Jan 05, 2007 at 14:48 UTC
Use `ok( $var1 eq 'foo' \|\| $var1 eq 'bar', 'either foo or bar');` [download] i.e. make an expression that checks $var1 against both posibilities, and evaluates to either some true or some false value. Don't use `is( $var1 eq 'foo' ? 1 : $var1 eq 'bar'? 1 : undef, 1, 'either foo or +bar');` [download] - that `is` syntax is explicitly discouraged in the docs. Thanks to ikegami for pointing that out via /msg. --shmem update: removed cluttered ternary op suggestion, incorporated ikegami's /msg. _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l] [select]
Re: 'either or' value unit test case in Test::Simple or Test::More by Anonymous Monk on Jan 05, 2007 at 14:45 UTC
`ok( grep { $var1 eq $_ } qw[ a b ] , 'test name' );` [download]	[reply] [d/l]
Re: 'either or' value unit test case in Test::Simple or Test::More by Tanktalus (Canon) on Jan 05, 2007 at 15:42 UTC
Here's one that works in theory, but, in practice, doesn't. (I wonder if the Test::Builder owner would want to fix this ... probably not.) `use Quantum::Superpositions; is($var, any('a', 'b'), "it's a or b");` [download] The idea is that you should be able to do this comparison ... but Test::Builder::_unoverload_str is used to convert the object that any returns into a string ... and that kills all the magic.	[reply] [d/l]
Re: 'either or' value unit test case in Test::Simple or Test::More by grinder (Bishop) on Jan 05, 2007 at 16:23 UTC
I would write that as separate `pass` calls, which allows you to see which one matched. `if ($var eq 'a') { pass( 'var is an a' ); } elsif ($var eq 'b') { pass( 'var is a b' ); } else { fail( "var was $var" ); }` [download] Be careful here and don't go too tricky in the code flow, otherwise you may end up with a pass() in one branch, and nothing in the other, which will lead to strange off-by-one errors in the test plan. KISS. • another intruder with the mooring in the heart of the Perl	[reply] [d/l]
Re^2: 'either or' value unit test case in Test::Simple or Test::More by ferreira (Chaplain) on Jan 05, 2007 at 16:43 UTC
What about an overkill abstract solution? `# is_one_of($val, \@list); sub is_one_of { my $val = shift; my $list = shift; my $test_name = "$val is not one of @$list"; for (@$list) { pass($test_name), return if $val eq $_; } diag "never saw [$val] in [@$list]"; fail($test_name); }` [download] And then palette may say: `is_one_of($var, [ qw(a b) ]);` [download] Update: fixed after grinder's comment — `return` and `diag` added.	[reply] [d/l] [select]
Re^3: 'either or' value unit test case in Test::Simple or Test::More by grinder (Bishop) on Jan 05, 2007 at 16:49 UTC
If $list winds up with duplicate values that match $val, your plan is in big trouble. I would change that to `for (@$list) { if ($val eq $_) { pass($test_name); return; } } diag "never saw [$val] in [@$list]"; fail($test_name);` [download] • another intruder with the mooring in the heart of the Perl	[reply] [d/l]