File: [local] / todotxt / Text-Todo / t / entry.t (download)
Revision 1.6, Fri Jan 8 04:44:54 2010 UTC (14 years, 5 months ago) by andrew
Branch: MAIN
Changes since 1.5: +44 -26 lines
some cleanup of " => '
add tests for setting (and clearing) of priority
|
#===============================================================================
#
# FILE: entry.t
#
# DESCRIPTION: Test entry commands
#
# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org
# COMPANY: Red River Communications
# CREATED: 07/10/09 11:32:39
# REVISION: $RedRiver: entry.t,v 1.5 2010/01/06 19:54:56 andrew Exp $
#===============================================================================
use strict;
use warnings;
use Test::More tests => 40;
my $class = 'Text::Todo::Entry';
BEGIN: { use_ok( $class, "use $class" ) }
diag("Testing entry $class $Text::Todo::Entry::VERSION");
my %sample = (
text => '(B) @home @work send email to andrew@cpan.org +say_thanks',
priority => 'B',
contexts => [ 'home', 'work' ],
projects => ['say_thanks'],
prepend => 'before',
append => 'or something',
new_project => 'notnapping',
new_context => 'car',
);
my $e = new_ok($class);
ok( $e->change( $sample{text} ), 'Update entry' );
is( $e->text, $sample{text}, 'Make sure entry matches' );
is( $e->priority, $sample{priority}, 'check priority' );
is_deeply( [ $e->contexts ], $sample{contexts}, 'check contexts' );
is_deeply( [ $e->projects ], $sample{projects}, 'check projects' );
$sample{text} =~ s/^( \s* \( $sample{priority} \))/$1 $sample{prepend}/xms;
ok( $e->prepend( $sample{prepend} ), 'Prepend entry' );
is( $e->text, $sample{text}, 'Make sure entry matches' );
is( $e->priority, $sample{priority}, 'check priority' );
is_deeply( [ $e->contexts ], $sample{contexts}, 'check contexts' );
is_deeply( [ $e->projects ], $sample{projects}, 'check projects' );
$sample{text} .= ' ' . $sample{append};
ok( $e->append( $sample{append} ), 'Append entry' );
is( $e->text, $sample{text}, 'Make sure entry matches' );
is( $e->priority, $sample{priority}, 'check priority' );
is_deeply( [ $e->contexts ], $sample{contexts}, 'check contexts' );
is_deeply( [ $e->projects ], $sample{projects}, 'check projects' );
ok( !$e->in_project( $sample{new_project} ), 'not in new project yet' );
push @{ $sample{projects} }, $sample{new_project};
$sample{text} .= ' +' . $sample{new_project};
ok( $e->append( '+' . $sample{new_project} ), 'Add project' );
is( $e->text, $sample{text}, 'Make sure entry matches' );
ok( $e->in_project( $sample{new_project} ), 'now in new project' );
ok( !$e->in_context( $sample{new_context} ), 'not in new context yet' );
push @{ $sample{contexts} }, $sample{new_context};
$sample{text} .= ' @' . $sample{new_context};
ok( $e->append( '@' . $sample{new_context} ), 'Add context' );
is( $e->text, $sample{text}, 'Make sure entry matches' );
ok( $e->in_context( $sample{new_context} ), 'now in new context' );
$sample{text} =~ s/^\(B\)\s*/(A) /gxms;
$sample{priority} = 'A';
ok( $e->priority('A'), 'Set priority to A' );
is( $e->text, $sample{text}, 'Make sure entry matches' );
is( $e->priority, 'A', 'New priority is set' );
$sample{text} =~ s/^\(A\)\s*//gxms;
$sample{priority} = '';
ok( $e->depri(), 'Deprioritize' );
is( $e->text, $sample{text}, 'Make sure entry matches' );
is( $e->priority, undef, 'New priority is set' );
ok( !$e->completed, 'not completed' );
ok( $e->complete, 'mark as completed' );
ok( $e->completed, 'now completed' );
is( $e->text, 'x ' . $sample{text}, 'Make sure entry matches' );
ok( $e->change( '' ), 'Blank entry' );
is( $e->text, '', 'Make sure entry is blank' );
is( $e->priority, undef, 'check priority is undef' );
is_deeply( [ $e->contexts ], [], 'check contexts are empty' );
is_deeply( [ $e->projects ], [], 'check projects are empty' );
# replace
# app => 'append',
# prep => 'prepend',
# dp => 'dpri',
# p => 'pri',