version 1.12, 2010/01/18 00:19:55 |
version 1.13, 2010/01/18 02:46:48 |
|
|
|
|
diag("Testing entry $class $Text::Todo::VERSION"); |
diag("Testing entry $class $Text::Todo::VERSION"); |
|
|
my $orig = new_ok( $class => [{ todo_file => 't/todo.list.txt' }] ); |
my $orig = new_ok( $class, ['t/todo.list.txt'] ); |
my @orig_list; |
my @orig_list; |
ok( @orig_list = $orig->list, 'get orig list' ); |
ok( @orig_list = $orig->list, 'get orig list' ); |
|
|
|
|
't/report.list.txt', 'orig report_file matches' ); |
'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); |
|
|
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' ); |