1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#!/usr/bin/perl -w
use strict;
use Gnome2::VFS;
use Config;
use Test::More;
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/t/GnomeVFSURI.t,v 1.10 2005/03/07 21:16:45 kaffeetisch Exp $
plan -d "$ENV{ HOME }/.gnome" ?
(tests => 29) :
(skip_all => "You have no ~/.gnome");
Gnome2::VFS -> init();
###############################################################################
my $uri = Gnome2::VFS::URI -> new("http://www.freenet.de");
isa_ok($uri, "Gnome2::VFS::URI");
ok($uri -> equal(Gnome2::VFS::URI -> new("http://www.freenet.de")));
ok($uri -> is_parent(Gnome2::VFS::URI -> new("http://www.freenet.de/tmp/argh.html"), 1));
ok(not $uri -> has_parent());
is($uri -> to_string(qw(toplevel_method)), "www.freenet.de");
is($uri -> append_string("ble.html") -> to_string(), "http://www.freenet.de/ble.html");
is($uri -> append_path("bli.html") -> to_string(), "http://www.freenet.de/bli.html");
is($uri -> append_file_name("blo.html") -> to_string(), "http://www.freenet.de/blo.html");
ok(not $uri -> is_local());
SKIP: {
skip("resolve_relative, it changed in 2.4.0", 1)
unless (Gnome2::VFS -> CHECK_VERSION(2, 4, 0));
skip("resolve_relative was broken on 64bit platforms", 1)
if ($Config{ archname } =~ m/^(ia64|x86_64|alpha)/ &&
not Gnome2::VFS -> CHECK_VERSION(2, 8, 0));
is($uri -> resolve_relative("bla.html") -> to_string(), "http://www.freenet.de/bla.html");
}
###############################################################################
$uri = Gnome2::VFS::URI -> new("http://www.freenet.de/tmp/argh.html");
ok($uri -> has_parent());
is($uri -> get_parent() -> to_string(), "http://www.freenet.de/tmp");
###############################################################################
$uri = Gnome2::VFS::URI -> new('ftp://bla:bla@ftp.freenet.de:21/pub');
is($uri -> get_host_name(), "ftp.freenet.de");
is($uri -> get_scheme(), "ftp");
is($uri -> get_host_port(), 21);
is($uri -> get_user_name(), "bla");
is($uri -> get_password(), "bla");
###############################################################################
$uri = Gnome2::VFS::URI -> new("ftp://ftp.gna.org");
$uri -> set_host_name("ftp.gnu.org");
$uri -> set_host_port(21);
$uri -> set_user_name("blub");
$uri -> set_password("blub");
is($uri -> get_host_name(), "ftp.gnu.org");
is($uri -> get_scheme(), "ftp");
is($uri -> get_host_port(), 21);
is($uri -> get_user_name(), "blub");
is($uri -> get_password(), "blub");
###############################################################################
$uri = Gnome2::VFS::URI -> new("/usr/bin/perl");
is($uri -> get_path(), "/usr/bin/perl");
# FIXME: $uri -> get_fragment_identifier();
is($uri -> extract_dirname(), "/usr/bin");
is($uri -> extract_short_name(), "perl");
is($uri -> extract_short_path_name(), "perl");
###############################################################################
foreach (Gnome2::VFS::URI -> list_parse("file:///usr/bin/python\nfile:///usr/bin/curl")) {
isa_ok($_, "Gnome2::VFS::URI");
}
###############################################################################
is(Gnome2::VFS::URI -> make_full_from_relative("/usr/bin/", "perl"), "/usr/bin/perl");
###############################################################################
Gnome2::VFS -> shutdown();
|
