1#!perl
2
3use Test::Without::Module ("Module::Runtime");
4use strict ("subs", "vars", "refs");
5use warnings ("all");
6BEGIN { $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} = "Storable"; }
7END { delete $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} } # for VMS
8
9use Test::More;
10
11BEGIN
12{
13    $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} and eval "use $ENV{CLONE_CHOOSE_PREFERRED_BACKEND}; 1;";
14    $@ and plan skip_all => "No $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} found.";
15
16    use_ok('Clone::Choose') || BAIL_OUT "Couldn't load Clone::Choose";
17}
18
19diag("Testing Clone::Choose $Clone::Choose::VERSION, Perl $], $^X");
20
21my $backend = Clone::Choose->backend;
22
23diag("Using backend $backend version " . $backend->VERSION);
24
25done_testing;
26
27
28