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'], |
}, |
}, |
); |
); |
|
|