|
Revision 24767, 364 bytes
(checked in by moritz, 5 days ago)
|
|
[t] and [t/spec]
- more tests for slurpy args + is copy/is rw
- moved macro test to spec/
- moved closure trait tests to spec/
- add tests for hygienic macros
- remove some is($something, undef) instances, ack++
- moved most tests from examples/99problems to spec/integration/99problems*
and merged ten each into one file; solved problems 55, 57, 59.
- moved lexical_subs.t to spec/
- more tests for Unicode string lengths
- merge most of map_*.t into map.t
- moved a regex test to spec/, deleted a mostly wrong/pointless regex test
- moved oo construction and destruction tests to spec/
- moved all tests in oo/roles/ and oo/traits/ to spec/
- fudged pointy.t for rakudo
|
-
Property svn:mime-type set to
text/plain; charset=UTF-8
-
Property svn:eol-style set to
native
|
| Line | |
|---|
| 1 | use v6; |
|---|
| 2 | |
|---|
| 3 | use Test; |
|---|
| 4 | |
|---|
| 5 | plan 3; |
|---|
| 6 | |
|---|
| 7 | if $*OS eq "browser" { |
|---|
| 8 | skip_rest "Programs running in browsers don't have access to regular IO."; |
|---|
| 9 | exit; |
|---|
| 10 | } |
|---|
| 11 | |
|---|
| 12 | my $pwd = $*CWD; |
|---|
| 13 | ok( grep { $_ eq 'LICENSE' }, readdir $*CWD ); |
|---|
| 14 | $*CWD = $*CWD ~ '/t/unspecced'; |
|---|
| 15 | ok( grep { $_ eq 'cwd.t' }, readdir $*CWD ); |
|---|
| 16 | ok( ($*CWD = 'I/do/not/exist') ~~ undef, "error handling" , :todo); |
|---|
| 17 | $*CWD = $pwd; |
|---|
