#!/usr/bin/perl -w
use strict;
use Test::More tests => 6;
use Gtk2 '-init';
{ # basic construction test
use_ok 'Gapp::FileChooserDialog';
my $w = Gapp::FileChooserDialog->new;
isa_ok $w, 'Gapp::FileChooserDialog';
isa_ok $w->gobject, 'Gtk2::FileChooserDialog';
}
{ # basic construction test
use_ok 'Gapp::FileFilter';
my $w = Gapp::FileFilter->new( name => 'Text', patterns => [ '*.txt' ] );
isa_ok $w, 'Gapp::FileFilter';
isa_ok $w->gobject, 'Gtk2::FileFilter';
}