Notcurses-Native.git | xt/ | 07-widgets.rakutest edit

---

use Test;
use lib 'lib';
use lib 't/lib';
use TestHelper;
use NativeCall;
use Notcurses::Native;
use Notcurses::Native::Types;
use Notcurses::Native::Plane;
use Notcurses::Native::Widgets;

plan 5;


my $opts = NotcursesOptions.new(
	:loglevel(NCLOGLEVEL_SILENT),
	:flags(NCOPTION_SUPPRESS_BANNERS +| NCOPTION_NO_ALTERNATE_SCREEN +| NCOPTION_INHIBIT_SETLOCALE),
);
my ($nc, $) = test-init-nc($opts);
unless $nc.defined {
	skip 'No terminal available', 5;
	exit 0;
}
LEAVE { notcurses_stop($nc) if $nc.defined }
my $std = notcurses_stdplane($nc);

subtest 'Progress bar' => {
	plan 4;
	my $plane = ncplane_create($std, NcplaneOptions.new(:rows(1), :cols(40)));
	my $popts = NcprogbarOptions.new(:ulchannel(0), :urchannel(0), :blchannel(0), :brchannel(0));
	my $bar = ncprogbar_create($plane, $popts);
	ok $bar.defined, 'Progress bar created';
	my $rc = ncprogbar_set_progress($bar, 0.5e0);
	is $rc, 0, 'Set progress to 50%';
	my num64 $p = ncprogbar_progress($bar);
	ok $p >= 0.49e0 && $p <= 0.51e0, "Progress = $p (expected ~0.5)";
	my $bplane = ncprogbar_plane($bar);
	ok $bplane.defined, 'Got progress bar plane';
	ncprogbar_destroy($bar);
};

subtest 'Reel' => {
	plan 3;
	my $plane = ncplane_create($std, NcplaneOptions.new(:rows(10), :cols(30)));
	my $ropts = NcreelOptions.new;
	my $reel = ncreel_create($plane, $ropts);
	ok $reel.defined, 'Reel created';
	is ncreel_tabletcount($reel), 0, 'Empty reel has 0 tablets';
	my $rplane = ncreel_plane($reel);
	ok $rplane.defined, 'Got reel plane';
	ncreel_destroy($reel);
};

subtest 'Tabbed widget' => {
	plan 3;
	my $plane = ncplane_create($std, NcplaneOptions.new(:rows(10), :cols(40)));
	my $topts = NctabbedOptions.new(:separator(' | '));
	my $tabbed = nctabbed_create($plane, $topts);
	ok $tabbed.defined, 'Tabbed widget created';
	is nctabbed_tabcount($tabbed), 0, 'No tabs initially';
	my $tplane = nctabbed_plane($tabbed);
	ok $tplane.defined, 'Got tabbed plane';
	nctabbed_destroy($tabbed);
};

subtest 'Reader' => {
	plan 3;
	my $plane = ncplane_create($std, NcplaneOptions.new(:rows(3), :cols(30)));
	my $ropts = NcreaderOptions.new(:flags(NCREADER_OPTION_CURSOR));
	my $reader = ncreader_create($plane, $ropts);
	ok $reader.defined, 'Reader created';
	my $rplane = ncreader_plane($reader);
	ok $rplane.defined, 'Got reader plane';
	my $rc = ncreader_clear($reader);
	is $rc, 0, 'Reader cleared';
	ncreader_destroy($reader, Pointer);
};

subtest 'Options struct construction' => {
	plan 5;
	my $vopts = NcvisualOptions.new(:scaling(1), :blitter(0), :flags(NCVISUAL_OPTION_BLEND));
	is $vopts.scaling, 1, 'Visual options scaling';
	is $vopts.flags, NCVISUAL_OPTION_BLEND, 'Visual options flags';

	my $geom = Ncvgeom.new;
	is $geom.pixy, 0, 'Geometry default pixy = 0';

	my $popts = NcplotOptions.new(:rangex(100), :flags(NCPLOT_OPTION_LABELTICKSD));
	is $popts.rangex, 100, 'Plot options rangex';
	is $popts.flags, NCPLOT_OPTION_LABELTICKSD, 'Plot options flags';
};

done-testing;