Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

66 lines (55 sloc) 1.47 kb
#!perl
use 5.010;
use strict;
use warnings;
use FindBin '$Bin';
use lib $Bin, "$Bin/t";
use DateTime;
use Org::Parser;
use Test::More 0.96;
require "testlib.pl";
test_parse(
name => 'timerange basic tests',
filter_elements => sub {
$_[0]->isa('Org::Element::TimeRange') },
doc => <<'_',
* TODO active timeranges
<2011-03-23 Wed>--<2011-03-24 Thu>
<2011-03-23 >--<2011-03-24 >
<2011-03-23 Wed 01:23>--<2011-03-23 Wed 03:59>
* inactive timeranges
[2011-03-23 Wed]--[2011-03-24 Thu]
[2011-03-23 ]--[2011-03-24 ]
[2011-03-23 Wed 01:23]--[2011-03-23 Wed 03:59]
* non-timeranges
[2011-03-22 ]--<2011-03-23 > # mixed active & inactive timestamp
<2011-03-22 >--[2011-03-23 ] # mixed active & inactive timestamp
_
num => 6,
test_after_parse => sub {
my %args = @_;
my $doc = $args{result};
my $elems = $args{elements};
ok( $elems->[0]->ts1->is_active, "tr[0] is_active");
ok(!$elems->[3]->ts1->is_active, "tr[3] !is_active");
},
);
test_parse(
name => 'event duration not allowed in timerange',
filter_elements => sub {
$_[0]->isa('Org::Element::TimeRange') },
doc => <<'_',
<2011-03-23 Wed 11:28-12:00>--<2011-03-24 Thu>
_
dies => 1,
);
test_parse(
name => 'repeater not allowed in timerange',
filter_elements => sub {
$_[0]->isa('Org::Element::TimeRange') },
doc => <<'_',
<2011-03-23 Wed +1w>--<2011-03-24 Thu>
_
dies => 1,
);
done_testing();
Jump to Line
Something went wrong with that request. Please try again.