### ----------------------------------------------------
### -- Libui
### -- Licenses: Artistic-2.0
### -- Authors: Travis Gibson
### -- File: t/08-editablecombobox.t
### ----------------------------------------------------
use v6;
use Test;
use Libui;

plan 5;

if $*KERNEL ~~ "linux" {
  unless %*ENV<DISPLAY> || %*ENV<WAYLAND_DISPLAY> {
    skip-rest;
    exit 0;
  }
}

Libui::Init();

my $combobox = Libui::EditableCombobox.new;

isa-ok $combobox, Libui::EditableCombobox, <Create EditableCombobox>;

isa-ok $combobox.changed, Supply, <Get changed Supply>;

lives-ok { $combobox.append("text")}, <Append text>;


subtest <Get and Set current text>, {
  plan 1;
  $combobox.set-text('value');
  is $combobox.text, 'value', <Set current text>;
};

dies-ok {$combobox.append(Str)}, <Append null text>;

done-testing;
# vi:syntax=perl6


