todotxt/Text-Todo/t/list.t - diff

Return to list.t CVS log

Up to [local] / todotxt / Text-Todo / t

version 1.11, 2010/01/15 19:50:15

version 1.12, 2010/01/18 00:19:55

Line 8

# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org

# COMPANY: Red River Communications

# CREATED: 01/07/10 19:11

# REVISION: $AFresh1: list.t,v 1.10 2010/01/15 19:44:32 andrew Exp $

# REVISION: $AFresh1: list.t,v 1.11 2010/01/15 19:50:15 andrew Exp $

#===============================================================================

use strict;

Line 26

diag("Testing entry $class $Text::Todo::VERSION");

my $orig = new_ok( $class, ['t/todo.list.txt'] );

my $orig = new_ok( $class => [{ todo_file => 't/todo.list.txt' }] );

my @orig_list;

ok( @orig_list = $orig->list, 'get orig list' );

Line 36

't/report.list.txt', 'orig report_file matches' );

my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 );

my $copy = new_ok($class);

my $copy = new_ok($class => []);

foreach my $e (@orig_list) {

ok( $copy->add($e), 'add entry from orginal list' );