use strict;
use warnings;
use Test::Clustericious::Command;
use Test::More;
use YAML::XS qw( Load );
use Path::Class qw( file );

requires undef, 4;
extract_data;

run_ok('hello', 'morbo', 'foo', 'bar', 'baz')
  ->exit_is(0)
  ->tap(sub {
    my @args = @{ Load(shift->out) };
    my $command = pop @args;
    like $command, qr{hello$}, 'seems to be the right command';
    is_deeply \@args, [qw( 
      -l http://1.2.3.4:5678
      foo bar baz
    )], 'arguments match';
  });

__DATA__

@@ bin/hello
#!/usr/bin/perl

use strict;
use warnings;
use Clustericious::Commands;
$ENV{MOJO_APP} = 'Clustericious::HelloWorld';
Clustericious::Commands->start;


@@ bin/morbo
#!/usr/bin/perl

use strict;
use warnings;
use YAML::XS qw( Dump );

print Dump(\@ARGV);


@@ etc/Clustericious-HelloWorld.conf
---
url: http://1.2.3.4:5678