1use strict;
 2use warnings;
 3
 4# Verify that gen outputs the same thing as get
 5$ENV{'HASLODIR'} = '.';
 6do {
 7	local $SIG{__DIE__} = sub {
 8		die if system qw(haslo del tmp);
 9	};
10	my $gen = qx(./haslo gen tmp);
11	die if $?;
12	my $get = qx(./haslo get tmp);
13	die if $?;
14	die "$gen ne $get" if $gen ne $get;
15};
16die if system qw(haslo del tmp);