view release on metacpan or  search on metacpan

t/GnomeVFSAsync  view on Meta::CPAN

                                       [qw(read write)],
                                       1,
                                       0666,
                                       0,
                                       $callback_create);

isa_ok($handle, "Gnome2::VFS::Async::Handle");
$loop -> run();

###############################################################################

$handle = Gnome2::VFS::Async -> load_directory("/tmp",
                                               qw(default),
                                               2,
                                               0,
                                               $callback_directory_open);

isa_ok($handle, "Gnome2::VFS::Async::Handle");
$loop -> run();

###############################################################################

$handle = Gnome2::VFS::Async -> load_directory_uri(Gnome2::VFS::URI -> new("/tmp"),
                                                   qw(default),
                                                   2,
                                                   0,
                                                   $callback_directory_open);

isa_ok($handle, "Gnome2::VFS::Async::Handle");
$loop -> run();

###############################################################################

my $files = [Gnome2::VFS::URI -> new("/tmp/bla"),
             Gnome2::VFS::URI -> new("/tmp/ble"),
             Gnome2::VFS::URI -> new("/tmp/bli")];

$handle = Gnome2::VFS::Async -> get_file_info($files,
                                              qw(default),
                                              0,
                                              $callback_get_file_info);

isa_ok($handle, "Gnome2::VFS::Async::Handle");
$loop -> run();

###############################################################################

$handle = Gnome2::VFS::Async -> set_file_info(Gnome2::VFS::URI -> new("/tmp/bla"),
                                              { permissions => [qw(user-read user-write)] },
                                              [qw(permissions)],
                                              qw(default),
                                              0,
                                              $callback_set_file_info);

isa_ok($handle, "Gnome2::VFS::Async::Handle");
$loop -> run();

###############################################################################

$handle = Gnome2::VFS::Async -> find_directory($files,
                                               "desktop",
                                               0,
                                               1,
                                               0777,
                                               0,
                                               $callback_find_directory);

isa_ok($handle, "Gnome2::VFS::Async::Handle");
$loop -> run();

###############################################################################

my @source = (Gnome2::VFS::URI -> new("/tmp/bla"),
              Gnome2::VFS::URI -> new("/tmp/ble"),
              Gnome2::VFS::URI -> new("/tmp/bli"));

my @destination = (Gnome2::VFS::URI -> new("/tmp/blaa"),
                   Gnome2::VFS::URI -> new("/tmp/blee"),
                   Gnome2::VFS::URI -> new("/tmp/blii"));

($result, $handle) = Gnome2::VFS::Async -> xfer(\@source,
                                                \@destination,
                                                qw(default),
                                                qw(query),
                                                qw(query),
                                                0,
                                                $callback_progress_update,
                                                undef,
                                                $callback_progress_sync,
                                                undef);

is($result, "ok");
isa_ok($handle, "Gnome2::VFS::Async::Handle");
$loop -> run();

###############################################################################

Gnome2::VFS -> unlink("/tmp/bla");
Gnome2::VFS -> unlink("/tmp/ble");
Gnome2::VFS -> unlink("/tmp/bli");

Gnome2::VFS -> unlink("/tmp/blaa");
Gnome2::VFS -> unlink("/tmp/blee");
Gnome2::VFS -> unlink("/tmp/blii");

###############################################################################

Gnome2::VFS::Async -> set_job_limit(2);
is(Gnome2::VFS::Async -> get_job_limit(), 2);

###############################################################################

Gnome2::VFS -> shutdown();