view release on metacpan or  search on metacpan

devel/array-base.t  view on Meta::CPAN

diag ("Compiled against Gtk version ",
      Gtk2::MAJOR_VERSION(), ".",
      Gtk2::MINOR_VERSION(), ".",
      Gtk2::MICRO_VERSION(), ".");
diag ("Running on       Gtk version ",
      Gtk2::major_version(), ".",
      Gtk2::minor_version(), ".",
      Gtk2::micro_version(), ".");


$[ = 6;

my $store = Gtk2::ListStore->new ('Glib::String');
$store->set ($store->insert(0), 0=>'zero');
$store->set ($store->insert(1), 0=>'one');
$store->set ($store->insert(2), 0=>'two');
my @a;
tie @a, 'Gtk2::Ex::TiedListColumn', $store;

# FETCHSIZE
is (scalar @a, 3);