t/unit_fixture/CXGN/Stock/2DQRCode.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5 use SGN::Test::Fixture;
   6 use Test::More;
   7 use Test::WWW::Mechanize;
   8
   9 use Data::Dumper;
  10 local $Data::Dumper::Indent = 0;
  11
  12 my $f = SGN::Test::Fixture->new();
  13 my $schema = $f->bcs_schema;
  14
  15 my $mech = Test::WWW::Mechanize->new;
  16 my $response;
  17
  18 $mech->post_ok('http://localhost:3010/barcode/stock/download/pdf/',["stock_names" => "TestAccession1", "select_barcode_type" => "1D"] );
  19 ok($mech->success);
  20 $mech->content_contains('/static/documents/tempfiles/pdfs/pdf-');
  21 #$response = $mech->content;
  22 #print STDERR Dumper $response;
  23
  24
  25 done_testing();