### ----------------------------------------------------
### -- Gnome::Gtk3
### -- Licenses: Artistic-2.0
### -- Authors: Marcel Timmerman
### -- File: t/Popover.rakutest
### ----------------------------------------------------
use v6;
use NativeCall;
use Test;

#use Gnome::Gtk3::Window:api<1>;
use Gnome::Gtk3::Popover:api<1>;
ok 1, 'loads ok';

done-testing;
=finish

#use Gnome::N::X:api<1>;
#Gnome::N::debug(:on);

#`{{
#-------------------------------------------------------------------------------
class MyGuiClass is Gnome::Gtk3::Popover {
  submethod new ( |c ) {
    self.bless( :GtkPopover, |c);
  }
}

subtest 'User class test', {
  my MyGuiClass $mgc .= new;
  isa-ok $mgc, Gnome::Gtk3::Popover, '.new()';
}

}}
#-------------------------------------------------------------------------------
my Gnome::Gtk3::Window $w .= new;
$w.set-title('Test Popup');
my Gnome::Gtk3::Popover $p;
#-------------------------------------------------------------------------------
subtest 'ISA test', {
  #$w.add($p);
  $p .= new(:relative-to($w));
  isa-ok $p, Gnome::Gtk3::Popover, '.new(:relative-to)';
}

#`{{

#-------------------------------------------------------------------------------
unless %*ENV<raku_test_all>:exists {
  done-testing;
  exit;
}

#-------------------------------------------------------------------------------
subtest 'Manipulations', {
}

#-------------------------------------------------------------------------------
subtest 'Inherit ...', {
}

#-------------------------------------------------------------------------------
subtest 'Interface ...', {
}

#-------------------------------------------------------------------------------
subtest 'Properties ...', {
}

#-------------------------------------------------------------------------------
subtest 'Themes ...', {
}

#-------------------------------------------------------------------------------
subtest 'Signals ...', {
}
}}

#-------------------------------------------------------------------------------
done-testing;


