qw (open-normal open-boundary open-twice
close-normal close-twice
read-normal read-bad-ptr read-boundary read-zero
- write-normal write-boundary write-zero));
+ write-normal write-bad-ptr write-boundary write-zero
+ multi-child-fd));
+put_file ("child-simple")
+ if grep ($_ eq $test,
+ qw (exec-once exec-multiple
+ join-simple join-twice));
+put_file ("child-arg") if $test eq 'exec-arg';
+put_file ("child-close") if $test eq 'multi-child-fd';
+put_file ("child-bad") if $test eq 'join-killed';
sub put_file {
my ($fn) = @_;