#!perl

# use Test::More tests => 2;
use Test::More skip_all => 'This test needs fixed.';
use Test::Output;
use t::lib::MachineTest;
use File::Spec::Functions qw( catdir curdir rel2abs );

my $dir = catdir( rel2abs(curdir()), qw( t MachineTest ) );
my $expected;



foreach my $i (1 .. 10) {
	$expected_1 .= <<"EOF"
Object number $i ran.





------------------------------------------------------------





EOF

}

foreach my $j (1 .. 10) {
	if ($j % 5 == 0) {
		$expected_2 .= <<"EOF"


Skipping build number $j.




------------------------------------------------------------





EOF
	} else {
		$expected_2 .= <<"EOF"
Object number $j ran.





------------------------------------------------------------





EOF
	}
}

diag("Test directory: $dir");

sub test_machine_1 {
	t::lib::MachineTest->default_machine( common => [ image_dir, $dir ] )->run();
}

sub test_machine_2 {
	t::lib::MachineTest->default_machine( common => [ image_dir, $dir ], skip => [5, 10] )->run();
}

stdout_is ( \&test_machine_1, $expected_1, '::Util::Machine gives expected output.');
stdout_is ( \&test_machine_2, $expected_2, 'skip works.');