(List
  (FunctionDef test_terminal []
    (List
      (If
        (Pipeline!
          (Com {[LIT_CHARS test_declared_prereq]} {[LIT_CHARS TTY]})
        )
        (List
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "test_terminal: need to declare TTY prerequisite"]]}
            <
            (DescriptorRedirectNode target={[LIT_CHARS 4]} <REDIR_GREATAND ">&"> 1),
            >
          )
          (Com {[LIT_CHARS return]} {[LIT_CHARS 127]})
        )
      )
      (Com {[LIT_CHARS perl]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /test-terminal.perl]} {[DQ [VarSub @]]})
    )
  )
  (Com {[LIT_CHARS test_lazy_prereq]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_have_prereq PERL &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Reading from the pty master seems to get stuck _sometimes_\n"> <LIT_CHARS "\t# on Mac OS X 10.5.0, using Perl 5.10.0 or 5.8.9.\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# Reproduction recipe: run\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t#\ti=0\n"> <LIT_CHARS "\t#\twhile ./test-terminal.perl echo hi $i\n"> <LIT_CHARS "\t#\tdo\n"> <LIT_CHARS "\t#\t\t: $((i = $i + 1))\n"> <LIT_CHARS "\t#\tdone\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# After 2000 iterations or so it hangs.\n"> <LIT_CHARS "\t# https://rt.cpan.org/Ticket/Display.html?id=65692\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\ttest \"$(uname -s)\" != Darwin &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tperl \"$TEST_DIRECTORY\"/test-terminal.perl \\\n"> <LIT_CHARS "\t\tsh -c \"test -t 1 && test -t 2\"\n">]})
)