t/op/spawnw.t

   1 #!perl
   2 # Copyright (C) 2001-2005, The Perl Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test tests => 7;
  10
  11 =head1 NAME
  12
  13 t/op/spawnw.t - Run OS commands and tell about the exit code
  14
  15 =head1 SYNOPSIS
  16
  17         % prove t/op/spawnw.t
  18
  19 =head1 DESCRIPTION
  20
  21 Tests spawning external commands.
  22
  23 spawnw does not capture STDOUT and STDERR from the spawned command.
  24 So only the exit code can be tested.
  25
  26 The returned value is actually returned from the 'waitpid' system call.
  27 In order to get the exit code from the spawned process, it needs to be right
  28 shifted by 8 bit.
  29
  30 =head1 TODO
  31
  32 Test negative return codes.
  33
  34 =head1 SEE ALSO
  35
  36 The special variable $? in Perl5.
  37
  38 =head1 AUTHOR
  39
  40 Nigel Sandever - L<nigelsandever@btconnect.com>
  41
  42 =cut
  43
  44 # perl command coded this way to avoid platform
  45 # quoting issue.
  46
  47 # test string version of spawnw
  48
  49 pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 0" );
  50         set     S1, 'perl -e "exit(0)"'
  51         set     I1, 99
  52         spawnw  I1, S1
  53         shr     I2, I1, 8
  54         print   "return code: "
  55         print   I2
  56         print   "\n"
  57         end
  58 CODE
  59 return code: 0
  60 OUTPUT
  61
  62 pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 123" );
  63         set     S1, 'perl -e "exit(123)"'
  64         set     I1, 99
  65         spawnw  I1, S1
  66         shr     I2, I1, 8
  67         print   "return code: "
  68         print   I2
  69         print   "\n"
  70         end
  71 CODE
  72 return code: 123
  73 OUTPUT
  74
  75 pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 3" );
  76         set     S1, 'perl -e "exit(3)"'
  77         set     I1, 99
  78         spawnw  I1, S1
  79         shr     I2, I1, 8
  80         print   "return code: "
  81         print   I2
  82         print   "\n"
  83         end
  84 CODE
  85 return code: 3
  86 OUTPUT
  87
  88 # test array version of spawnw
  89
  90 pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 0" );
  91         new     P0, 'Array'
  92         set     P0, 3
  93         set     P0[0], "perl"
  94         set     P0[1], "-e"
  95         set     P0[2], "exit(0)"
  96         set     I1, 99
  97         spawnw  I1, P0
  98         shr     I2, I1, 8
  99         print   "return code: "
 100         print   I2
 101         print   "\n"
 102         end
 103 CODE
 104 return code: 0
 105 OUTPUT
 106
 107 pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 123" );
 108         new     P0, 'Array'
 109         set     P0, 3
 110         set     P0[0], "perl"
 111         set     P0[1], "-e"
 112         set     P0[2], "exit(123)"
 113         set     I1, 99
 114         spawnw  I1, P0
 115         shr     I2, I1, 8
 116         print   "return code: "
 117         print   I2
 118         print   "\n"
 119         end
 120 CODE
 121 return code: 123
 122 OUTPUT
 123
 124 pasm_output_is( <<'CODE', <<'OUTPUT', "exit code: 3" );
 125         new     P0, 'Array'
 126         set     P0, 3
 127         set     P0[0], "perl"
 128         set     P0[1], "-e"
 129         set     P0[2], "exit(3)"
 130         set     I1, 99
 131         spawnw  I1, P0
 132         shr     I2, I1, 8
 133         print   "return code: "
 134         print   I2
 135         print   "\n"
 136         end
 137 CODE
 138 return code: 3
 139 OUTPUT
 140
 141 pir_output_is( <<'CODE', <<'OUTPUT', "grow argv buffer" );
 142 .sub test :main
 143         .local pmc args
 144
 145         $S0 = "exit length(qq{"
 146         $I0 = 0
 147 loop:
 148         if $I0 >= 1000 goto end
 149         $S0 = concat $S0, "A"
 150         inc $I0
 151         branch loop
 152 end:
 153         $S0 = concat $S0, "}) / 100"
 154         new args, 'ResizablePMCArray'
 155         push args, "perl"
 156         push args, "-e"
 157         push args, $S0
 158         $I0 = spawnw args
 159         shr $I1, $I0, 8
 160         print   "return code: "
 161         print   $I1
 162         print   "\n"
 163         end
 164 .end
 165 CODE
 166 return code: 10
 167 OUTPUT
 168
 169 # Local Variables:
 170 #   mode: cperl
 171 #   cperl-indent-level: 4
 172 #   fill-column: 100
 173 # End:
 174 # vim: expandtab shiftwidth=4: