commit 2626b56

skip test unless -t STDIN

 1@@ -2,15 +2,19 @@ use strict;
 2 use warnings;
 3 
 4 # Verify that gen outputs the same thing as get
 5-$ENV{'HASLODIR'} = '.';
 6-do {
 7-	local $SIG{__DIE__} = sub {
 8-		die if system qw(haslo del tmp);
 9+if (-t STDIN) {
10+	$ENV{'HASLODIR'} = '.';
11+	do {
12+		local $SIG{__DIE__} = sub {
13+			die if system qw(haslo del tmp);
14+		};
15+		my $gen = qx(./haslo gen tmp);
16+		die if $?;
17+		my $get = qx(./haslo get tmp);
18+		die if $?;
19+		die "$gen ne $get" if $gen ne $get;
20 	};
21-	my $gen = qx(./haslo gen tmp);
22-	die if $?;
23-	my $get = qx(./haslo get tmp);
24-	die if $?;
25-	die "$gen ne $get" if $gen ne $get;
26-};
27-die if system qw(haslo del tmp);
28+	die if system qw(haslo del tmp);
29+} else {
30+	print "stdin not a terminal, skipping test\n";
31+}