t/unit_fixture/CXGN/Uploading/ValidateUploadtoFileDumpShare.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use lib 't/lib';
   6 use SGN::Test::Fixture;
   7 use Test::More;
   8 use Test::WWW::Mechanize;
   9 use LWP::UserAgent;
  10
  11 #Needed to update IO::Socket::SSL
  12 use Data::Dumper;
  13 use JSON;
  14 local $Data::Dumper::Indent = 0;
  15
  16 my $f = SGN::Test::Fixture->new();
  17 my $schema = $f->bcs_schema;
  18 my $dbh = $schema->storage->dbh;
  19 my $people_schema = $f->people_schema;
  20
  21 my $mech = Test::WWW::Mechanize->new;
  22
  23 $mech->post_ok('http://localhost:3010/brapi/v1/token', [ "username"=> "janedoe", "password"=> "secretpw", "grant_type"=> "password" ]);
  24 my $response = decode_json $mech->content;
  25 print STDERR Dumper $response;
  26 is($response->{'metadata'}->{'status'}->[2]->{'message'}, 'Login Successfull');
  27 my $sgn_session_id = $response->{access_token};
  28 print STDERR $sgn_session_id."\n";
  29
  30 print STDERR "Uploading File to Data Dump for Sharing\n";
  31
  32 my $file = $f->config->{basepath}."/t/data/genotype_data/testset_GT-AD-DP-GQ-DS-PL.vcf";
  33
  34 my $ua = LWP::UserAgent->new;
  35 $response = $ua->post(
  36         'http://localhost:3010/ajax/filesharedump/upload',
  37         Content_Type => 'form-data',
  38         Content => [
  39             manage_file_dump_upload_file_dialog_file => [ $file, 'manage_file_dump_upload_file_dialog_file' ],
  40             "sgn_session_id"=>$sgn_session_id,
  41         ]
  42     );
  43
  44 #print STDERR Dumper $response;
  45 ok($response->is_success);
  46 my $message = $response->decoded_content;
  47 my $message_hash = decode_json $message;
  48 print STDERR Dumper $message_hash;
  49 is_deeply($message_hash, {success=>1});
  50
  51 my $ua = LWP::UserAgent->new;
  52 $response = $ua->get("http://localhost:3010/ajax/filesharedump/list?sgn_session_id=$sgn_session_id");
  53 $message = $response->decoded_content;
  54 $message_hash = decode_json $message;
  55 print STDERR Dumper $message_hash;
  56 is(scalar(@{$message_hash->{data}}), 1);
  57
  58 done_testing();