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

Return to list.t CVS log

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

version 1.8, 2010/01/10 22:39:26

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: $RedRiver: list.t,v 1.7 2010/01/10 19:29:17 andrew Exp $

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

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

use strict;

Line 17

use Test::More tests => 53;

use File::Temp qw/ tempdir /;

use Data::Dumper;

my $class = 'Text::Todo';

my $class;

BEGIN {

$class = 'Text::Todo';

use_ok( $class, "use $class" )

}

BEGIN: { use_ok( $class, "use $class" ) }

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 35

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' );