Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[STD] implement :P5

[S02-magicals] various cleanups mostly involving rand 1000


git-svn-id: http://svn.pugscode.org/pugs@21392 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit efc7dbc09cf0b981172507fa9e340071e318a01c 1 parent cb11f4d
lwall authored
Showing with 4 additions and 4 deletions.
  1. +1 −1  S02-magicals/env.t
  2. +1 −1  S02-magicals/pid.t
  3. +2 −2 S02-magicals/sub.t
View
2  S02-magicals/env.t
@@ -51,7 +51,7 @@ my $expected = 'Hello from subprocess';
# not a junction of Bools.
is %*ENV<PUGS_ROCKS>, $expected,'%*ENV is rw';
-my $tempfile = "temp-ex-output." ~ $*PID ~ "." ~ rand 1000;
+my $tempfile = "temp-ex-output." ~ $*PID ~ "." ~ 1000.rand;
my $command = qq!$*EXECUTABLE_NAME -e "\%*ENV.perl.say" $redir $tempfile!;
diag $command;
View
2  S02-magicals/pid.t
@@ -27,7 +27,7 @@ if $*OS eq any <MSWin32 mingw msys cygwin> {
$pugs = 'pugs.exe';
};
-sub nonce () { return (".$*PID." ~ int rand 1000) }
+sub nonce () { return (".$*PID." ~ (^1000).pick) }
my $tempfile = "temp-ex-output" ~ nonce;
my $command = $pugs ~ q! -e 'say $PID'! ~ qq!$redir $tempfile!;
View
4 S02-magicals/sub.t
@@ -2,11 +2,11 @@ use v6;
use Test;
-=pod
+=begin comment
This tests the &?ROUTINE magical value
-=cut
+=end comment
plan 4;
Please sign in to comment.
Something went wrong with that request. Please try again.