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
|
#!/usr/bin/perl -w
use strict;
use Test::More;
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/t/GnomeVFS.t,v 1.7 2005/03/20 23:44:44 kaffeetisch Exp $
plan -d "$ENV{ HOME }/.gnome" ?
(tests => 3) :
(skip_all => "You have no ~/.gnome");
###############################################################################
use_ok("Gnome2::VFS", qw(
GNOME_VFS_PRIORITY_MIN
GNOME_VFS_PRIORITY_MAX
GNOME_VFS_PRIORITY_DEFAULT
GNOME_VFS_SIZE_FORMAT_STR
GNOME_VFS_OFFSET_FORMAT_STR
GNOME_VFS_MIME_TYPE_UNKNOWN
GNOME_VFS_URI_MAGIC_STR
GNOME_VFS_URI_PATH_STR
));
Gnome2::VFS -> init();
ok(Gnome2::VFS -> initialized());
###############################################################################
# FIXME: how to reliably test this? seems to require a running nautilus.
# my ($result, $uri) = Gnome2::VFS -> find_directory("/home", "desktop", 0, 1, 0755);
# is($result, "ok");
# isa_ok($uri, "Gnome2::VFS::URI");
ok(defined Gnome2::VFS -> result_to_string("ok"));
###############################################################################
Gnome2::VFS -> shutdown();
|
