| version 1.1, 2009/07/10 23:26:14 |
version 1.2, 2009/07/13 18:50:37 |
|
|
| # 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$ |
# REVISION: $RedRiver: 50.read_todo.t,v 1.1 2009/07/10 22:26:14 andrew Exp $ |
| #=============================================================================== |
#=============================================================================== |
| |
|
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| use File::Spec; |
use File::Spec; |
| use Test::More tests => 24; |
use Test::More tests => 28; |
| |
|
| my $todo_file = File::Spec->catfile( 't', 'todo1.txt' ); |
my $todo_file = File::Spec->catfile( 't', 'todo1.txt' ); |
| my @todos = ( |
my @todos = ( |
|
|
| priority => undef, |
priority => undef, |
| contexts => ['shopping'], |
contexts => ['shopping'], |
| projects => [], |
projects => [], |
| |
}, |
| |
{ text => 'email andrew@cpan.org for help +report_bug @wherever', |
| |
priority => undef, |
| |
contexts => ['wherever'], |
| |
projects => ['report_bug'], |
| }, |
}, |
| ); |
); |
| |
|