#!/usr/bin/perl -w
use strict;
use Gnome2;

use constant TESTS => 4;
use Test::More tests => TESTS;

# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2/t/GnomeThumbnail.t,v 1.13 2005/05/29 14:54:09 kaffeetisch Exp $

###############################################################################

SKIP: {
  our $application;
  do "t/TestBoilerplate";

  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);
  }
}