FIXME

Author: exodist

lib/App/Yath/Server/Tester.pm

@@ -2,6 +2,63 @@ package App::Yath::Server::Tester;
 use strict;
 use warnings;
 
+our $VERSION = '2.000000';
+
+1;
+
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+App::Yath::Server::Tester - FIXME
+
+=head1 DESCRIPTION
+
+=head1 SYNOPSIS
+
+=head1 EXPORTS
+
+=over 4
+
+=back
+
+=head1 SOURCE
+
+The source code repository for Test2-Harness can be found at
+L<http://github.com/Test-More/Test2-Harness/>.
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>[email protected]E<gt>
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item Chad Granum E<lt>[email protected]E<gt>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright Chad Granum E<lt>[email protected]E<gt>.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See L<http://dev.perl.org/licenses/>
+
+=cut
+
+
+__END__
 # FIXME: This module needs to be reworked
 
 our $VERSION = '2.000000';

lib/Test2/Harness/Collector.pm

@@ -543,6 +543,13 @@ sub setup_child_input {
     }
     else {
         my $input = $ts->input // "";
+
+        # wait for temp dir up to 2 seconds
+        for (1 .. 20) {
+            last if -d $ENV{TMPDIR};
+            sleep 0.1;
+        }
+
         my ($fh, $file) = tempfile("input-$$-XXXX", TMPDIR => 1, UNLINK => 1);
         print $fh $input;
         close($fh);

t/unit/App/Yath/Server/Tester.t

@@ -1,4 +1,4 @@
-use Test2::V0; # -target => 'App::Yath::Server::Tester'
+use Test2::V0 -target => 'App::Yath::Server::Tester';
 
 skip_all "write me";