#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
# $Id: GtkSourceLanguagesManager.t,v 1.1 2005/08/11 18:01:56 kaffeetisch Exp $
use Gtk2::SourceView;
my $manager = Gtk2::SourceView::LanguagesManager -> new();
isa_ok($manager, "Gtk2::SourceView::LanguagesManager");
my @languages = $manager -> get_available_languages();
isa_ok($languages[0], "Gtk2::SourceView::Language");
isa_ok($manager -> get_language_from_mime_type("application/x-perl"),
"Gtk2::SourceView::Language");
my @dirs = $manager -> get_lang_files_dirs();
ok(@dirs > 0);