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."; };