Browse files

[t] deduping, \c[1,2,3] tests

[p6-proj] make p6-proj link to pdf instead of svg
[STD] improvements to enum parsing/faking


git-svn-id: http://svn.pugscode.org/pugs@26615 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 3f0f09f commit c4f04edd98f9d8ef7cc8765223baf3af4c7949a5 lwall committed May 2, 2009
Showing with 8 additions and 8 deletions.
  1. +3 −3 S04-declarations/my.t
  2. +5 −5 S32-str/pack.t
View
6 S04-declarations/my.t
@@ -164,10 +164,10 @@ is(eval('loop (my $x = 1, my $y = 2; $x > 0; $x--) { last }; $y'), 2, '2nd my in
is($f, 5, "two lexicals declared in scope is noop");
}
-my $x = 42;
+my $z = 42;
{
- my $x = $x;
- ok( $x ~~ undef, 'my $x = $x; can not see the value of the outer $x');
+ my $z = $z;
+ ok( $z ~~ undef, 'my $z = $z; can not see the value of the outer $z');
}
# interaction of my and eval
View
10 S32-str/pack.t
@@ -14,17 +14,17 @@ is(unpack("I",pack("I", 0xFFFFFFFF)), 0xFFFFFFFF );
# Testing @!
is(pack('a* @3', "abcde"), "abc", 'Test basic @');
is(pack('a* @!3', "abcde"), "abc", 'Test basic @!');
- is(pack('a* @2', "\x{301}\x{302}\x{303}\x{304}\x{305}"), "\x{301}\x{302}",
+ is(pack('a* @2', "\x[301,302,303,304,305]"), "\x[301,302]",
'Test basic utf8 @');
- is(pack('a* @!2', "\x{301}\x{302}\x{303}\x{304}\x{305}"), "\x{301}",
+ is(pack('a* @!2', "\x[301,302,303,304,305]"), "\x[301]",
'Test basic utf8 @!');
is(unpack('@4 a*', "abcde"), "e", 'Test basic @');
is(unpack('@!4 a*', "abcde"), "e", 'Test basic @!');
- is(unpack('@4 a*', "\x{301}\x{302}\x{303}\x{304}\x{305}"), "\x{305}",
+ is(unpack('@4 a*', "\x[301,302,303,304,305]"), "\x[305]",
'Test basic utf8 @');
- is(unpack('@!4 a*', "\x{301}\x{302}\x{303}\x{304}\x{305}"),
- "\x{303}\x{304}\x{305}", 'Test basic utf8 @!');
+ is(unpack('@!4 a*', "\x[301,302,303,304,305]"),
+ "\x[303,304,305]", 'Test basic utf8 @!');
}

0 comments on commit c4f04ed

Please sign in to comment.