#!/usr/bin/perl -w
use strict;
use Gnome2;
use constant TESTS => 4;
use Test::More tests => TESTS;
# $Id$
###############################################################################
SKIP: {
our $application;
do "./t/TestBoilerplate";
die $@ if $@;
die $! if $!;
skip("GnomeThumbnail is new in 2.0.6", 4)
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];
SKIP: {
skip "yes.xpm not found", 4
unless defined $mtime;
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);
SKIP: {
skip("has_uri and is_valid are broken", 2)
unless (Gnome2 -> CHECK_VERSION(2, 8, 0));
like($thumbnail -> has_uri($uri), qr/^(|1)$/);
like($thumbnail -> is_valid($uri, $mtime), qr/^(|1)$/);
}
$thumbnail -> md5($uri);
$thumbnail -> path_for_uri($uri, "large");
$thumbnail -> scale_down_pixbuf(5, 5);
}
}