#!/usr/bin/perl

use strict;
use Test::More "no_plan";
use POSIX;

sub exec_from_tmp_file {
	my $c=shift;

	#escape characters vodoo
	my %regexp = ("\\\\s" => "\\\\\\s");
	for my $key (%regexp) {$c =~ s/$key/$regexp{$key}/g;}

	my $name = tmpnam();
	if (!open TMPFILE, ">$name") {unlink $name; die "can't open $name tmp file for adding"};
	print TMPFILE $c;
	close TMPFILE;
	`chmod +x $name`;
	my $result=`/$name`;
	unlink $name;
	return $result;
}

#expect command
my $c='#!/usr/bin/expect
spawn /usr/bin/nmc -c "setup appliance user create user8"
sleep 15
expect -re "Home\s+folder\s+:"
send \r
expect -re "Description\s+:"
send \r
expect -re "Default\s+group\s+:"
send \r
expect -re "Password\s+:"
send \r
expect -re "to exit\."
sleep 10
send \r
exit';


my $result = &exec_from_tmp_file ($c);
print "$result";

`/usr/bin/nmc -c "setup appliance user user8 destroy -y"`;

BEGIN;

pass "passed";