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

Return to special_tags.t CVS log

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

version 1.3, 2010/01/11 19:52:06

version 1.6, 2010/02/13 23:06:34

Line 7

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

# COMPANY: Red River Communications

# CREATED: 01/09//10 17:43

# REVISION: $AFresh1: special_tags.t,v 1.2 2010/01/10 19:29:17 andrew Exp $

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

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

use strict;

use warnings;

use Test::More tests => 7;

use Test::More tests => 8;

my $class = 'Text::Todo::Entry';

my $class;

BEGIN {

$class = 'Text::Todo::Entry';

use_ok( $class, "use $class" )

}

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

diag("Testing special tags in $class $Text::Todo::Entry::VERSION");

my %sample = (

text => '(B) @home @work send email to andrew@cpan.org DUE:2011-01-01 +say_thanks',

known_tags => {

context => '@',

project => '+',

due_date => 'DUE:',

priority => 'B',

contexts => [ 'home', 'work' ],

projects => ['say_thanks'],

Line 31

Line 39

);

my $e = new_ok($class, [ {text => $sample{text}, tags => { due_date => 'DUE:' }} ]);

is_deeply( $e->known_tags, $sample{known_tags}, 'check known_tags' );

is( $e->text, $sample{text}, 'Make sure entry matches' );

is( $e->priority, $sample{priority}, 'check priority' );