Skip to content
Newer
Older
100644 18 lines (11 sloc) 307 Bytes
2a2c373 @moritz include path fixes
moritz authored May 12, 2012
1 use lib '.';
f73fd24 @jnthn First new test using new testing infrastructure. Passes.
authored Jan 13, 2012
2 use t::CompileTestLib;
3 use NativeCall;
4
bc26b5e @arnsholt Clean up pull request. As discussed on #perl6.
arnsholt authored Aug 7, 2012
5 say "1..3";
f73fd24 @jnthn First new test using new testing infrastructure. Passes.
authored Jan 13, 2012
6
7 compile_test_lib('01-argless');
8
2152160 @tadzik Fix tests on linux
tadzik authored Apr 26, 2012
9 sub Argless() is native('./01-argless') { * }
bc26b5e @arnsholt Clean up pull request. As discussed on #perl6.
arnsholt authored Aug 7, 2012
10 sub short() is native('./01-argless') is symbol('long_and_complicated_name') { *}
f73fd24 @jnthn First new test using new testing infrastructure. Passes.
authored Jan 13, 2012
11
12 # This emits the "ok 1"
13 Argless();
14
15 say("ok 2 - survived the call");
bc26b5e @arnsholt Clean up pull request. As discussed on #perl6.
arnsholt authored Aug 7, 2012
16
17 short();
Something went wrong with that request. Please try again.