7 use SGN::Test::WWW::Mechanize skip_cgi => 1;
9 my $mech = SGN::Test::WWW::Mechanize->new;
10 $mech->with_test_level( local => sub {
11 my $c = $mech->context;
13 my $gb2 = $c->feature('gbrowse2')
14 or plan skip_all => 'gbrowse2 feature not available';
16 eval { $gb2->setup }; #< may fail if web server has done it already
18 my @sources = $gb2->data_sources;
20 can_ok( $_, 'view_url', 'name', 'description') for @sources;
24 like( $_->_url( 'gbrowse_img', { foo => 'bar' }), qr!/[^/]+$!, '_url path ends with a trailing slash' );
26 local $SIG{__WARN__} = sub {};
30 can_ok( $_, 'features' );