Permalink
Browse files

[t/spec] remove uses of prefix:<int>

git-svn-id: http://svn.pugscode.org/pugs@25905 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 39a7b59 commit 21db1c7bfe4c3cb3c60fb169494ec6dc3dff6cf1 lwall committed Mar 19, 2009
Showing with 5 additions and 5 deletions.
  1. +1 −1 S16-filehandles/io.t
  2. +1 −1 S16-filehandles/unlink.t
  3. +1 −1 S16-io/getc.t
  4. +1 −1 S29-context/evalfile.t
  5. +1 −1 S32-list/map.t
@@ -20,7 +20,7 @@ plan 57;
#?pugs emit }
-sub nonce () { return (".{$*PID}." ~ int 1000.rand) }
+sub nonce () { return (".{$*PID}." ~ Int(1000.rand)) }
my $filename = 'tempfile_filehandles_io' ~ nonce();
# create and write a file
@@ -4,7 +4,7 @@ plan 6;
# L<S16/"Filehandles, files, and directories"/"unlink">
-sub nonce() { ".{$*PID}." ~ int 1000.rand }
+sub nonce() { ".{$*PID}." ~ 1000.rand.Int }
if $*OS eq "browser" {
skip_rest "Programs running in browsers don't have access to regular IO.";
View
@@ -4,7 +4,7 @@ plan 1;
# L<S16/"Input and Output"/"getc">
-sub nonce () { return (".{$*PID}." ~ int 1000.rand) }
+sub nonce () { return (".{$*PID}." ~ 1000.rand.Int) }
if $*OS eq "browser" {
skip_rest "Programs running in browsers don't have access to regular IO.";
@@ -5,7 +5,7 @@ plan 1;
# L<S29/Context/"=item evalfile">
-sub nonce () { return (".{$*PID}." ~ int 1000.rand) }
+sub nonce () { return (".{$*PID}." ~ 1000.rand.Int) }
if $*OS eq "browser" {
skip_rest "Programs running in browsers don't have access to regular IO.";
View
@@ -251,7 +251,7 @@ is( ~((1..3).map: { dbl( $_ ) }),'2 4 6','extern method in map');
# .thing inside map blocks should still default to $_
# used to be a pugs regression
{
- is ~((1,2,3).map: { int $_ }), "1 2 3", "dependency for following test (1)";
+ is ~((1,2,3).map: { int($_) }), "1 2 3", "dependency for following test (1)";
$_ = 4; is .int, 4, "dependency for following test (2)";
is ~((1,2,3).map: { .int }), "1 2 3", 'int() should default to $_ inside map, too';

0 comments on commit 21db1c7

Please sign in to comment.