t/run/04-dash-ce.t

   1 use v6;
   2
   3 use Test;
   4
   5 =begin pod
   6
   7 Test evaluation of combination of C<-e> and C<-c> switches.
   8
   9 They should all do a syntax check and never evaluate the
  10 C<-e> fragments.
  11
  12 =end pod
  13
  14 my @examples = (
  15   '-ce "print qq,Code got interpreted!,"',
  16   '-c -e "print qq,Code got interpreted!,"',
  17   '-e "print qq,Code got interpreted!," -c',
  18   '-eprint -c',
  19   '-ceprint',
  20 );
  21
  22 plan +@examples;
  23 if $*OS eq "browser" {
  24   skip_rest "Programs running in browsers don't have access to regular IO.";
  25   exit;
  26 }
  27
  28 diag "Running under $*OS";
  29
  30 my $redir =  ">";
  31
  32 if $*OS eq any <MSWin32 mingw msys cygwin> {
  33   $redir = '>';
  34 };
  35
  36 sub nonce () { return (".{$*PID}." ~ (1..1000).pick) }
  37
  38 for @examples -> $ex {
  39   my $out_fn = "temp-ex-output" ~ nonce;
  40   my $command = "$*EXECUTABLE_NAME $ex $redir $out_fn";
  41   diag $command;
  42   run $command;
  43
  44   my $expected = "-e syntax OK\n";
  45   my $got      = slurp $out_fn;
  46   unlink $out_fn;
  47
  48   is $got, $expected, "$ex works";
  49 }