Gtk2-1.24993/t/GtkFileChooser.t

17 my $file_chooser = Gtk2::FileChooserWidget->new ('save');
19 isa_ok ($file_chooser, 'Gtk2::FileChooser');
21 is ($file_chooser->get_action, 'save', 'mode option from construction');
28 $file_chooser->set_current_name ($filename);
29 update; is_idle (sub {$file_chooser->get_filename},
34 ok ($file_chooser->set_filename ($filename),
36 update; is_idle (sub {$file_chooser->get_filename},
40 ok ($file_chooser->select_filename ($filename));
41 update; is_idle (sub {$file_chooser->get_filename},
45 my @list = $file_chooser->get_filenames;
49 $file_chooser->select_all;
50 @list = $file_chooser->get_filenames;
52 $file_chooser->unselect_all;
55 ok ($file_chooser->set_current_folder ($folder));
56 update; is_idle (sub{$file_chooser->get_current_folder}, $folder);
58 ok ($file_chooser->set_current_folder ($cwd));
59 update; is_idle (sub{$file_chooser->get_current_folder}, $cwd);
64 ok ($file_chooser->set_uri ($uri));
65 update; is_idle (sub {$file_chooser->get_uri},
69 ok ($file_chooser->select_uri ($uri));
70 update; ok_idle (sub {scalar ($file_chooser->get_uris)},
72 $file_chooser->unselect_uri ($uri);
76 ok ($file_chooser->set_current_folder_uri ($uri));
77 is ($file_chooser->get_current_folder_uri, $uri);
82 $file_chooser->set_preview_widget ($preview_widget);
83 is ($file_chooser->get_preview_widget, $preview_widget);
85 $file_chooser->set_preview_widget_active (TRUE);
86 ok ($file_chooser->get_preview_widget_active);
88 $file_chooser->set_preview_widget_active (TRUE);
89 ok ($file_chooser->get_preview_widget_active);
91 $file_chooser->set_use_preview_label (TRUE);
92 is ($file_chooser->get_use_preview_label, TRUE);
94 $file_chooser->set_current_folder ($cwd);
96 ok ($file_chooser->select_filename ($filename));
102   is_idle (sub {$file_chooser->get_preview_filename},
104   is_idle (sub {$file_chooser->get_preview_uri},
111 $file_chooser->set_extra_widget ($extra_widget);
112 is ($file_chooser->get_extra_widget, $extra_widget);
120 $file_chooser->add_filter ($filter);
121 @list = $file_chooser->list_filters;
124 $file_chooser->remove_filter ($filter);
125 @list = $file_chooser->list_filters;
130 $file_chooser->set_filter ($filter);
131 is ($filter, $file_chooser->get_filter);
136   $file_chooser->add_shortcut_folder ($cwd);
137   $file_chooser->add_shortcut_folder_uri ("file://$cwd/t");
140     is_deeply ([$file_chooser->list_shortcut_folders], [$cwd, "$cwd/t"]);
141     is_deeply ([$file_chooser->list_shortcut_folder_uris], ["file://$cwd", "file://$cwd/t"]);
144   $file_chooser->remove_shortcut_folder ($cwd);
145   $file_chooser->remove_shortcut_folder_uri ("file://$cwd/t");
152 $file_chooser->set_local_only (TRUE);
153 ok ($file_chooser->get_local_only, 'local files only');
155 $file_chooser->set_local_only (FALSE);
156 ok (!$file_chooser->get_local_only, 'not only local files');
159 $file_chooser->set_select_multiple (FALSE);
160 ok (!$file_chooser->get_select_multiple, 'not select multiple');
162 $file_chooser->set_action ('open');
163 is ($file_chooser->get_action, 'open', 'change action to open');
165 $file_chooser->set_select_multiple (TRUE);
166 ok ($file_chooser->get_select_multiple, 'select multiple');
168 $file_chooser->set_select_multiple (FALSE);
169 ok (!$file_chooser->get_select_multiple, 'not select multiple');
175 	$file_chooser->set_show_hidden (TRUE);
176 	is ($file_chooser->get_show_hidden, TRUE);
183 	$file_chooser->set_do_overwrite_confirmation (TRUE);
184 	is ($file_chooser->get_do_overwrite_confirmation, TRUE);
191 	$file_chooser->set_create_folders (FALSE);
192 	is ($file_chooser->get_create_folders, FALSE, '[gs]et_create_folders');