t/various.t

   1 #!perl
   2
   3 use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 use FindBin '$Bin';
   8 use lib $Bin, "$Bin/t";
   9
  10 use Org::Parser;
  11 use Test::More 0.96;
  12 require "testlib.pl";
  13
  14 my $NUM_TEST_ITEMS = 4+3+3;
  15
  16 test_parse(
  17     parse_file_args => ["t/data/various.org"],
  18     name => 'various',
  19     test_after_parse => sub {
  20         my (%args) = @_;
  21         my $doc    = $args{result};
  22
  23         my $num_elems;
  24         my %num_elems;
  25         $doc->walk(
  26             sub {
  27                 my $elem = shift;
  28                 my $class = ref($elem);
  29                 $num_elems{$class}++;
  30                 $num_elems++;
  31             }
  32         );
  33
  34         is($num_elems, 27, 'num_elems');
  35         is($num_elems{"Org::Element::Headline"}, 10, 'num_elems(Headline)');
  36
  37     },
  38 );
  39
  40 done_testing();