File: blocks_grep.t

package info (click to toggle)
libtest-base-perl 0.89-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 676 kB
  • sloc: perl: 936; makefile: 2
file content (34 lines) | stat: -rw-r--r-- 433 bytes parent folder | download | duplicates (9) 
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
26
27
28
29
30
31
32
33
34
 
use Test::Base;

my $plan = 1 * blocks('foo') + 3;

plan tests => $plan;

is $plan, 5, 'Make sure plan adds up';

for my $block (blocks('foo')) {
    is $block->foo,
       exists($block->{bar}) ? $block->bar : 'no bar';
}

eval { blocks(foo => 'bar') };
like "$@",
     qr{^Invalid arguments passed to 'blocks'};

run_is foo => 'bar';

__DATA__

===
--- bar
excluded

===
--- foo
included
--- bar
included

===
--- foo chomp
no bar