#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 5;

# $Id: GtkSourceTagStyle.t,v 1.2 2005/09/27 20:53:51 ebassi Exp $

use Gtk2::SourceView;

my $style = Gtk2::SourceView::TagStyle->new();
isa_ok($style, "Gtk2::SourceView::TagStyle");

my $manager = Gtk2::SourceView::LanguagesManager->new();
my $language = $manager->get_language_from_mime_type("application/x-perl");

my @tags = $language->get_tags();
my $id = $tags[0]->get("id");

my $s = $language->get_tag_default_style($id);
isa_ok($s, "Gtk2::SourceView::TagStyle");

ok($s->is_default);

my $fg = Gtk2::Gdk::Color->new(255, 0, 0);
isa_ok($style->foreground($fg), "Gtk2::Gdk::Color");

my $bg = Gtk2::Gdk::Color->new(0, 0, 255);
isa_ok($style->background($bg), "Gtk2::Gdk::Color");