t/radio_target.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 test_parse(
  15     name => 'radio target basic tests',
  16     filter_elements => 'Org::Element::Link',
  17     doc  => <<'_',
  18 target1, nottarget 1
  19 target 2, nottarget 2
  20
  21 not target
  22 2
  23
  24 not
  25 target
  26
  27 <<<target1>>> <<<target 2>>>
  28 <<<not
  29 target>>>
  30
  31 target1
  32
  33 [[normal link]]
  34 _
  35     num => 3 +1,
  36     test_after_parse => sub {
  37         my %args  = @_;
  38         my $doc   = $args{result};
  39         my $elems = $args{elements};
  40         is($elems->[0]->link, "target1" , "link[0]");
  41         is($elems->[1]->link, "target 2", "link[1]");
  42         is($elems->[2]->link, "target1" , "link[2]");
  43
  44         ok( $elems->[0]->from_radio_target, "from_radio_target[0]");
  45         ok( $elems->[1]->from_radio_target, "from_radio_target[1]");
  46         ok( $elems->[2]->from_radio_target, "from_radio_target[2]");
  47         ok(!$elems->[3]->from_radio_target, "from_radio_target[3]");
  48     },
  49 );
  50
  51 done_testing();
  52