#!/usr/bin/perl
use strict;
use warnings;
use Gtk2::TestHelper
  tests => 1,
  at_least_version => [2, 14, 0, 'GtkShow is new in 2.14'],
  skip_all => 'can only test interactively',
  ;

# $Id$

eval {
  Gtk2::show_uri(undef, 'http://www.gnome.org');
  Gtk2::show_uri(undef, 'http://www.gtk.org', time());

  my $screen = Gtk2::Gdk::Screen -> get_default();
  Gtk2::show_uri($screen, 'http://gtk2-perl.sf.net');
};

is ($@, '');

__END__

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