#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use Test::More tests => 9;
use Tickit::Test;

use Tickit::Widget::SparkLine;

my ($term, $win) = mk_term_and_window;
my $widget = new_ok('Tickit::Widget::SparkLine' => [
	data => [0, 1, 2, 3, 4],
]);
is_deeply([ $widget->data ],  [ 0, 1, 2, 3, 4], 'data is correct');
is($widget->pop, 4, 'pop returns correct value');
is_deeply([ $widget->data ],  [ 0, 1, 2, 3], 'data is correct');
is($widget->shift, 0, 'shift returns correct value');
is_deeply([ $widget->data ],  [ 1, 2, 3], 'data is correct');
$widget->unshift(4);
is_deeply([ $widget->data ],  [ 4, 1, 2, 3], 'data is correct after unshift');
$widget->push(7);
is_deeply([ $widget->data ],  [ 4, 1, 2, 3, 7], 'data is correct after push');
$widget->splice(1, 0, 6, 4, 2);
is_deeply([ $widget->data ],  [ 4, 6, 4, 2, 1, 2, 3, 7], 'data is correct after splice');