The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 2;

use Rex::Commands;
use Rex::Virtualization;

eval {
  my $v = Rex::Virtualization->create();
  1;
} or do {
  like $@,
    qr/^No virtualization provider set.\nPlease use `set virtualization => 'YourProvider'/,
    "Got right error message if no provider is set.";
};

set virtualization => "Goo";

eval {
  my $v = Rex::Virtualization->create();
  1;
} or do {
  like $@,
    qr/^Failed loading given virtualization module\.\nTried to load \<Rex::Virtualization::Goo\>/,
    "Got right error message if module loading failed.";
};