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

plan 9;

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

Libui::Init();

my Libui::FontButton $button .= new;

isa-ok $button, Libui::FontButton, <Create fontbutton>;

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

subtest {
lives-ok {$button.family}, <Family>;
lives-ok {$button.size}, <Size>;
lives-ok {$button.weight}, <Weight>;
lives-ok {$button.italic}, <Italic>;
lives-ok {$button.stretch}, <Stretch>;

}, <Get font attributes before manually caching desc>;
lives-ok {$button.font(); }, <Get font>;

#Default Font name and size depends on platform
isa-ok $button.family, Str, <Get font family>;
isa-ok $button.size, Num, <Get font size>;

is $button.weight, 400, <Get font weight>;
is $button.italic, 0, <Get font italic>;
is $button.stretch, 4, <Get font stretch>;

done-testing;
# vi:syntax=perl6


