# bison says 'parse error' instead of 'syntax error',
# various yaccs may or may not capitalize 'syntax'.
$results =~ s/^(syntax|parse) error/syntax error/mig;
+ $results =~ s/\n\n/\n/ if $^O eq 'VMS'; # pipes double these sometimes
$expected =~ s/\n+$//;
if ( $results ne $expected ) {
print STDERR "PROG: $switch\n$prog\n";
EXPECT
ok
########
-my @l = qw(hello.* world);
-my $x;
-
-foreach $x (@l) {
- print "before - $x\n";
- $x = "\Q$x\E";
- print "quotemeta - $x\n";
- $x = "\u$x";
- print "ucfirst - $x\n";
- $x = "\l$x";
- print "lcfirst - $x\n";
- $x = "\U$x\E";
- print "uc - $x\n";
- $x = "\L$x\E";
- print "lc - $x\n";
-}
+# moved to op/lc.t
EXPECT
-before - hello.*
-quotemeta - hello\.\*
-ucfirst - Hello\.\*
-lcfirst - hello\.\*
-uc - HELLO\.\*
-lc - hello\.\*
-before - world
-quotemeta - world
-ucfirst - World
-lcfirst - world
-uc - WORLD
-lc - world
########
sub f { my $a = 1; my $b = 2; my $c = 3; my $d = 4; next }
my $x = "foo";
EXPECT
Bar=ARRAY(0x...)
########
+# 20010407.008 sprintf removes utf8-ness
+$a = sprintf "\x{1234}";
+printf "%x %d\n", unpack("U*", $a), length($a);
+$a = sprintf "%s", "\x{5678}";
+printf "%x %d\n", unpack("U*", $a), length($a);
+$a = sprintf "\x{1234}%s", "\x{5678}";
+printf "%x %x %d\n", unpack("U*", $a), length($a);
+EXPECT
+1234 1
+5678 1
+1234 5678 2
+########
+# keep this last - doesn't seem to work otherwise?
eval "a.b.c.d.e.f;sub"
EXPECT