Added uploadFile method

t/001_test.t

@@ -0,0 +1,79 @@
+#
+#===============================================================================
+#
+#         FILE: 001_test.t
+#
+#  DESCRIPTION: 
+#
+#        FILES: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: YOUR NAME (), 
+# ORGANIZATION: 
+#      VERSION: 1.0
+#      CREATED: 20.04.2019 21:40:06
+#     REVISION: ---
+#===============================================================================
+
+use utf8;
+use strict;
+use warnings;
+use File::Spec;
+
+my $CURR_DIR;
+BEGIN {
+    $CURR_DIR = File::Spec->curdir;
+}
+
+use lib File::Spec->catdir($CURR_DIR, './lib');
+
+use Test::More 'no_plan';                      # last test to print
+
+use_ok('Mediafire::Api');
+
+my $LOGIN               = $ENV{MEDIAFIRE_LOGIN};
+my $PASSWORD            = $ENV{MEDIAFIRE_PASSWORD};
+my $UPLOAD_FILE         = File::Spec->catfile($CURR_DIR, 't', 'test_upload3.f');
+
+
+SKIP: {
+    if (not $LOGIN) {
+        skip "Variable ENV{MEDIAFIRE_LOGIN} not set. Skip test";
+    }
+    if (not $PASSWORD) {
+        skip "Variable ENV{MEDIAFIRE_PASSWORD} not set. Skip test";
+    }
+
+    # Login to mediafire
+    my $mediafire = eval {
+        testLogin($LOGIN, $PASSWORD);
+    };
+    if ($@) {
+        skip $@;
+    }
+
+    testUploadFile($mediafire, $UPLOAD_FILE);
+
+};
+
+
+sub testLogin {
+    my ($login, $password) = @_;
+    my $mediafire = Mediafire::Api->new();
+    my $login_res = $mediafire->login(
+        -login          => $login,
+        -password       => $password,
+    );
+    ok($login_res, 'Test login success');
+
+    return $mediafire;
+}
+
+sub testUploadFile {
+    my ($mediafire, $file) = @_;
+    my $upload_file = $mediafire->uploadFile(
+        -file           => $file,
+    );
+}
+
+