perl-Glib r1084 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Fri Feb  6 14:23:38 2009
New Revision: 1084
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1084&view=rev

Log:
Test Glib->filename_to_uri with hostname == undef.


Modified:
   trunk/ChangeLog
   trunk/t/filename.t

Modified: trunk/t/filename.t
==============================================================================
--- trunk/t/filename.t	(original)
+++ trunk/t/filename.t	Fri Feb  6 14:23:38 2009
@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 use Glib qw(:functions);
-use Test::More tests => 21;
+use Test::More tests => 24;
 
 my $filename = "test";
 
@@ -20,6 +20,12 @@
 is(Glib::filename_from_unicode($filename), $filename);
 is(filename_from_unicode($filename), $filename);
 
+
+#
+# These URI related tests are deliberately permissive so as not to fail on
+# MSWin32.
+#
+
 use Cwd qw(cwd);
 
 my $path = cwd() . "/" . $filename;
@@ -27,6 +33,10 @@
 my $uri = "file://$host/$filename";
 my $expected = qr/\Q$filename\E/;
 
+like(Glib->filename_to_uri($path, undef), $expected);
+like(Glib::filename_to_uri($path, undef), $expected);
+like(filename_to_uri($path, undef), $expected);
+
 like(Glib->filename_to_uri($path, $host), $expected);
 like(Glib::filename_to_uri($path, $host), $expected);
 like(filename_to_uri($path, $host), $expected);