t/base_element-field_name.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 => 'field_name() (text)',
  16     doc  => <<'_',
  17 DEADLINE: <2011-06-09 >
  18 DEADLINE <2011-06-09 >
  19 foo
  20  bar baz : <2011-06-09 >
  21
  22 - item
  23 - item 2: <2011-06-09 >
  24 _
  25     test_after_parse => sub {
  26         my (%args) = @_;
  27         my $doc = $args{result};
  28
  29         my ($ts1, $ts2, $ts3, $ts4) = $doc->find('Timestamp');
  30         is( $ts1->field_name, "DEADLINE");
  31         ok(!$ts2->field_name);
  32         is( $ts3->field_name, "bar baz");
  33         is( $ts4->field_name, "item 2");
  34     },
  35 );
  36
  37 test_parse(
  38     name => 'field_name() (desc_term)',
  39     doc  => <<'_',
  40 - name1 :: value
  41 - name2 :: <2011-06-09 >
  42 _
  43     test_after_parse => sub {
  44         my (%args) = @_;
  45         my $doc = $args{result};
  46
  47         my ($ts1) = $doc->find('Timestamp');
  48         is( $ts1->field_name, "name2");
  49     },
  50 );
  51
  52 # TODO
  53 test_parse(
  54     name => 'field_name() (properties)',
  55     doc  => <<'_',
  56 * first last
  57 :PROPERTIES:
  58   :birthday: (5 7 1970)
  59   :email:    foo@bar.com
  60 :END:
  61 _
  62     test_after_parse => sub {
  63         my (%args) = @_;
  64         my $doc = $args{result};
  65     },
  66 );
  67
  68 done_testing();