| version 1.5, 2010/01/10 04:08:59 |
version 1.11, 2010/01/18 02:46:48 |
|
|
| # AUTHOR: Andrew Fresh (AAF), andrew@cpan.org |
# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org |
| # COMPANY: Red River Communications |
# COMPANY: Red River Communications |
| # CREATED: 07/09/09 11:45:52 |
# CREATED: 07/09/09 11:45:52 |
| # REVISION: $RedRiver: read_todo.t,v 1.4 2010/01/08 23:06:09 andrew Exp $ |
# REVISION: $AFresh1: read_todo.t,v 1.9 2010/01/15 19:44:32 andrew Exp $ |
| #=============================================================================== |
#=============================================================================== |
| |
|
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| use File::Spec; |
use File::Spec; |
| use File::Temp qw/ tempdir /; |
use File::Temp qw/ tempdir /; |
| use Test::More tests => 122; |
use Test::More tests => 138; |
| |
|
| my $todo_file = File::Spec->catfile( 't', 'todo1.txt' ); |
my $todo_file = File::Spec->catfile( 't', 'todo1.txt' ); |
| my $tempdir = tempdir( 'todotxt-XXXXXXX', CLEANUP => 1 ); |
my $tempdir = tempdir( 'todotxt-XXXXXXX', CLEANUP => 1 ); |
|
|
| projects => ['report_bug'], |
projects => ['report_bug'], |
| done => undef, |
done => undef, |
| }, |
}, |
| |
{ text => 'x 2009-01-01 completed with a date', |
| |
priority => undef, |
| |
contexts => [], |
| |
projects => [], |
| |
done => '2009-01-01', |
| |
}, |
| ); |
); |
| |
|
| my %extra_todo = ( |
my %extra_todo = ( |
|
|
| done => undef, |
done => undef, |
| ); |
); |
| |
|
| BEGIN: { use_ok( 'Text::Todo', 'use Text::Todo' ) } |
BEGIN { use_ok( 'Text::Todo', 'use Text::Todo' ) } |
| |
|
| diag("Testing read Text::Todo $Text::Todo::VERSION"); |
diag("Testing read Text::Todo $Text::Todo::VERSION"); |
| |
|