t/legacy/integration/metadata.t

   1 use Test::Most;
   2
   3 use lib 't/lib';
   4
   5 use aliased 'SGN::Test::WWW::Mechanize';
   6 use SGN::Test::Data qw/  CXGN::Biosource::Schema  create_test  /;
   7
   8 my $mech = Mechanize->new;
   9
  10 $mech->with_test_level( local => sub {
  11
  12     my $file = create_test('MdFiles', {
  13         dirname  => 't/data',
  14         basename => 'ath_prots.seq',
  15     });
  16
  17     ok( -f $file->path, 'made a test MdFiles object' );
  18
  19     $mech->get_ok( '/metadata/file/'.$file->file_id.'/download' );
  20     is( $mech->content_type, 'text/plain', 'got right content type' );
  21
  22 });
  23
  24
  25 done_testing;