File: context_tests.t

package info (click to toggle)
libcontextual-return-perl 0.1.0-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 236 kB
  • ctags: 222
  • sloc: makefile: 521; perl: 517
file content (25 lines) | stat: -rw-r--r-- 799 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
use Contextual::Return;
use Test::More 'no_plan';

sub foo {
    my ($expected) = @_;
       if (VOID)   { is $expected, 'void'    => 'VOID test';        }
    elsif (LIST)   { is $expected, 'list'    => 'LIST test';        }
    elsif (SCALAR) { is $expected, 'scalar'  => 'SCALAR test';      }
    else           { ok 0                    => 'bizarre behaviour' }
}

my @foo = foo(  'list'  );
my $foo = foo( 'scalar' );
          foo(  'void'  );

sub bar {
    my ($expected) = @_;
       if (VOID)    { is $expected,   'void'    => 'VOID test';          }
    elsif (NONVOID) { isnt $expected, 'void'    => "NONVOID(\U$expected\E) test"; }
    else           { ok 0                    => 'bizarre behaviour' }
}

my @bar = bar(  'list'  );
my $bar = bar( 'scalar' );
          bar(  'void'  );