#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 5;
use Gtk2 '-init';
use_ok 'Gapp::Window';
{ # basic test
my $w = Gapp::Window->new;
isa_ok $w, 'Gapp::Window';
isa_ok $w->gobject, 'Gtk2::Window';
}
{ # transient for
my $t = Gapp::Window->new;
my $w = Gapp::Window->new( transient_for => $t, position => 'center' );
ok $w->gobject->get_transient_for, 'set window transient for';
ok $w->gobject->get_position, 'set window position';
}