1#!/usr/bin/perl -w
2use strict;
3
4sub on_unthreaded_freebsd {
5  if ($^O eq 'freebsd') {
6    require Config;
7    if ($Config::Config{ldflags} !~ m/-pthread\b/) {
8      return 1;
9    }
10  }
11  return 0;
12}
13
14use Gtk2::TestHelper
15  tests => 5,
16  at_least_version => [2, 10, 0, "GtkRecentChooserMenu"],
17  (on_unthreaded_freebsd () ? (skip_all => 'need a perl compiled with "-pthread" on freebsd') : ());
18
19# $Id$
20
21my $manager = Gtk2::RecentManager -> new();
22
23my $chooser = Gtk2::RecentChooserMenu -> new();
24isa_ok($chooser, "Gtk2::RecentChooser");
25isa_ok($chooser, "Gtk2::RecentChooserMenu");
26
27$chooser = Gtk2::RecentChooserMenu -> new_for_manager($manager);
28isa_ok($chooser, "Gtk2::RecentChooser");
29isa_ok($chooser, "Gtk2::RecentChooserMenu");
30
31$chooser -> set_show_numbers(TRUE);
32ok($chooser -> get_show_numbers());
33
34__END__
35
36Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the
37full list).  See LICENSE for more information.
38