--- a/t/3722_user_defined.t +++ b/t/3722_user_defined.t @@ -38,7 +38,7 @@ $slist->import_files( }, error_callback => sub { my ( $uuid, $process, $msg ) = @_; - is( $msg, 'error', + is( substr($msg, 0, 5), 'error', 'user_defined caught error injected in queue' ); }, );