#!/usr/bin/perl -w
use
strict;
use
warnings;
{
# 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'
;
}