t/unit_mech/Controller/Feature/FeaturePages/Xrefs.t

   1 use strict;
   2 use warnings;
   3
   4 BEGIN { $ENV{SGN_SKIP_CGI} = 1 }
   5
   6 use Carp;
   7 use Test::More;
   8
   9 use lib 't/lib';
  10 use SGN::Test::WWW::Mechanize;
  11
  12 my $mech = SGN::Test::WWW::Mechanize->new;
  13 $SIG{__DIE__} = \&Carp::confess;
  14
  15
  16 $mech->with_test_level( process => sub {
  17     my $c = $mech->context;
  18
  19     can_ok( $c, 'feature' );
  20
  21     my $fp = $c->feature('featurepages')
  22         or plan skip_all => 'featurepages feature not available';
  23
  24     can_ok( $fp, 'feature_name' );
  25
  26     my @xrefs = $fp->xrefs('Solyc05g005070'), $fp->xrefs('Serine/threonine protein kinase');
  27
  28     my @methods = qw/ is_empty text url feature /;
  29
  30     can_ok( $_, @methods ) for @xrefs;
  31
  32 });
  33
  34
  35
  36 done_testing;