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
|
#!/usr/bin/perl -w
use strict;
use Gnome2::VFS;
use Test::More;
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/t/GnomeVFSVolume,v 1.2 2005/03/07 21:16:45 kaffeetisch Exp $
unless (-d "$ENV{ HOME }/.gnome") {
plan(skip_all => "You have no ~/.gnome");
}
unless (Gnome2::VFS -> CHECK_VERSION(2, 6, 0)) {
plan(skip_all => "This is new in 2.6");
}
plan(tests => 14);
Gnome2::VFS -> init();
###############################################################################
my $monitor = Gnome2::VFS -> get_volume_monitor();
my $volume = ($monitor -> get_mounted_volumes())[0];
ok(defined($volume -> get_volume_type()));
ok(defined($volume -> get_device_type()));
my $drive = $volume -> get_drive();
ok(not defined $drive or ref $drive eq "Gnome2::VFS::Drive");
ok(defined $volume -> get_device_path());
ok(defined $volume -> get_activation_uri());
ok(defined $volume -> get_filesystem_type());
ok(defined $volume -> get_display_name());
ok(defined $volume -> get_icon());
my $boolean = qr/^(?:1|)$/;
like($volume -> is_user_visible(), $boolean);
like($volume -> is_read_only(), $boolean);
like($volume -> is_mounted(), $boolean);
like($volume -> handles_trash(), $boolean);
is($volume -> compare($volume), 0);
SKIP: {
skip("get_hal_udi is new in 2.8", 1)
unless (Gnome2::VFS -> CHECK_VERSION(2, 8, 0));
ok(defined $volume -> get_hal_udi());
}
# Gnome2::VFS -> connect_to_server("/mnt/win", "Windows", "windows.png");
###############################################################################
# $volume -> unmount(sub { warn @_; });
# $volume -> eject(sub { warn @_; });
# use Gtk2 -init;
# Glib::Timeout -> add(1000, sub { Gtk2 -> main_quit(); 0; });
# Gtk2 -> main();
###############################################################################
Gnome2::VFS -> shutdown();
|
