#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper tests => 25, noinit => 1;

# $Id$

my $adjustment = Gtk2::Adjustment -> new(0, 0, 100, 1, 5, 10);
isa_ok($adjustment, "Gtk2::Adjustment");

is($adjustment -> lower(1), 0);
is($adjustment -> lower(), 1);

is($adjustment -> upper(99), 100);
is($adjustment -> upper(), 99);

is($adjustment -> value(23), 0);
is($adjustment -> value(), 23);

is($adjustment -> step_increment(2), 1);
is($adjustment -> step_increment(), 2);

is($adjustment -> page_increment(6), 5);
is($adjustment -> page_increment(), 6);

is($adjustment -> page_size(11), 10);
is($adjustment -> page_size(), 11);

$adjustment -> set_value(23);
is($adjustment -> get_value(), 23);

$adjustment -> clamp_page(0, 100);

$adjustment -> changed();
$adjustment -> value_changed();

SKIP: {
  skip "stuff that's new in 2.14", 11
    unless Gtk2->CHECK_VERSION (2, 14, 0);

  # note "value" forced to "lower <= value <= upper-page_size" by
  # gtk_adjustment_configure(), so must ensure that among these numbers
  $adjustment->configure(1002,1001,10003,1004,1005,1006);
  is ($adjustment->value, 1002);
  is ($adjustment->lower, 1001);
  is ($adjustment->upper, 10003);
  is ($adjustment->step_increment, 1004);
  is ($adjustment->page_increment, 1005);
  is ($adjustment->page_size, 1006);

  # see that they match up with the accessors

  $adjustment->set_lower(2001);
  is ($adjustment->lower, 2001);

  $adjustment->set_page_increment(2002);
  is ($adjustment->page_increment, 2002);

  $adjustment->set_page_size(2003);
  is ($adjustment->page_size, 2003);

  $adjustment->set_step_increment(2004);
  is ($adjustment->step_increment, 2004);

  $adjustment->set_upper(2005);
  is ($adjustment->upper, 2005);
}

__END__

Copyright (C) 2003, 2009 by the gtk2-perl team (see the file AUTHORS for the
full list).  See LICENSE for more information.