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

use Test::More tests => 6;

use Gtk2 '-init';




{
    use_ok 'Gapp::TreeViewColumn';
    
    my $w = Gapp::TreeViewColumn->new(
        name => 'foo',
        title => 'Foo',
        renderer => 'text',
    );
    
    isa_ok $w, 'Gapp::TreeViewColumn';
    isa_ok $w->gobject, 'Gtk2::TreeViewColumn';
}


{   # Basic combox box with sub as values
    
    use_ok 'Gapp::TreeView';
    use Gapp::ListStore;
    
    my $w = Gapp::TreeView->new(
        model => Gapp::ListStore->new( columns => [ 'Glib::String' ] ),
        columns => [
            Gapp::TreeViewColumn->new(
                name => 'foo',
                title => 'Foo',
                renderer => 'text'
            ),
        ]
    );
    
    isa_ok $w, 'Gapp::TreeView';
    isa_ok $w->gobject, 'Gtk2::TreeView';
}