use strict;
use Data::Dumper;
use Encode;
use Test::More;
use File::Temp;
use IO::File;
use File::Basename qw(dirname);
use File::Spec;
use WebService::Dropbox;
if (!$ENV{'DROPBOX_APP_KEY'} or !$ENV{'DROPBOX_APP_SECRET'}) {
plan skip_all => 'missing App Key or App Secret';
}
my $dropbox = WebService::Dropbox->new({
key => $ENV{'DROPBOX_APP_KEY'},
secret => $ENV{'DROPBOX_APP_SECRET'},
env_proxy => 1,
});
if (!$ENV{'DROPBOX_ACCESS_TOKEN'} or !$ENV{'DROPBOX_ACCESS_SECRET'}) {
my $url = $dropbox->login or die $dropbox->error;
warn "Please Access URL and press Enter: $url";
<STDIN>;
$dropbox->auth or die $dropbox->error;
warn "access_token: " . $dropbox->access_token;
warn "access_secret: " . $dropbox->access_secret;
} else {
$dropbox->access_token($ENV{'DROPBOX_ACCESS_TOKEN'});
$dropbox->access_secret($ENV{'DROPBOX_ACCESS_SECRET'});
}
$dropbox->account_info or die $dropbox->error;
my $exists = $dropbox->metadata('make_test_folder');
if ($exists and !$exists->{is_deleted}) {
$dropbox->delete('make_test_folder') or die $dropbox->error;
is $dropbox->code, 200, "delete make_test_folder";
}
$dropbox->create_folder('make_test_folder') or die $dropbox->error;
is $dropbox->code, 200, "create_folder success";
$dropbox->create_folder('make_test_folder');
is $dropbox->code, 403, "create_folder error already exists.";
my $file_mark = decode_utf8('\'!"#$%&(=~|@`{}[]+*;,<>_?-^ 日本語.txt');
# files_put
my $fh_put = File::Temp->new;
$fh_put->print('test.test.test.');
$fh_put->flush;
$fh_put->seek(0, 0);
$dropbox->files_put('make_test_folder/' . $file_mark, $fh_put);
$fh_put->close;
# files_put_chunked
if (-f '/tmp/1GB.dat') {
my $fh = IO::File->new('/tmp/1GB.dat');
my $data = $dropbox->files_put_chunked('make_test_folder/large-' . $file_mark, $fh);
$fh->close;
}
# metadata
$exists = $dropbox->metadata('make_test_folder/' . $file_mark)
or die $dropbox->error;
if ($exists and !$exists->{is_deleted}) {
pass "put.";
}
# copy
my $copy = $dropbox->copy('make_test_folder/' . $file_mark, 'make_test_folder/test.txt')
or die $dropbox->error;
# copy_ref
my $copy_ref = $dropbox->copy_ref('make_test_folder/' . $file_mark)
or die $dropbox->error;
$copy = $dropbox->copy($copy_ref, 'make_test_folder/test2.txt')
or die $dropbox->error;
# move
my $move = $dropbox->move('make_test_folder/' . $file_mark, 'make_test_folder/test2b.txt')
or die $dropbox->error;
# files_put
$fh_put = File::Temp->new;
$fh_put->print('test.');
$fh_put->flush;
$fh_put->seek(0, 0);
$dropbox->files_put('make_test_folder/' . $file_mark, $fh_put)
or die $dropbox->error;
$fh_put->close;
# files
my $fh_get = File::Temp->new;
$dropbox->files('make_test_folder/' . $file_mark, $fh_get) or die $dropbox->error;
$fh_get->flush;
$fh_get->seek(0, 0);
is $fh_get->getline, 'test.', 'download success.';
$fh_get->close;
# files_put overwrite
$fh_put = File::Temp->new;
$fh_put->print('test2.');
$fh_put->flush;
$fh_put->seek(0, 0);
$dropbox->files_put('make_test_folder/' . $file_mark, $fh_put) or die $dropbox->error;
$fh_put->close;
$fh_get = File::Temp->new;
$dropbox->files('make_test_folder/' . $file_mark, $fh_get) or die $dropbox->error;
$fh_get->flush;
$fh_get->seek(0, 0);
is $fh_get->getline, 'test2.', 'overwrite success.';
$fh_get->close;
# files_put no overwrite
$fh_put = File::Temp->new;
$fh_put->print('test3.');
$fh_put->flush;
$fh_put->seek(0, 0);
$dropbox->files_put('make_test_folder/test.txt', $fh_put, { overwrite => 0 })
or die $dropbox->error;
$fh_put->close;
$exists = $dropbox->metadata('make_test_folder/test (1).txt');
if ($exists and !$exists->{is_deleted}) {
pass "no overwrite success.";
}
# delta
my $delta = $dropbox->delta()
or die $dropbox->error;
# revisions
my $revisions = $dropbox->revisions('make_test_folder/' . $file_mark)
or die $dropbox->error;
# restore
my $restore = $dropbox->restore('make_test_folder/' . $file_mark, { rev => $revisions->[1]->{rev} })
or die $dropbox->error;
$fh_get = File::Temp->new;
$dropbox->files('make_test_folder/' . $file_mark, $fh_get) or die $dropbox->error;
$fh_get->flush;
$fh_get->seek(0, 0);
is $fh_get->getline, 'test.', 'restore success.';
$fh_get->close;
# search
my $search = $dropbox->search('make_test_folder/', { query => 'test' })
or die $dropbox->error;
is scalar(@$search), 4, 'search';
# shares
my $shares = $dropbox->shares('make_test_folder/' . $file_mark)
or die $dropbox->error;
ok $shares->{url}, "shares";
# media
my $media = $dropbox->media('make_test_folder/' . $file_mark)
or die $dropbox->error;
ok $shares->{url}, "media";
# delete
$dropbox->delete('make_test_folder/' . $file_mark) or die $dropbox->error;
# thumbnails
$fh_put = IO::File->new(File::Spec->catfile(dirname(__FILE__), 'sample.png'));
$dropbox->files_put('make_test_folder/sample.png', $fh_put) or die $dropbox->error;
$fh_put->close;
$fh_get = File::Temp->new;
$dropbox->thumbnails('make_test_folder/sample.png', $fh_get) or die $dropbox->error;
$fh_get->flush;
$fh_get->seek(0, 0);
ok -s $fh_get, 'thumbnails.';
$fh_get->close;
# japanese
my $file_utf8 = decode_utf8('日本語.txt');
my $file_move_utf8 = decode_utf8('日本語_移動.txt');
$fh_put = File::Temp->new;
$fh_put->print('test5.');
$fh_put->flush;
$fh_put->seek(0, 0);
$dropbox->files_put('make_test_folder/' . $file_utf8, $fh_put)
or die $dropbox->error;
$fh_put->close;
$exists = $dropbox->metadata('make_test_folder/' . $file_utf8);
if ($exists and !$exists->{is_deleted}) {
pass "utf8.";
}
$dropbox->move('make_test_folder/' . $file_utf8, 'make_test_folder/' . $file_move_utf8) or die $dropbox->error;
$dropbox->delete('make_test_folder/' . $file_move_utf8) or die $dropbox->error;
done_testing();