t/run/06-dash-version.t

   1 use v6;
   2
   3 use Test;
   4
   5 =begin pod
   6
   7 Test that the C<--version> command in its various incantations
   8 works.
   9
  10 =end pod
  11
  12 my @tests = any(< -v --version >);
  13 @tests = map -> Junction $_ { $_.eigenstates },
  14          map -> Junction $_ { $_, "-w $_", "$_ -w", "-w $_ -w" },
  15          @tests;
  16
  17 plan +@tests;
  18 if $*OS eq "browser" {
  19   skip_rest "Programs running in browsers don't have access to regular IO.";
  20   exit;
  21 }
  22
  23 diag "Running under $*OS";
  24
  25 my $redir = ">";
  26
  27 sub nonce () { return (".{$*PID}." ~ (1..1000).pick) }
  28
  29 for @tests -> $ex {
  30   my $out_fn = "temp-ex-output" ~ nonce;
  31   my $command = "$*EXECUTABLE_NAME $ex $redir $out_fn";
  32   diag $command;
  33   run $command;
  34
  35   my $got = slurp $out_fn;
  36   unlink $out_fn;
  37
  38   like($got, rx:Perl5/Version:.6\.\d+\.\d+/, "'$ex' displays version");
  39 };