#!/usr/bin/perl -w
use strict;
use Gnome2;
use constant TESTS => 2;
use Test::More tests => TESTS;
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2/t/GnomeThumbnail.t,v 1.7 2003/11/02 19:46:49 kaffeetisch Exp $
###############################################################################
SKIP: {
skip("You don't appear to have the GNOME session manager running.", TESTS)
unless (-d "$ENV{ HOME }/.gconfd" &&
-d "$ENV{ HOME }/.gnome2");
my $application = Gnome2::Program -> init("Test", "0.1");
skip("Couldn't connect to the session manager.", TESTS)
unless (Gnome2::Client -> new() -> connected());
skip("GnomeThumbnail is new in 2.0.6", 2)
unless (Gnome2 -> check_version(2, 0, 6));
#############################################################################
my $uri = "file:///usr/share/pixmaps/yes.xpm";
my $file = "/usr/share/pixmaps/yes.xpm";
my $mtime = (stat($file))[9];
my $factory = Gnome2::ThumbnailFactory -> new("normal");
isa_ok($factory, "Gnome2::ThumbnailFactory");
$factory -> lookup($uri, $mtime);
$factory -> has_valid_failed_thumbnail($uri, $mtime);
$factory -> can_thumbnail($uri, "image/xpm", $mtime);
my $thumbnail = $factory -> generate_thumbnail($uri, $mtime);
isa_ok($thumbnail, "Gtk2::Gdk::Pixbuf");
$factory -> save_thumbnail($thumbnail, $uri, $mtime);
$factory -> create_failed_thumbnail($uri, $mtime);
# FIXME: why do these segfault?
# $thumbnail -> has_uri($uri);
# $thumbnail -> is_valid($uri, $mtime);
$thumbnail -> md5($uri);
$thumbnail -> path_for_uri($uri, "large");
$thumbnail -> scale_down_pixbuf(5, 5);
}