use strict;
use warnings;

use English qw( -no_match_vars );
use Test::More;

use lib 'lib';
use Provision::Unix;
use Provision::Unix::VirtualOS;
use Provision::Unix::VirtualOS::Linux;

my $prov = Provision::Unix->new( debug => 0 );

if ( $OSNAME ne 'linux' ) {
    plan skip_all => 'linux specific tests';
};

my $vos;
eval { $vos = Provision::Unix::VirtualOS->new( prov => $prov ); };

if ( ! $vos ) {
    plan skip_all => 'no hypervisors detected';
}
else {
    plan 'no_plan';
};

my $linux = Provision::Unix::VirtualOS::Linux->new( vos => $vos );
my $fs_root = $vos->get_fs_root('12345');

my $r = $linux->set_ips_debian( 
    fs_root   => $fs_root,
    ips       => [ '67.223.249.65', '1.1.1.1'  ],
    test_mode => 1,
);
ok( $r );

$r = $linux->set_ips( 
    fs_root   => $fs_root,
    ips       => [ '67.223.249.65', '1.1.1.1'  ],
    test_mode => 1,
    distro    => 'redhat',
);
ok( $r );

$r = $linux->install_kernel_modules(
    test_mode => 1,
    version   => 2.0,
    fs_root   => $fs_root,
);
ok( $r );