#!perl
use 5.010;
use strict;
use warnings;
use FindBin '$Bin';
use lib $Bin, "$Bin/t";
use Org::Parser;
use Test::More 0.96;
require "testlib.pl";
test_parse(
name => 'field_name() (text)',
doc => <<'_',
DEADLINE: <2011-06-09 >
DEADLINE <2011-06-09 >
foo
bar baz : <2011-06-09 >
- item
- item 2: <2011-06-09 >
_
test_after_parse => sub {
my (%args) = @_;
my $doc = $args{result};
my ($ts1, $ts2, $ts3, $ts4) = $doc->find('Timestamp');
is( $ts1->field_name, "DEADLINE");
ok(!$ts2->field_name);
is( $ts3->field_name, "bar baz");
is( $ts4->field_name, "item 2");
},
);
test_parse(
name => 'field_name() (desc_term)',
doc => <<'_',
- name1 :: value
- name2 :: <2011-06-09 >
_
test_after_parse => sub {
my (%args) = @_;
my $doc = $args{result};
my ($ts1) = $doc->find('Timestamp');
is( $ts1->field_name, "name2");
},
);
# TODO
test_parse(
name => 'field_name() (properties)',
doc => <<'_',
* first last
:PROPERTIES:
:birthday: (5 7 1970)
:email: foo@bar.com
:END:
_
test_after_parse => sub {
my (%args) = @_;
my $doc = $args{result};
},
);
done_testing();