view release on metacpan or  search on metacpan

t/24spinner.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use Tickit::Test;

use Tickit::Widget::Spinner;

my $root = mk_window;

my $win = $root->make_sub( 2, 2, 5, 20 );

my $spinner = Tickit::Widget::Spinner->new;

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

$spinner->set_window( $win );

flush_tickit;

is_display( [ BLANKLINES(4),
              [BLANK(11), TEXT("\\")]],
            'Display initially' );

# TODO: Can't unit-test any more for now because we don't have timer support
# in Tickit::Test.

done_testing;