t/pod/nested_items.t

   1 BEGIN {
   2    use File::Basename;
   3    my $THISDIR = dirname $0;
   4    unshift @INC, $THISDIR;
   5    require "testp2pt.pl";
   6    import TestPodIncPlainText;
   7 }
   8
   9 my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
  10 my $passed  = testpodplaintext \%options, $0;
  11 exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};
  12
  13
  14 __END__
  15
  16
  17 =head1 Test nested item lists
  18
  19 This is a test to ensure the nested =item paragraphs
  20 get indented appropriately.
  21
  22 =over 2
  23
  24 =item 1
  25
  26 First section.
  27
  28 =over 2
  29
  30 =item a
  31
  32 this is item a
  33
  34 =item b
  35
  36 this is item b
  37
  38 =back
  39
  40 =item 2
  41
  42 Second section.
  43
  44 =over 2
  45
  46 =item a
  47
  48 this is item a
  49
  50 =item b
  51
  52 this is item b
  53
  54 =item c
  55
  56 =item d
  57
  58 This is item c & d.
  59
  60 =back
  61
  62 =back
  63
  64 =cut