#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
use Test::Warn;
use IO::Async::Test;
use IO::Async::Loop;
use IPC::PerlSSH::Async;
my $loop = IO::Async::Loop->new();
testing_loop( $loop );
my $ips;
warning_is {
   $ips = IPC::PerlSSH::Async->new(
      Command => "$^X",
      loop => $loop,
      on_exception => sub { die "Perl died early - $_[0]" },
   );
} "'loop' constructor argument is deprecated", 'loop constructor argument gives deprecation warning';
ok( defined $ips, "Constructor" );
my $result;
$ips->eval( 
   code => '1 + 1',
   on_result => sub { $result = shift },
);
wait_for { defined $result };
is( $result, 2, "Legacy 'loop' argument still works" );