Merge branch 'master' into topic/simple_image_upload
[sgn.git] / t / unit_mech / Controller / Feature / GBrowse2 / DataSources.t
blob3cce51d0e6c7494dd3a7332dd5cd430c92173d2d
1 use strict;
2 use warnings;
4 use Test::More;
6 use lib 't/lib';
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;
23     for ( @sources ) {
24         like( $_->_url( 'gbrowse_img', { foo => 'bar' }), qr!/[^/]+$!, '_url path ends with a trailing slash' );
25         my @dbs      = do {
26             local $SIG{__WARN__} = sub {};
27             $_->databases;
28         };
29         for (@dbs) {
30             can_ok( $_, 'features' );
31         }
32     }
33 });
35 ok(1); #Adding a test 
36 done_testing;