#!/usr/bin/perl -w
use strict;
use warnings;

use Test::More tests => 5;

use Gtk2 '-init';



use Gapp::Label;
use Gapp::VBox;

{
    use_ok 'Gapp::Assistant';
    
    my $w = Gapp::Assistant->new;
    isa_ok $w, q[Gapp::Assistant];
    isa_ok $w->gobject, q[Gtk2::Assistant];
    

}


{
    my $page = Gapp::VBox->new(
        traits => [qw( AssistantPage )],
        content => [
            Gapp::Label->new( text => 'Hello World!'),
        ]
    );
    
    ok $page, 'created page';
    
    my $w = Gapp::Assistant->new( content => [ $page ] );
    ok $w, 'created assistant with page';
}