Gtk2-1.101 Gtk2::FileChooser test fails

[Scott Lanning <lannings who int>]

Gtk2-1.101 Gtk2::FileChooser test fails.
I think the patch is below.

box# perl ./t/GtkFileChooser.t TEST_VERBOSE=1
1..44
ok 1 - The object isa Gtk2::FileChooser
ok 2 - mode option from construction
[...]
ok 30
ok 31
ok 32
not ok 33 - get_preview_filename # TODO gtk+ 2.6 seems to return undef for some 
reason
#   Failed (TODO) test 'get_preview_filename'
#   in ./t/GtkFileChooser.t at line 147.
#          got: undef
#     expected: '/root/.cpan/build/Gtk2-1.101/gtk2perl.h'
not ok 34 - get_preview_uri # TODO gtk+ 2.6 seems to return undef for some 
reason
#   Failed (TODO) test 'get_preview_uri'
#   in ./t/GtkFileChooser.t at line 148.
#          got: undef
#     expected: 'file:///root/.cpan/build/Gtk2-1.101/gtk2perl.h'
ok 35
ok 36 - list_filters after adding one filter
ok 37 - list_filters after removing one filter
ok 38
ok 39 # TODO GtkFileChooser trouble
ok 40 # TODO GtkFileChooser trouble
ok 41 - no uris selected
ok 42 - unselected everything
Invalid filename: /root/.cpan/build/Gtk2-1.101 at ./t/GtkFileChooser.t line 198.
# Looks like you planned 44 tests but only ran 42.
# Looks like your test died just after 42.


Here's line 198:

$file_chooser->remove_shortcut_folder ($cwd);
$file_chooser->remove_shortcut_folder_uri ($cwd);    <-- line 198


Seemed to work with this:

--- t/GtkFileChooser.t-orig     2005-10-04 13:21:10.124676808 +0200
+++ t/GtkFileChooser.t  2005-10-04 13:21:11.964397128 +0200
@@ -195,7 +195,7 @@
  is (scalar (@list), 0, 'unselected everything');

  $file_chooser->remove_shortcut_folder ($cwd);
-$file_chooser->remove_shortcut_folder_uri ($cwd);
+$file_chooser->remove_shortcut_folder_uri ("file://$cwd");

  SKIP: {
         skip("[sg]et_show_hidden are new in 2.6", 1)