This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add testsuite portion of patch
authorIlya Zakharevich <ilya@math.berkeley.edu>
Thu, 29 Oct 1998 23:20:01 +0000 (18:20 -0500)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 30 Oct 1998 21:40:09 +0000 (21:40 +0000)
Message-Id: <199810300420.XAA25651@monk.mps.ohio-state.edu>
Subject: [PATCH 5.00321 ;-)] 87% speedup

p4raw-id: //depot/perl@2153

MANIFEST
t/op/lex_assign.t [new file with mode: 0755]

index c40608e..5c60c2a 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1083,6 +1083,7 @@ t/op/inc.t                See if inc/dec of integers near 32 bit limit work
 t/op/index.t           See if index works
 t/op/int.t             See if int works
 t/op/join.t            See if join works
+t/op/lex_assign.t      See if ops involving lexicals or pad temps work
 t/op/list.t            See if array lists work
 t/op/local.t           See if local works
 t/op/magic.t           See if magic variables work
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
new file mode 100755 (executable)
index 0000000..d35f39c
--- /dev/null
@@ -0,0 +1,214 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+umask 0;
+$xref = \ "";
+@a = (1..5);
+%h = (1..6);
+$aref = \@a;
+$href = \%h;
+open OP, qq{$^X -le 'print "aaa Ok ok" while \$i++ < 100'|};
+$chopit = 'aaaaaa';
+@chopar = (113 .. 119);
+$posstr = '123456';
+$cstr = 'aBcD.eF';
+pos $posstr = 3;
+$nn = $n = 2;
+sub subb {"in s"}
+
+@INPUT = <DATA>;
+print "1..", (scalar @INPUT), "\n";
+$ord = 0;
+
+sub wrn {"@_"}
+
+for (@INPUT) {
+  $ord++;
+  ($op, undef, $comment) = /^([^\#]+)(\#\s+(.*))?/;
+  $comment = $op unless defined $comment;
+  $op = "$op==$op" unless $op =~ /==/;
+  ($op, $expectop) = $op =~ /(.*)==(.*)/;
+  
+  $skip = ($op =~ /^'\?\?\?'/) ? "skip" : "not";
+  $integer = ($comment =~ /^i_/) ? "use integer" : '' ;
+  (print "#skipping $comment:\nok $ord\n"), next if $skip eq 'skip';
+  
+  eval <<EOE;
+  local \$SIG{__WARN__} = \\&wrn;
+  my \$a = 'fake';
+  $integer;
+  \$a = $op;
+  \$b = $expectop;
+  if (\$a ne \$b) {
+    print "# \$comment: got `\$a', expected `\$b'\n";
+    print "\$skip " if \$a ne \$b or \$skip eq 'skip';
+  }
+  print "ok \$ord\\n";
+EOE
+  if ($@) {
+    if ($@ =~ /is unimplemented/) {
+      print "# skipping $comment: unimplemented:\nok $ord\n";
+    } else {
+      warn $@;
+      print "not ok $ord\n";
+    }
+  }
+}
+__END__
+ref $xref                      # ref
+ref $cstr                      # ref nonref
+`ls`                           # backtick
+`$undefed`                     # backtick undef
+<*>                            # glob
+<OP>                           # readline
+'faked'                                # rcatline
+(@z = (1 .. 3))                        # aassign
+chop $chopit                   # chop
+(chop (@x=@chopar))            # schop
+chomp $chopit                  # chomp
+(chop (@x=@chopar))            # schomp
+pos $posstr                    # pos
+pos $chopit                    # pos returns undef
+$nn++==2                       # postinc
+$nn++==3                       # i_postinc
+$nn--==4                       # postdec
+$nn--==3                       # i_postdec
+$n ** $n                       # pow
+$n * $n                                # multiply
+$n * $n                                # i_multiply
+$n / $n                                # divide
+$n / $n                                # i_divide
+$n % $n                                # modulo
+$n % $n                                # i_modulo
+$n x $n                                # repeat
+$n + $n                                # add
+$n + $n                                # i_add
+$n - $n                                # subtract
+$n - $n                                # i_subtract
+$n . $n                                # concat
+$n . $a=='2fake'               # concat with self
+"3$a"=='3fake'                 # concat with self in stringify
+"$n"                           # stringify
+$n << $n                       # left_shift
+$n >> $n                       # right_shift
+$n <=> $n                      # ncmp
+$n <=> $n                      # i_ncmp
+$n cmp $n                      # scmp
+$n & $n                                # bit_and
+$n ^ $n                                # bit_xor
+$n | $n                                # bit_or
+-$n                            # negate
+-$n                            # i_negate
+~$n                            # complement
+atan2 $n,$n                    # atan2
+sin $n                         # sin
+cos $n                         # cos
+'???'                          # rand
+exp $n                         # exp
+log $n                         # log
+sqrt $n                                # sqrt
+int $n                         # int
+hex $n                         # hex
+oct $n                         # oct
+abs $n                         # abs
+length $posstr                 # length
+substr $posstr, 2, 2           # substr
+vec("abc",2,8)                 # vec
+index $posstr, 2               # index
+rindex $posstr, 2              # rindex
+sprintf "%i%i", $n, $n         # sprintf
+ord $n                         # ord
+chr $n                         # chr
+crypt $n, $n                   # crypt
+ucfirst ($cstr . "a")          # ucfirst padtmp
+ucfirst $cstr                  # ucfirst
+lcfirst $cstr                  # lcfirst
+uc $cstr                       # uc
+lc $cstr                       # lc
+quotemeta $cstr                        # quotemeta
+@$aref                         # rv2av
+@$undefed                      # rv2av undef
+each %h==1                     # each
+values %h                      # values
+keys %h                                # keys
+%$href                         # rv2hv
+pack "C2", $n,$n               # pack
+split /a/, "abad"              # split
+join "a"; @a                   # join
+push @a,3==6                   # push
+unshift @aaa                   # unshift
+reverse        @a                      # reverse
+reverse        $cstr                   # reverse - scal
+grep $_, 1,0,2,0,3             # grepwhile
+map "x$_", 1,0,2,0,3           # mapwhile
+subb()                         # entersub
+caller                         # caller
+warn "ignore this\n"           # warn
+'faked'                                # die
+open BLAH, "<non-existent"     # open
+fileno STDERR                  # fileno
+umask 0                                # umask
+select STDOUT                  # sselect
+select "","","",0              # select
+getc OP                                # getc
+'???'                          # read
+'???'                          # sysread
+'???'                          # syswrite
+'???'                          # send
+'???'                          # recv
+'???'                          # tell
+'???'                          # fcntl
+'???'                          # ioctl
+'???'                          # flock
+'???'                          # accept
+'???'                          # shutdown
+'???'                          # ftsize
+'???'                          # ftmtime
+'???'                          # ftatime
+'???'                          # ftctime
+chdir 'non-existent'           # chdir
+'???'                          # chown
+'???'                          # chroot
+unlink 'non-existent'          # unlink
+chmod 'non-existent'           # chmod
+utime 'non-existent'           # utime
+rename 'non-existent', 'non-existent1' # rename
+link 'non-existent', 'non-existent1' # link
+symlink 'non-existent', 'non-existent1' # symlink
+readlink 'non-existent', 'non-existent1' # readlink
+'???'                          # mkdir
+'???'                          # rmdir
+'???'                          # telldir
+'???'                          # fork
+'???'                          # wait
+'???'                          # waitpid
+system 'sh -c true'            # system
+'???'                          # exec
+kill 0, $$                     # kill
+getppid                                # getppid
+getpgrp                                # getpgrp
+'???'                          # setpgrp
+getpriority $$, $$             # getpriority
+'???'                          # setpriority
+time                           # time
+localtime                      # localtime
+gmtime                         # gmtime
+sleep 1                                # sleep
+'???'                          # alarm
+'???'                          # shmget
+'???'                          # shmctl
+'???'                          # shmread
+'???'                          # shmwrite
+'???'                          # msgget
+'???'                          # msgctl
+'???'                          # msgsnd
+'???'                          # msgrcv
+'???'                          # semget
+'???'                          # semctl
+'???'                          # semop
+'???'                          # getlogin
+'???'                          # syscall