Return to list.t CVS log

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

Annotation of todotxt/Text-Todo/t/list.t, Revision 1.1

1.1     ! andrew      1: #===============================================================================
        !             2: #
        !             3: #         FILE:  list.t
        !             4: #
        !             5: #  DESCRIPTION:  Test list commands
        !             6: #
        !             7: #
        !             8: #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org
        !             9: #      COMPANY:  Red River Communications
        !            10: #      CREATED:  01/07/10 19:11
        !            11: #     REVISION:  $RedRiver$
        !            12: #===============================================================================
        !            13:
        !            14: use strict;
        !            15: use warnings;
        !            16:
        !            17: use Test::More tests => 2;
        !            18:
        !            19: my $class = 'Text::Todo';
        !            20:
        !            21: BEGIN: { use_ok( $class, "use $class" ) }
        !            22:
        !            23: diag("Testing entry $class $Text::Todo::VERSION");
        !            24:
        !            25: my $e = new_ok( $class, [ 't/todo.list.txt' ] );
        !            26:
        !            27: my %commands = (
        !            28:     add      => {},
        !            29:     archive  => {},
        !            30:     del      => {},
        !            31:     list     => {},
        !            32:     listall  => {},
        !            33:     listcon  => {},
        !            34:     listfile => {},
        !            35:     listpri  => {},
        !            36:     listproj => {},
        !            37:     move     => {},
        !            38:     replace  => {},
        !            39:     report   => {},
        !            40: );
        !            41:
        !            42: my %aliases = (
        !            43:     a     => 'add',
        !            44:     rm    => 'del',
        !            45:     ls    => 'list',
        !            46:     lsa   => 'listall',
        !            47:     lsc   => 'listcon',
        !            48:     lf    => 'listfile',
        !            49:     lspri => 'listpri',
        !            50:     lsprj => 'listproj',
        !            51:     mv    => 'move',
        !            52: );