#!/usr/bin/env perl
use Gtk2::TestHelper
tests => 6,
noinit => 1,
at_least_version => [2, 14, 0, "Gtk2::HSV is new in 2.14"];
my $hsv = Gtk2::HSV->new;
isa_ok ($hsv, 'Gtk2::HSV');
$hsv->set_color (0, 0, 0);
is_deeply ([$hsv->get_color], [0, 0, 0]);
$hsv->set_metrics (23, 1);
is_deeply ([$hsv->get_metrics], [23, 1]);
ok (!$hsv->is_adjusting);
is_deeply ([Gtk2::hsv_to_rgb (0, 0, 0)], [0, 0, 0]);
is_deeply ([Gtk2::rgb_to_hsv (0, 0, 0)], [0, 0, 0]);
__END__
Copyright (C) 2010 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.