Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 26 lines (17 sloc) 0.705 kb
58135b3 [t/spec] changed 'use v6-alpha;' to 'use v6;'
moritz authored
1 use v6;
66b1616 Moved system() test script under t/spec/S29-os/
cosimo authored
2 use Test;
3
4 # L<S29/"OS"/"=item run">
0de784b [t] clean up various calls to try, system, etc
lwall authored
5 # system is renamed to run, so link there.
66b1616 Moved system() test script under t/spec/S29-os/
cosimo authored
6
7 plan 3;
8
9 if $*OS eq "browser" {
10 skip_rest "Programs running in browsers don't have access to regular IO.";
11 exit;
12 }
13
14 my $res;
15
b94fb84 Remove special casing of Microsoft Windows in system test.
GlitchMr authored
16 $res = run($*EXECUTABLE_NAME,'-e1');
0de784b [t] clean up various calls to try, system, etc
lwall authored
17 ok($res,"run() to an existing program does not die (and returns something true)");
66b1616 Moved system() test script under t/spec/S29-os/
cosimo authored
18
0de784b [t] clean up various calls to try, system, etc
lwall authored
19 $res = run("program_that_does_not_exist_ignore_this_error_please.exe");
20 ok(!$res, "run() to a nonexisting program does not die (and returns something false)");
66b1616 Moved system() test script under t/spec/S29-os/
cosimo authored
21
0de784b [t] clean up various calls to try, system, etc
lwall authored
22 $res = run("program_that_does_not_exist_ignore_errors_please.exe","a","b");
23 ok(!$res, "run() to a nonexisting program with an argument list does not die (and returns something false)");
7f29bc5 [t/spec] Add vim: lines everywhere.
kyle authored
24
25 # vim: ft=perl6
Something went wrong with that request. Please try again.