Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 27 lines (18 sloc) 0.442 kb
58135b3 [t/spec] changed 'use v6-alpha;' to 'use v6;'
moritz authored
1 use v6;
ce3256f Refactored evalfile tests under t/spec/S29-context
cosimo authored
2 use Test;
3
4 plan 1;
5
6 # L<S29/Context/"=item evalfile">
7
21db1c7 [t/spec] remove uses of prefix:<int>
lwall authored
8 sub nonce () { return (".{$*PID}." ~ 1000.rand.Int) }
ce3256f Refactored evalfile tests under t/spec/S29-context
cosimo authored
9
10 if $*OS eq "browser" {
11 skip_rest "Programs running in browsers don't have access to regular IO.";
12 exit;
13 }
14
15 my $tmpfile = "temp-evalfile" ~ nonce();
16 {
17 my $fh = open("$tmpfile", :w);
18 say $fh: "32 + 10";
19 close $fh;
20 }
21
22 is evalfile($tmpfile), 42, "evalfile() works";
23
24 END { unlink $tmpfile }
7f29bc5 [t/spec] Add vim: lines everywhere.
kyle authored
25
26 # vim: ft=perl6
Something went wrong with that request. Please try again.