view release on metacpan or  search on metacpan

t/20button.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Test::More;

use Tickit::Test;

use Tickit::Widget::Button;

my $root = mk_window;

my $win = $root->make_sub( 0, 0, 3, 14 );

my $clicked = 0;
my $button = Tickit::Widget::Button->new(
   label => "Click me",
   on_click => sub { $clicked++ },
);

ok( defined $button, 'defined $button' );

is( $button->label, "Click me", '$button->label' );
is( $button->align,  0.5,       '$button->align' );
is( $button->valign, 0.5,       '$button->valign' );

$button->set_window( $win );

flush_tickit;

is_display( [ [TEXT("┌────────────┐",fg=>0,bg=>4)],
              [TEXT("│> Click me <│",fg=>0,bg=>4)],
              [TEXT("└────────────┘",fg=>0,bg=>4)] ],
            'Display initially' );

{
   $button->set_style( linetype => "double" );

   flush_tickit;

   is_display( [ [TEXT("╔════════════╗",fg=>0,bg=>4)],
                 [TEXT("â•‘> Click me <â•‘",fg=>0,bg=>4)],
                 [TEXT("╚════════════╝",fg=>0,bg=>4)] ],
               'Display with linetype "double"' );

   $button->set_style( linetype => undef );
}

pressmouse( press => 1, 1, 10 );

flush_tickit;

is_display( [ [TEXT("┌────────────┐",fg=>0,bg=>4,rv=>1)],
              [TEXT("│>>Click me<<│",fg=>0,bg=>4,rv=>1)],
              [TEXT("└────────────┘",fg=>0,bg=>4,rv=>1)] ],
            'Display after focus' );

is( $clicked, 0, '$clicked before mouse release' );

pressmouse( release => 1, 1, 10 );

flush_tickit;