git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/docview/t/04_cmdproc.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Test::More tests => 18;
   5
   6 use Wx;
   7 use Wx::DocView;
   8
   9 my %did = ();
  10
  11 my $cp = Wx::CommandProcessor->new;
  12 my $cmd = CP1->new( 0, 'first' );
  13
  14 ok( $cp->Submit( $cmd ) );
  15
  16 undef $cmd;
  17
  18 is( $did{first}, 1 );
  19 ok( !$cp->CanUndo );
  20
  21 ok( $cp->Submit( CP1->new( 1, 'first' ) ) );
  22 is( $did{first}, 2 );
  23 ok( $cp->CanUndo );
  24
  25 ok( !$cp->Submit( CP2->new ) );
  26
  27 ok( $cp->Submit( CP1->new( 1, 'second' ) ) );
  28 is( $did{second}, 1 );
  29 ok( $cp->CanUndo );
  30
  31 # check ownership
  32 my @cmds = $cp->GetCommands;
  33 is_deeply( [ map $_->GetName, @cmds ], [ qw(first first second) ] );
  34 undef @cmds;
  35
  36 ok( $cp->Undo );
  37 is( $did{second}, 0 );
  38
  39 ok( $cp->Undo );
  40 is( $did{first}, 1 );
  41
  42 ok( $cp->Redo );
  43 is( $did{first}, 2 );
  44
  45 undef $cp;
  46
  47 {
  48     package CP1;
  49
  50     use base qw(Wx::PlCommand);
  51
  52     sub Do {
  53         my( $self ) = @_;
  54
  55         ++$did{$self->GetName};
  56
  57         return 1;
  58     }
  59
  60     sub Undo {
  61         my( $self ) = @_;
  62
  63         --$did{$self->GetName};
  64
  65         return 1;
  66     }
  67 }
  68
  69 {
  70     package CP2;
  71
  72     use base qw(Wx::PlCommand);
  73
  74     sub Do {
  75         main::ok( 1, __PACKAGE__ . '::Do' );
  76
  77         return 0;
  78     }
  79 }