[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.13 and 1.14

version 1.13, 2010/01/18 02:46:48 version 1.14, 2010/01/20 21:15: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:  $AFresh1: list.t,v 1.11 2010/01/15 19:50:15 andrew Exp $  #     REVISION:  $AFresh1: list.t,v 1.13 2010/01/18 02:46:48 andrew Exp $
 #===============================================================================  #===============================================================================
   
 use strict;  use strict;
Line 17 
Line 17 
 use Test::More tests => 53;  use Test::More tests => 53;
   
 use File::Temp qw/ tempdir /;  use File::Temp qw/ tempdir /;
   use File::Spec;
   
 my $class;  my $class;
 BEGIN {  
         $class = 'Text::Todo';  BEGIN {
         use_ok( $class, "use $class" )      $class = 'Text::Todo';
       use_ok( $class, "use $class" );
 }  }
   
 diag("Testing entry $class $Text::Todo::VERSION");  diag("Testing entry $class $Text::Todo::VERSION");
Line 30 
Line 32 
 my @orig_list;  my @orig_list;
 ok( @orig_list = $orig->list, 'get orig list' );  ok( @orig_list = $orig->list, 'get orig list' );
   
 is( $orig->file('todo_file'), 't/todo.list.txt', 'orig todo_file matches' );  is( $orig->file('todo_file'),
 is( $orig->file('done_file'), 't/done.list.txt', 'orig done_file matches' );      File::Spec->catfile( 't', 'todo.list.txt' ),
       'orig todo_file matches'
   );
   is( $orig->file('done_file'),
       File::Spec->catfile( 't', 'done.list.txt' ),
       'orig done_file matches'
   );
 is( $orig->file('report_file'),  is( $orig->file('report_file'),
     't/report.list.txt', 'orig report_file matches' );      File::Spec->catfile( 't', 'report.list.txt' ),
       'orig report_file matches'
   );
   
 my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 );  my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 );
 my $copy = new_ok($class);  my $copy = new_ok($class);
Line 41 
Line 51 
 foreach my $e (@orig_list) {  foreach my $e (@orig_list) {
     ok( $copy->add($e), 'add entry from orginal list' );      ok( $copy->add($e), 'add entry from orginal list' );
 }  }
 ok( $copy->save( $todo_dir . '/todo.txt' ), 'save the copy' );  ok( $copy->save( File::Spec->catfile( $todo_dir, 'todo.txt' ) ),
       'save the copy' );
   
 is( $copy->file('todo_file'),  is( $copy->file('todo_file'),
     $todo_dir . '/todo.txt',      File::Spec->catfile( $todo_dir, 'todo.txt' ),
     'copy todo_file matches'      'copy todo_file matches'
 );  );
 is( $copy->file('done_file'),  is( $copy->file('done_file'),
     $todo_dir . '/done.txt',      File::Spec->catfile( $todo_dir, 'done.txt' ),
     'copy done_file matches'      'copy done_file matches'
 );  );
 is( $copy->file('report_file'),  is( $copy->file('report_file'),
     $todo_dir . '/report.txt',      File::Spec->catfile( $todo_dir, 'report.txt' ),
     'copy report_file matches'      'copy report_file matches'
 );  );
 my @copy_list;  my @copy_list;
Line 121 
Line 132 
   
 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,
       File::Spec->catfile( $todo_dir, 'done.txt' ),
       'the done_file name what we expected?'
   );
   
 ok( $copy->addto( $file, 'added text' ), 'Add text to file' );  ok( $copy->addto( $file, 'added text' ), 'Add text to file' );
   
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>