3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 11; |
use Test::More tests => 12; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
28 |
cmp_ok($node->status, '==', -1, 'status'); |
cmp_ok($node->status, '==', -1, 'status'); |
29 |
|
|
30 |
my $nodelist; |
my $nodelist; |
31 |
cmp_ok($node->shuttle_url( '?action=nodelist', 'text/plain', undef, \$nodelist), |
foreach my $url (qw{?action=nodelist http://localhost/master_ui?action=nodelist}) { |
32 |
'==', 200, 'nodelist'); |
cmp_ok( |
33 |
|
$node->shuttle_url( $url, 'text/plain', undef, \$nodelist) |
34 |
|
,'==', 200, 'nodelist'); |
35 |
|
} |
36 |
|
|
37 |
my $draft = <<'_END_OF_DRAFT_'; |
my $draft = <<'_END_OF_DRAFT_'; |
38 |
@uri=data001 |
@uri=data001 |