use v6; use NativeCall; use Test; use Gnome::Gtk3::Enums; use Gnome::Gtk3::Separator; #use Gnome::N::X; #Gnome::N::debug(:on); #`{{ #------------------------------------------------------------------------------- class MyGuiClass is Gnome::Gtk3::Separator { submethod new ( |c ) { self.bless( :GtkSeparator, |c); } } subtest 'User class test', { my MyGuiClass $mgc .= new; isa-ok $mgc, Gnome::Gtk3::Separator, '.new()'; } }} #------------------------------------------------------------------------------- my Gnome::Gtk3::Separator $s; #------------------------------------------------------------------------------- subtest 'ISA test', { $s .= new(:orientation(GTK_ORIENTATION_VERTICAL)); isa-ok $s, Gnome::Gtk3::Separator, '.new(:orientation)'; } #`{{ #------------------------------------------------------------------------------- unless %*ENV:exists { done-testing; exit; } #------------------------------------------------------------------------------- subtest 'Manipulations', { } #------------------------------------------------------------------------------- subtest 'Inherit ...', { } #------------------------------------------------------------------------------- subtest 'Interface ...', { } #------------------------------------------------------------------------------- subtest 'Properties ...', { } #------------------------------------------------------------------------------- subtest 'Themes ...', { } #------------------------------------------------------------------------------- subtest 'Signals ...', { } }} #------------------------------------------------------------------------------- done-testing;