The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
use strict;
use warnings;

use Test::More tests => 6;

use Gtk2 '-init';


{
    use_ok 'Gapp::ListStore';
    my $w = Gapp::ListStore->new( columns => [ 'Glib::String' ]);
    isa_ok $w, 'Gapp::ListStore';
    isa_ok $w->gobject, 'Gtk2::ListStore';
}

{
    use_ok 'Gapp::TreeStore';
    my $w = Gapp::TreeStore->new( columns => [ 'Glib::String' ]);
    isa_ok $w, 'Gapp::TreeStore';
    isa_ok $w->gobject, 'Gtk2::TreeStore';
}