Help language development. Donate to The Perl Foundation
use v6; #use lib '../gnome-native/lib'; use NativeCall; use Test; use Gnome::Glib::SList; #use Gnome::N::X; #Gnome::N::debug(:on); #------------------------------------------------------------------------------- my Gnome::Glib::SList $s .= new; #------------------------------------------------------------------------------- subtest 'ISA test', { isa-ok $s, Gnome::Glib::SList; ok $s.is-valid, '.is-valid()'; } #------------------------------------------------------------------------------- subtest 'Manipulations', { is $s.g-slist-length, 0, 'List has no elements'; } #------------------------------------------------------------------------------- done-testing;