Permalink
Browse files

more buglets

git-svn-id: http://svn.pugscode.org/pugs@21472 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent b422d70 commit 36041003dac6bfa169a54fa808b91db508164bf3 lwall committed Jul 24, 2008
Showing with 7 additions and 4 deletions.
  1. +1 −1 S02-names_and_variables/perl.t
  2. +3 −1 S12-methods/what.t
  3. +1 −1 S29-container/cat.t
  4. +2 −1 S29-scalar/undef.t
@@ -14,7 +14,7 @@ my @tests = (
"a string", "", "\0", "\t", "\n", "\r\n", "\o7",
#?rakudo emit # { is not escaped in '{'.perl
- '{', "\d123",
+ '{', # "\d123", # XXX there is no \d escape!!!
'}',
#?rakudo emit # sigils are not escaped in .perl
'$a @string %with &sigils()',
View
@@ -2,11 +2,13 @@ use v6;
use Test;
+=begin pod
+
=head1 DESCRIPTION
This test tests the C<WHAT> builtin.
-=cut
+=end pod
# L<S12/Introspection/"WHAT">
View
@@ -28,5 +28,5 @@ ok(cat([1..3]) eqv 1..3, 'cat array identity');
ok(cat({'a'=>1,'b'=>2,'c'=>3}) eqv ('a'=>1, 'b'=>2, 'c'=>3),
'cat hash identity');
-ok(cat((); 1; 2..4; [5..7], {'a'=>1,'b'=>2}) eqv (1..7, 'a'=>1, 'b'=>2)
+ok(cat((); 1; 2..4; [5..7], {'a'=>1,'b'=>2}) eqv (1..7, 'a'=>1, 'b'=>2),
'basic cat');
View
@@ -250,7 +250,8 @@ else {
#ok(!defined($<matches><a>) && !defined($<matches><b>), "match values don't");
#?pugs todo 'unimpl'
- ok(0 , "match values don't")
+ ok(0 , "match values don't");
+
{
# - $0, $1 etc. should all be undef after a failed match
# (except for special circumstances)

0 comments on commit 3604100

Please sign in to comment.