32
32
my $result = exec_as 0, $_[0], $outref;
33
33
is $result, 1, "'$_[0]' fails";
34
like $$outref, qr/(invalid version|does not exist)/i, "$_[0] gives error message about nonexisting cluster";
34
like $$outref, qr/(invalid version|does not exist|cannot upgrade)/i, "$_[0] gives error message about nonexisting cluster";
35
35
unlike $$outref, qr/invalid symbolic link/i, "$_[0] does not print 'invalid symbolic link' gibberish";