=================================================================== RCS file: /cvs/todotxt/Text-Todo/t/list.t,v retrieving revision 1.5 retrieving revision 1.10 diff -u -r1.5 -r1.10 --- todotxt/Text-Todo/t/list.t 2010/01/09 07:02:35 1.5 +++ todotxt/Text-Todo/t/list.t 2010/01/15 19:44:32 1.10 @@ -8,20 +8,20 @@ # AUTHOR: Andrew Fresh (AAF), andrew@cpan.org # COMPANY: Red River Communications # CREATED: 01/07/10 19:11 -# REVISION: $RedRiver: list.t,v 1.4 2010/01/09 06:54:15 andrew Exp $ +# REVISION: $AFresh1: list.t,v 1.9 2010/01/11 19:52:06 andrew Exp $ #=============================================================================== use strict; use warnings; -use Test::More tests => 47; +use Test::More tests => 53; use File::Temp qw/ tempdir /; use Data::Dumper; my $class = 'Text::Todo'; -BEGIN: { use_ok( $class, "use $class" ) } +BEGIN { use_ok( $class, "use $class" ) } diag("Testing entry $class $Text::Todo::VERSION"); @@ -64,7 +64,7 @@ $orig = undef; my @pri_list; -ok( @pri_list = $copy->listpri, 'list priority item' ); +ok( @pri_list = $copy->listpri('A'), 'list priority item' ); is( scalar @pri_list, 1, 'only 1 item in the priority list' ); is( $pri_list[0]->text, '(A) entry 1 @one +uno', 'priority item is correct' ); @@ -99,10 +99,14 @@ ok( @projects = $copy->listproj, 'listproj for current list' ); is_deeply( \@projects, [ 'dos', 'uno' ], 'got the projects we expected' ); +my @contexts; +ok( @contexts = $copy->listcon, 'listcon for current list' ); +is_deeply( \@contexts, [ 'one', 'two' ], 'got the contexts we expected' ); + my $entry_to_archive; -ok( $entry_to_archive = $copy->list->[1], 'read entry_to_archive' ); +ok( $entry_to_archive = $copy->list->[3], 'read entry_to_archive' ); is( $entry_to_archive->text, - 'x completed entry 3', + 'x completed entry 4', 'make sure we got the right entry' ); @@ -127,4 +131,4 @@ is( $done[-2]->text, $entry_to_archive->text, 'make sure it moved to the archive' ); -done_testing(); +#done_testing();