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