use Clutter::TestHelper tests => 4, sub_module => 'gtk';

use Gtk2 '-init';

my $embed = Gtk2::ClutterEmbed->new();
isa_ok($embed, 'Gtk2::Widget', 'is a widget');

my $stage = $embed->get_stage();
isa_ok($stage, 'Clutter::Actor', 'is a bird');
isa_ok($stage, 'Clutter::Group', 'is a plane');
isa_ok($stage, 'Clutter::Stage', 'no, is a Clutter::Stage');

__END__

Copyright (C) 2006  OpenedHand Ltd.  See the file AUTHORS for the full list.
See LICENSE for more information.
use Test::More tests => 4;

use Gtk2 '-init';
use Clutter '-init';

my $embed = Gtk2::ClutterEmbed->new();
isa_ok($embed, 'Gtk2::Widget', 'is a widget');

my $stage = $embed->get_stage();
isa_ok($stage, 'Clutter::Actor', 'is a bird');
isa_ok($stage, 'Clutter::Group', 'is a plane');
isa_ok($stage, 'Clutter::Stage', 'no, is a Clutter::Stage');

__END__

Copyright (C) 2006  OpenedHand Ltd.  See the file AUTHORS for the full list.
See LICENSE for more information.