t/unit_mech/Controller/Feature/GBrowse2/Xref.t

   1 use strict;
   2 use warnings;
   3
   4 use Carp;
   5 use Test::More;
   6
   7 use SGN::Context;
   8
   9 my $c = SGN::Context->new;
  10
  11 $SIG{__DIE__} = \&Carp::confess;
  12
  13 can_ok( $c, 'feature' );
  14
  15 my $gb2 = $c->feature('gbrowse2')
  16     or plan skip_all => 'gbrowse2 feature not available';
  17
  18 eval { $gb2->setup }; #< may fail if web server has done it already
  19
  20 my @xrefs = $gb2->xrefs('Serine'), $gb2->xrefs('TG154');
  21
  22 my @methods = qw/preview_image_url is_empty text
  23                  url feature data_source seqfeatures
  24                 /;
  25
  26 can_ok( $_, @methods ) for @xrefs;
  27
  28 done_testing;