#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper tests => 5, noinit => 1;

# $Id$

my $table = Gtk2::TextTagTable -> new();
isa_ok($table, "Gtk2::TextTagTable");

my $tag = Gtk2::TextTag -> new("bla");

$table -> add($tag);

is($table -> lookup("bla"), $tag);

$table -> foreach(sub {
  is(shift(), $tag);
  is(shift(), "bla");
}, "bla");

is($table -> get_size(), 1);

$table -> remove($tag);

__END__

Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
full list).  See LICENSE for more information.