=================================================================== RCS file: /cvs/todotxt/Text-Todo/t/read_todo.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- todotxt/Text-Todo/t/read_todo.t 2010/01/06 19:54:56 1.3 +++ todotxt/Text-Todo/t/read_todo.t 2010/01/08 23:06:09 1.4 @@ -8,7 +8,7 @@ # AUTHOR: Andrew Fresh (AAF), andrew@cpan.org # COMPANY: Red River Communications # CREATED: 07/09/09 11:45:52 -# REVISION: $RedRiver: 50.read_todo.t,v 1.2 2009/07/13 17:50:37 andrew Exp $ +# REVISION: $RedRiver: read_todo.t,v 1.3 2010/01/06 19:54:56 andrew Exp $ #=============================================================================== use strict; @@ -28,38 +28,38 @@ priority => 'B', contexts => ['phone'], projects => ['GarageSale'], - complete => undef, + do => undef, }, { text => '+GarageSale @home post signs around the neighborhood DUE:2006-08-01', priority => undef, contexts => ['home'], projects => ['GarageSale'], - complete => undef, + do => undef, }, { text => 'X eat meatballs @home', priority => undef, contexts => ['home'], projects => [], - complete => 'X', + do => 'X', }, { text => '(A) @phone thank Mom for the meatballs WAIT', priority => 'A', contexts => ['phone'], projects => [], - complete => undef, + do => undef, }, { text => '@shopping Eskimo pies', priority => undef, contexts => ['shopping'], projects => [], - complete => undef, + do => undef, }, { text => 'email andrew@cpan.org for help +report_bug @wherever', priority => undef, contexts => ['wherever'], projects => ['report_bug'], - complete => undef, + do => undef, }, ); @@ -68,7 +68,7 @@ priority => undef, contexts => ['continually'], projects => ['test+everything'], - complete => undef, + do => undef, ); BEGIN: { use_ok( 'Text::Todo', 'use Text::Todo' ) } @@ -110,7 +110,7 @@ is( $read->text, $sample->{text}, "check text [$id]" ); is( $read->priority, $sample->{priority}, "check priority [$id]" ); - is( $read->completed, $sample->{complete}, "check completion [$id]" ); + is( $read->done, $sample->{do}, "check completion [$id]" ); is_deeply( [ $read->contexts ], $sample->{contexts},