[BACK]Return to list.t CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo / t

Diff for /todotxt/Text-Todo/t/list.t between version 1.3 and 1.4

version 1.3, 2010/01/09 06:26:43 version 1.4, 2010/01/09 06:54:15
Line 8 
Line 8 
 #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org  #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org
 #      COMPANY:  Red River Communications  #      COMPANY:  Red River Communications
 #      CREATED:  01/07/10 19:11  #      CREATED:  01/07/10 19:11
 #     REVISION:  $RedRiver: list.t,v 1.2 2010/01/09 05:00:21 andrew Exp $  #     REVISION:  $RedRiver: list.t,v 1.3 2010/01/09 06:26:43 andrew Exp $
 #===============================================================================  #===============================================================================
   
 use strict;  use strict;
Line 64 
Line 64 
 $orig = undef;  $orig = undef;
   
 my @pri_list;  my @pri_list;
 ok( @pri_list = $copy->listpri, 'load priority item' );  ok( @pri_list = $copy->listpri, 'list priority item' );
 is( scalar @pri_list, 1, 'only 1 item in the priority list' );  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' );  is( $pri_list[0]->text, '(A) entry 1 @one +uno', 'priority item is correct' );
   
Line 107 
Line 107 
     'make sure we got the right entry'      'make sure we got the right entry'
 );  );
   
 TODO: {  ok( $copy->archive, 'archive done items' );
     local $TODO = 'No tests for archive and it isn\'t even written yet';  isnt( $copy->list->[1]->text,
     ok( $copy->archive );      $entry_to_archive->text, 'make sure it changed' );
     isnt( $copy->list->[1]->text,  
         $entry_to_archive->text, 'make sure it changed' );  
   
 SKIP: {  ok( $copy->load('done_file'), 'read the done_file' );
         skip 'unable to load done_file', 1  is( $copy->list->[-1]->text,
             if !ok( $copy->load('done_file'), 'read the done_file' );      $entry_to_archive->text, 'make sure it moved to the archive' );
         is( $copy->list->[-1]->text,  
             $entry_to_archive->text, 'make sure it moved to the archive' );  
     }  
 }  
   
 my $file;  my $file;
 ok( $file = $copy->file('done_file'), 'get the done_file name' );  ok( $file = $copy->file('done_file'), 'get the done_file name' );
 is( $file, $todo_dir . '/done.txt', 'the done_file name what we expected?' );  is( $file, $todo_dir . '/done.txt', 'the done_file name what we expected?' );
   
 ok( $copy->addto( $file, 'added text' ) );  ok( $copy->addto( $file, 'added text' ), 'Add text to file' );
   
 my @done;  my @done;
 ok( @done = $copy->listfile('done_file'), 'get items in done_file' );  ok( @done = $copy->listfile('done_file'), 'get items in done_file' );
 is( $done[-1]->text, 'added text', 'make sure what we added is there' );  is( $done[-1]->text, 'added text', 'make sure what we added is there' );
   
 #is( $done[-2]->text, $entry_to_archive->text,  is( $done[-2]->text, $entry_to_archive->text,
 #    'make sure it moved to the archive' );      'make sure it moved to the archive' );
   
 done_testing();  done_testing();
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>