File: [local] / todotxt / Text-Todo / t / list.t (download)
Revision 1.1, Fri Jan 8 04:38:44 2010 UTC (14 years, 6 months ago) by andrew
Branch: MAIN
add some tests of list actions. No actual tests yet, but . . .
|
#===============================================================================
#
# FILE: list.t
#
# DESCRIPTION: Test list commands
#
#
# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org
# COMPANY: Red River Communications
# CREATED: 01/07/10 19:11
# REVISION: $RedRiver$
#===============================================================================
use strict;
use warnings;
use Test::More tests => 2;
my $class = 'Text::Todo';
BEGIN: { use_ok( $class, "use $class" ) }
diag("Testing entry $class $Text::Todo::VERSION");
my $e = new_ok( $class, [ 't/todo.list.txt' ] );
my %commands = (
add => {},
archive => {},
del => {},
list => {},
listall => {},
listcon => {},
listfile => {},
listpri => {},
listproj => {},
move => {},
replace => {},
report => {},
);
my %aliases = (
a => 'add',
rm => 'del',
ls => 'list',
lsa => 'listall',
lsc => 'listcon',
lf => 'listfile',
lspri => 'listpri',
lsprj => 'listproj',
mv => 'move',
);