t/run/05-unknown-option.t

   1 use v6;
   2
   3 use Test;
   4
   5 =begin pod
   6
   7 Test rejection of unknown command line switches.
   8
   9 Pugs should output
  10
  11   Unrecognized switch: -foo  (-h will show valid options).
  12
  13 if called with the (unknown) option C<-foo>
  14
  15 =end pod
  16
  17 my @examples = map -> Junction $_ { $_.eigenstates },
  18                map -> Junction $_ { $_.eigenstates }, (
  19     any('-foo ', '-e "print" -foo ', '-c -foo ', '-eprint -foo ')
  20   ~ any("", '-e "print" ', '-c '),
  21 );
  22
  23 plan +@examples;
  24 if $*OS eq "browser" {
  25   skip_rest "Programs running in browsers don't have access to regular IO.";
  26   exit;
  27 }
  28
  29 diag "Running under $*OS";
  30
  31 # Win9x breakage:
  32 my $redir = "2>&1 >";
  33
  34 sub nonce () { return (".{$*PID}." ~ (1..1000).pick) }
  35
  36 for @examples -> $ex {
  37   my $out_fn = "temp-ex-output" ~ nonce;
  38   my $command = "$*EXECUTABLE $ex $redir $out_fn";
  39   diag $command;
  40   run $command;
  41
  42   my $expected = "Unrecognized switch: -foo  (-h will show valid options).\n";
  43   my $got      = slurp $out_fn;
  44   unlink $out_fn;
  45
  46   is $got, $expected, "$ex works", :todo;
  47 }