#!/usr/bin/perl
use strict;
use warnings;
use Gtk2::TestHelper tests => 4, noinit => 1;

SKIP:
{
  @ARGV = qw(--help --name gtk2perl --urgs tree);

  skip 'Gtk2->init_check failed, probably unable to open DISPLAY', 1
    unless (Gtk2->init_check);

  is_deeply (\@ARGV, [qw(--help --urgs tree)]);
}

SKIP: {
  skip "parse_args is new in 2.4.5", 1
    unless Gtk2->CHECK_VERSION (2, 4, 5);

  # we can't do much more than just calling it, since it always
  # immediately returns if init() was called already.
  ok (Gtk2->parse_args);
}

SKIP: {
  skip 'new 2.6 stuff', 1
    unless Gtk2->CHECK_VERSION(2, 6, 0);

  my $foos = 1;
  my $options = [
    [ 'foos', 'f', 'int', \$foos ],
  ];

  my $context = Glib::OptionContext->new ('- urgsify your life');
  $context->add_main_entries ($options, 'C');
  $context->add_group (Gtk2->get_option_group (0));

  @ARGV = qw(--name Foo --foos 23);
  $context->parse ();
  is (@ARGV, 0);
  is ($foos, 23);
}

__END__

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