use strict;
use warnings;
use Test::More 0.98;
use lib '../blib/', '../blib/lib', '../lib';
use Fl;

#use Data::Dump qw[pp];
#diag pp \%Fl::;
my $window = new_ok 'Fl::Window' => [100, 200, 340, 180], 'window';
my $box = new_ok 'Fl::Box' => [20, 40, 300, 100, 'Hello, World!'], 'box';

#$box->cheat();
#box->box(FL_UP_BOX);
#box->labelfont(FL_BOLD+FL_ITALIC);
#box->labelsize(36);
$box->labelsize(36);

#box->labeltype(FL_SHADOW_LABEL);
#$box->DESTROY();
#$box = '';
#warn $box;
#$window->end();
#$window->show();
#diag pp $window;
#Fl::run();
done_testing;
