git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/parentheses.t

   1 use Test::Base tests => 17;
   2
   3 sub some_text { 'This is some text' };
   4
   5 my $b = first_block;
   6 is $b->foo, $b->bar, $b->name;
   7 is $b->foo, some_text();
   8
   9 run {
  10     my $b = shift;
  11     ok defined $b->foo;
  12     is @{[$b->foo]}, 1;
  13     ok length $b->foo;
  14 };
  15
  16 __DATA__
  17
  18 === Parens clarify section
  19 --- (foo) some_text
  20 --- (bar) some_text
  21
  22 ===
  23 --- (foo: some text
  24
  25 ===
  26 --- foo)
  27 some text
  28
  29 ===
  30 --- (foo): some text
  31
  32 ===
  33 --- (foo) split join: some text
  34