[p5sagit/p5-mst-13.2.git] / ext / B / t / optree_samples.t

#!perl

BEGIN {
    chdir 't';
    @INC = ('../lib', '../ext/B/t');
    require './test.pl';
}
use OptreeCheck;
use Config;
plan tests	=> 20;
SKIP: {
    skip "no perlio in this build", 20 unless $Config::Config{useperlio};

pass("GENERAL OPTREE EXAMPLES");

pass("IF,THEN,ELSE, ?:");

checkOptree ( name	=> '-basic sub {if shift print then,else}',
	      bcopts	=> '-basic',
	      code	=> sub { if (shift) { print "then" }
				 else       { print "else" }
			     },
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 9  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->9
# 1        <;> nextstate(main 426 optree.t:16) v ->2
# -        <1> null K/1 ->-
# 5           <|> cond_expr(other->6) K/1 ->a
# 4              <1> shift sK/1 ->5
# 3                 <1> rv2av[t2] sKRM/1 ->4
# 2                    <#> gv[*_] s ->3
# -              <@> scope K ->-
# -                 <0> ex-nextstate v ->6
# 8                 <@> print sK ->9
# 6                    <0> pushmark s ->7
# 7                    <$> const[PV "then"] s ->8
# f              <@> leave KP ->9
# a                 <0> enter ->b
# b                 <;> nextstate(main 424 optree.t:17) v ->c
# e                 <@> print sK ->f
# c                    <0> pushmark s ->d
# d                    <$> const[PV "else"] s ->e
EOT_EOT
# 9  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->9
# 1        <;> nextstate(main 427 optree_samples.t:18) v ->2
# -        <1> null K/1 ->-
# 5           <|> cond_expr(other->6) K/1 ->a
# 4              <1> shift sK/1 ->5
# 3                 <1> rv2av[t1] sKRM/1 ->4
# 2                    <$> gv(*_) s ->3
# -              <@> scope K ->-
# -                 <0> ex-nextstate v ->6
# 8                 <@> print sK ->9
# 6                    <0> pushmark s ->7
# 7                    <$> const(PV "then") s ->8
# f              <@> leave KP ->9
# a                 <0> enter ->b
# b                 <;> nextstate(main 425 optree_samples.t:19) v ->c
# e                 <@> print sK ->f
# c                    <0> pushmark s ->d
# d                    <$> const(PV "else") s ->e
EONT_EONT

checkOptree ( name	=> '-basic (see above, with my $a = shift)',
	      bcopts	=> '-basic',
	      code	=> sub { my $a = shift;
				 if ($a) { print "foo" }
				 else    { print "bar" }
			     },
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# d  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->d
# 1        <;> nextstate(main 431 optree.t:68) v ->2
# 6        <2> sassign vKS/2 ->7
# 4           <1> shift sK/1 ->5
# 3              <1> rv2av[t3] sKRM/1 ->4
# 2                 <#> gv[*_] s ->3
# 5           <0> padsv[$a:431,435] sRM*/LVINTRO ->6
# 7        <;> nextstate(main 435 optree.t:69) v ->8
# -        <1> null K/1 ->-
# 9           <|> cond_expr(other->a) K/1 ->e
# 8              <0> padsv[$a:431,435] s ->9
# -              <@> scope K ->-
# -                 <0> ex-nextstate v ->a
# c                 <@> print sK ->d
# a                    <0> pushmark s ->b
# b                    <$> const[PV "foo"] s ->c
# j              <@> leave KP ->d
# e                 <0> enter ->f
# f                 <;> nextstate(main 433 optree.t:70) v ->g
# i                 <@> print sK ->j
# g                    <0> pushmark s ->h
# h                    <$> const[PV "bar"] s ->i
EOT_EOT
# d  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->d
# 1        <;> nextstate(main 428 optree_samples.t:48) v ->2
# 6        <2> sassign vKS/2 ->7
# 4           <1> shift sK/1 ->5
# 3              <1> rv2av[t2] sKRM/1 ->4
# 2                 <$> gv(*_) s ->3
# 5           <0> padsv[$a:428,432] sRM*/LVINTRO ->6
# 7        <;> nextstate(main 432 optree_samples.t:49) v ->8
# -        <1> null K/1 ->-
# 9           <|> cond_expr(other->a) K/1 ->e
# 8              <0> padsv[$a:428,432] s ->9
# -              <@> scope K ->-
# -                 <0> ex-nextstate v ->a
# c                 <@> print sK ->d
# a                    <0> pushmark s ->b
# b                    <$> const(PV "foo") s ->c
# j              <@> leave KP ->d
# e                 <0> enter ->f
# f                 <;> nextstate(main 430 optree_samples.t:50) v ->g
# i                 <@> print sK ->j
# g                    <0> pushmark s ->h
# h                    <$> const(PV "bar") s ->i
EONT_EONT

checkOptree ( name	=> '-exec sub {if shift print then,else}',
	      bcopts	=> '-exec',
	      code	=> sub { if (shift) { print "then" }
				 else       { print "else" }
			     },
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 426 optree.t:16) v
# 2  <#> gv[*_] s
# 3  <1> rv2av[t2] sKRM/1
# 4  <1> shift sK/1
# 5  <|> cond_expr(other->6) K/1
# 6      <0> pushmark s
# 7      <$> const[PV "then"] s
# 8      <@> print sK
#            goto 9
# a  <0> enter 
# b  <;> nextstate(main 424 optree.t:17) v
# c  <0> pushmark s
# d  <$> const[PV "else"] s
# e  <@> print sK
# f  <@> leave KP
# 9  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 436 optree_samples.t:123) v
# 2  <$> gv(*_) s
# 3  <1> rv2av[t1] sKRM/1
# 4  <1> shift sK/1
# 5  <|> cond_expr(other->6) K/1
# 6      <0> pushmark s
# 7      <$> const(PV "then") s
# 8      <@> print sK
#            goto 9
# a  <0> enter 
# b  <;> nextstate(main 434 optree_samples.t:124) v
# c  <0> pushmark s
# d  <$> const(PV "else") s
# e  <@> print sK
# f  <@> leave KP
# 9  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

checkOptree ( name	=> '-exec (see above, with my $a = shift)',
	      bcopts	=> '-exec',
	      code	=> sub { my $a = shift;
				 if ($a) { print "foo" }
				 else    { print "bar" }
			     },
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 423 optree.t:16) v
# 2  <#> gv[*_] s
# 3  <1> rv2av[t3] sKRM/1
# 4  <1> shift sK/1
# 5  <0> padsv[$a:423,427] sRM*/LVINTRO
# 6  <2> sassign vKS/2
# 7  <;> nextstate(main 427 optree.t:17) v
# 8  <0> padsv[$a:423,427] s
# 9  <|> cond_expr(other->a) K/1
# a      <0> pushmark s
# b      <$> const[PV "foo"] s
# c      <@> print sK
#            goto d
# e  <0> enter 
# f  <;> nextstate(main 425 optree.t:18) v
# g  <0> pushmark s
# h  <$> const[PV "bar"] s
# i  <@> print sK
# j  <@> leave KP
# d  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 437 optree_samples.t:112) v
# 2  <$> gv(*_) s
# 3  <1> rv2av[t2] sKRM/1
# 4  <1> shift sK/1
# 5  <0> padsv[$a:437,441] sRM*/LVINTRO
# 6  <2> sassign vKS/2
# 7  <;> nextstate(main 441 optree_samples.t:113) v
# 8  <0> padsv[$a:437,441] s
# 9  <|> cond_expr(other->a) K/1
# a      <0> pushmark s
# b      <$> const(PV "foo") s
# c      <@> print sK
#            goto d
# e  <0> enter 
# f  <;> nextstate(main 439 optree_samples.t:114) v
# g  <0> pushmark s
# h  <$> const(PV "bar") s
# i  <@> print sK
# j  <@> leave KP
# d  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

checkOptree ( name	=> '-exec sub { print (shift) ? "foo" : "bar" }',
	      code	=> sub { print (shift) ? "foo" : "bar" },
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 428 optree.t:31) v
# 2  <0> pushmark s
# 3  <#> gv[*_] s
# 4  <1> rv2av[t2] sKRM/1
# 5  <1> shift sK/1
# 6  <@> print sK
# 7  <|> cond_expr(other->8) K/1
# 8      <$> const[PV "foo"] s
#            goto 9
# a  <$> const[PV "bar"] s
# 9  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 442 optree_samples.t:144) v
# 2  <0> pushmark s
# 3  <$> gv(*_) s
# 4  <1> rv2av[t1] sKRM/1
# 5  <1> shift sK/1
# 6  <@> print sK
# 7  <|> cond_expr(other->8) K/1
# 8      <$> const(PV "foo") s
#            goto 9
# a  <$> const(PV "bar") s
# 9  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

pass ("FOREACH");

checkOptree ( name	=> '-exec sub { foreach (1..10) {print "foo $_"} }',
	      code	=> sub { foreach (1..10) {print "foo $_"} },
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 443 optree.t:158) v
# 2  <0> pushmark s
# 3  <$> const[IV 1] s
# 4  <$> const[IV 10] s
# 5  <#> gv[*_] s
# 6  <{> enteriter(next->d last->g redo->7) lKS
# e  <0> iter s
# f  <|> and(other->7) K/1
# 7      <;> nextstate(main 442 optree.t:158) v
# 8      <0> pushmark s
# 9      <$> const[PV "foo "] s
# a      <#> gvsv[*_] s
# b      <2> concat[t4] sK/2
# c      <@> print vK
# d      <0> unstack s
#            goto e
# g  <2> leaveloop K/2
# h  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 444 optree_samples.t:182) v
# 2  <0> pushmark s
# 3  <$> const(IV 1) s
# 4  <$> const(IV 10) s
# 5  <$> gv(*_) s
# 6  <{> enteriter(next->d last->g redo->7) lKS
# e  <0> iter s
# f  <|> and(other->7) K/1
# 7      <;> nextstate(main 443 optree_samples.t:182) v
# 8      <0> pushmark s
# 9      <$> const(PV "foo ") s
# a      <$> gvsv(*_) s
# b      <2> concat[t3] sK/2
# c      <@> print vK
# d      <0> unstack s
#            goto e
# g  <2> leaveloop K/2
# h  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

checkOptree ( name	=> '-basic sub { print "foo $_" foreach (1..10) }',
	      code	=> sub { print "foo $_" foreach (1..10) }, 
	      bcopts	=> '-basic',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# h  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->h
# 1        <;> nextstate(main 445 optree.t:167) v ->2
# 2        <;> nextstate(main 445 optree.t:167) v ->3
# g        <2> leaveloop K/2 ->h
# 7           <{> enteriter(next->d last->g redo->8) lKS ->e
# -              <0> ex-pushmark s ->3
# -              <1> ex-list lK ->6
# 3                 <0> pushmark s ->4
# 4                 <$> const[IV 1] s ->5
# 5                 <$> const[IV 10] s ->6
# 6              <#> gv[*_] s ->7
# -           <1> null K/1 ->g
# f              <|> and(other->8) K/1 ->g
# e                 <0> iter s ->f
# -                 <@> lineseq sK ->-
# c                    <@> print vK ->d
# 8                       <0> pushmark s ->9
# -                       <1> ex-stringify sK/1 ->c
# -                          <0> ex-pushmark s ->9
# b                          <2> concat[t2] sK/2 ->c
# 9                             <$> const[PV "foo "] s ->a
# -                             <1> ex-rv2sv sK/1 ->b
# a                                <#> gvsv[*_] s ->b
# d                    <0> unstack s ->e
EOT_EOT
# h  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->h
# 1        <;> nextstate(main 446 optree_samples.t:192) v ->2
# 2        <;> nextstate(main 446 optree_samples.t:192) v ->3
# g        <2> leaveloop K/2 ->h
# 7           <{> enteriter(next->d last->g redo->8) lKS ->e
# -              <0> ex-pushmark s ->3
# -              <1> ex-list lK ->6
# 3                 <0> pushmark s ->4
# 4                 <$> const(IV 1) s ->5
# 5                 <$> const(IV 10) s ->6
# 6              <$> gv(*_) s ->7
# -           <1> null K/1 ->g
# f              <|> and(other->8) K/1 ->g
# e                 <0> iter s ->f
# -                 <@> lineseq sK ->-
# c                    <@> print vK ->d
# 8                       <0> pushmark s ->9
# -                       <1> ex-stringify sK/1 ->c
# -                          <0> ex-pushmark s ->9
# b                          <2> concat[t1] sK/2 ->c
# 9                             <$> const(PV "foo ") s ->a
# -                             <1> ex-rv2sv sK/1 ->b
# a                                <$> gvsv(*_) s ->b
# d                    <0> unstack s ->e
EONT_EONT

checkOptree ( name	=> '-exec -e foreach (1..10) {print qq{foo $_}}',
	      prog	=> 'foreach (1..10) {print qq{foo $_}}',
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <0> enter 
# 2  <;> nextstate(main 2 -e:1) v
# 3  <0> pushmark s
# 4  <$> const[IV 1] s
# 5  <$> const[IV 10] s
# 6  <#> gv[*_] s
# 7  <{> enteriter(next->e last->h redo->8) lKS
# f  <0> iter s
# g  <|> and(other->8) vK/1
# 8      <;> nextstate(main 1 -e:1) v
# 9      <0> pushmark s
# a      <$> const[PV "foo "] s
# b      <#> gvsv[*_] s
# c      <2> concat[t4] sK/2
# d      <@> print vK
# e      <0> unstack v
#            goto f
# h  <2> leaveloop vK/2
# i  <@> leave[1 ref] vKP/REFC
EOT_EOT
# 1  <0> enter 
# 2  <;> nextstate(main 2 -e:1) v
# 3  <0> pushmark s
# 4  <$> const(IV 1) s
# 5  <$> const(IV 10) s
# 6  <$> gv(*_) s
# 7  <{> enteriter(next->e last->h redo->8) lKS
# f  <0> iter s
# g  <|> and(other->8) vK/1
# 8      <;> nextstate(main 1 -e:1) v
# 9      <0> pushmark s
# a      <$> const(PV "foo ") s
# b      <$> gvsv(*_) s
# c      <2> concat[t3] sK/2
# d      <@> print vK
# e      <0> unstack v
#            goto f
# h  <2> leaveloop vK/2
# i  <@> leave[1 ref] vKP/REFC
EONT_EONT

checkOptree ( name	=> '-exec sub { print "foo $_" foreach (1..10) }',
	      code	=> sub { print "foo $_" foreach (1..10) }, 
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 445 optree.t:167) v
# 2  <;> nextstate(main 445 optree.t:167) v
# 3  <0> pushmark s
# 4  <$> const[IV 1] s
# 5  <$> const[IV 10] s
# 6  <#> gv[*_] s
# 7  <{> enteriter(next->d last->g redo->8) lKS
# e  <0> iter s
# f  <|> and(other->8) K/1
# 8      <0> pushmark s
# 9      <$> const[PV "foo "] s
# a      <#> gvsv[*_] s
# b      <2> concat[t2] sK/2
# c      <@> print vK
# d      <0> unstack s
#            goto e
# g  <2> leaveloop K/2
# h  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 447 optree_samples.t:252) v
# 2  <;> nextstate(main 447 optree_samples.t:252) v
# 3  <0> pushmark s
# 4  <$> const(IV 1) s
# 5  <$> const(IV 10) s
# 6  <$> gv(*_) s
# 7  <{> enteriter(next->d last->g redo->8) lKS
# e  <0> iter s
# f  <|> and(other->8) K/1
# 8      <0> pushmark s
# 9      <$> const(PV "foo ") s
# a      <$> gvsv(*_) s
# b      <2> concat[t1] sK/2
# c      <@> print vK
# d      <0> unstack s
#            goto e
# g  <2> leaveloop K/2
# h  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

pass("GREP: SAMPLES FROM PERLDOC -F GREP");

checkOptree ( name	=> '@foo = grep(!/^\#/, @bar)',
	      code	=> '@foo = grep(!/^\#/, @bar)',
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 496 (eval 20):1) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <#> gv[*bar] s
# 5  <1> rv2av[t4] lKM/1
# 6  <@> grepstart lK
# 7  <|> grepwhile(other->8)[t5] lK
# 8      </> match(/"^#"/) s/RTIME
# 9      <1> not sK/1
#            goto 7
# a  <0> pushmark s
# b  <#> gv[*foo] s
# c  <1> rv2av[t2] lKRM*/1
# d  <2> aassign[t6] KS/COMMON
# e  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 496 (eval 20):1) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <$> gv(*bar) s
# 5  <1> rv2av[t2] lKM/1
# 6  <@> grepstart lK
# 7  <|> grepwhile(other->8)[t3] lK
# 8      </> match(/"^\\#"/) s/RTIME
# 9      <1> not sK/1
#            goto 7
# a  <0> pushmark s
# b  <$> gv(*foo) s
# c  <1> rv2av[t1] lKRM*/1
# d  <2> aassign[t4] KS/COMMON
# e  <1> leavesub[1 ref] K/REFC,1
EONT_EONT


pass("MAP: SAMPLES FROM PERLDOC -F MAP");

checkOptree ( name	=> '%h = map { getkey($_) => $_ } @a',
	      code	=> '%h = map { getkey($_) => $_ } @a',
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 501 (eval 22):1) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <#> gv[*a] s
# 5  <1> rv2av[t8] lKM/1
# 6  <@> mapstart lK*
# 7  <|> mapwhile(other->8)[t9] lK
# 8      <0> enter l
# 9      <;> nextstate(main 500 (eval 22):1) v
# a      <0> pushmark s
# b      <0> pushmark s
# c      <#> gvsv[*_] s
# d      <#> gv[*getkey] s/EARLYCV
# e      <1> entersub[t5] lKS/TARG,1
# f      <#> gvsv[*_] s
# g      <@> list lK
# h      <@> leave lKP
#            goto 7
# i  <0> pushmark s
# j  <#> gv[*h] s
# k  <1> rv2hv[t2] lKRM*/1
# l  <2> aassign[t10] KS/COMMON
# m  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 501 (eval 22):1) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <$> gv(*a) s
# 5  <1> rv2av[t3] lKM/1
# 6  <@> mapstart lK*
# 7  <|> mapwhile(other->8)[t4] lK
# 8      <0> enter l
# 9      <;> nextstate(main 500 (eval 22):1) v
# a      <0> pushmark s
# b      <0> pushmark s
# c      <$> gvsv(*_) s
# d      <$> gv(*getkey) s/EARLYCV
# e      <1> entersub[t2] lKS/TARG,1
# f      <$> gvsv(*_) s
# g      <@> list lK
# h      <@> leave lKP
#            goto 7
# i  <0> pushmark s
# j  <$> gv(*h) s
# k  <1> rv2hv[t1] lKRM*/1
# l  <2> aassign[t5] KS/COMMON
# m  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

checkOptree ( name	=> '%h=(); for $_(@a){$h{getkey($_)} = $_}',
	      code	=> '%h=(); for $_(@a){$h{getkey($_)} = $_}',
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 505 (eval 24):1) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <#> gv[*h] s
# 5  <1> rv2hv[t2] lKRM*/1
# 6  <2> aassign[t3] vKS
# 7  <;> nextstate(main 506 (eval 24):1) v
# 8  <0> pushmark sM
# 9  <#> gv[*a] s
# a  <1> rv2av[t6] sKRM/1
# b  <#> gv[*_] s
# c  <1> rv2gv sKRM/1
# d  <{> enteriter(next->o last->r redo->e) lKS
# p  <0> iter s
# q  <|> and(other->e) K/1
# e      <;> nextstate(main 505 (eval 24):1) v
# f      <#> gvsv[*_] s
# g      <#> gv[*h] s
# h      <1> rv2hv sKR/1
# i      <0> pushmark s
# j      <#> gvsv[*_] s
# k      <#> gv[*getkey] s/EARLYCV
# l      <1> entersub[t10] sKS/TARG,1
# m      <2> helem sKRM*/2
# n      <2> sassign vKS/2
# o      <0> unstack s
#            goto p
# r  <2> leaveloop K/2
# s  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 505 (eval 24):1) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <$> gv(*h) s
# 5  <1> rv2hv[t1] lKRM*/1
# 6  <2> aassign[t2] vKS
# 7  <;> nextstate(main 506 (eval 24):1) v
# 8  <0> pushmark sM
# 9  <$> gv(*a) s
# a  <1> rv2av[t3] sKRM/1
# b  <$> gv(*_) s
# c  <1> rv2gv sKRM/1
# d  <{> enteriter(next->o last->r redo->e) lKS
# p  <0> iter s
# q  <|> and(other->e) K/1
# e      <;> nextstate(main 505 (eval 24):1) v
# f      <$> gvsv(*_) s
# g      <$> gv(*h) s
# h      <1> rv2hv sKR/1
# i      <0> pushmark s
# j      <$> gvsv(*_) s
# k      <$> gv(*getkey) s/EARLYCV
# l      <1> entersub[t4] sKS/TARG,1
# m      <2> helem sKRM*/2
# n      <2> sassign vKS/2
# o      <0> unstack s
#            goto p
# r  <2> leaveloop K/2
# s  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

checkOptree ( name	=> 'map $_+42, 10..20',
	      code	=> 'map $_+42, 10..20',
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <;> nextstate(main 497 (eval 20):1) v
# 2  <0> pushmark s
# 3  <$> const[AV ] s
# 4  <1> rv2av lKPM/1
# 5  <@> mapstart K
# 6  <|> mapwhile(other->7)[t7] K
# 7      <#> gvsv[*_] s
# 8      <$> const[IV 42] s
# 9      <2> add[t2] sK/2
#            goto 6
# a  <1> leavesub[1 ref] K/REFC,1
EOT_EOT
# 1  <;> nextstate(main 511 (eval 26):1) v
# 2  <0> pushmark s
# 3  <$> const(AV ) s
# 4  <1> rv2av lKPM/1
# 5  <@> mapstart K
# 6  <|> mapwhile(other->7)[t4] K
# 7      <$> gvsv(*_) s
# 8      <$> const(IV 42) s
# 9      <2> add[t1] sK/2
#            goto 6
# a  <1> leavesub[1 ref] K/REFC,1
EONT_EONT

pass("CONSTANTS");

checkOptree ( name	=> '-e use constant j => qq{junk}; print j',
	      prog	=> 'use constant j => qq{junk}; print j',
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
# 1  <0> enter 
# 2  <;> nextstate(main 71 -e:1) v
# 3  <0> pushmark s
# 4  <$> const[PV "junk"] s
# 5  <@> print vK
# 6  <@> leave[1 ref] vKP/REFC
EOT_EOT
# 1  <0> enter 
# 2  <;> nextstate(main 71 -e:1) v
# 3  <0> pushmark s
# 4  <$> const(PV "junk") s
# 5  <@> print vK
# 6  <@> leave[1 ref] vKP/REFC
EONT_EONT

} # skip

__END__

#######################################################################

checkOptree ( name	=> '-exec sub a { print (shift) ? "foo" : "bar" }',
	      code	=> sub { print (shift) ? "foo" : "bar" },
	      bcopts	=> '-exec',
	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
   insert threaded reference here
EOT_EOT
   insert non-threaded reference here
EONT_EONT
Commit	Line	Data
724aa791	1	#!perl
	2
	3	BEGIN {
	4	chdir 't';
	5	@INC = ('../lib', '../ext/B/t');
	6	require './test.pl';
	7	}
	8	use OptreeCheck;
2ce64696	9	use Config;
cc02ea56	10	plan tests => 20;
2ce64696	11	SKIP: {
cc02ea56	12	skip "no perlio in this build", 20 unless $Config::Config{useperlio};
724aa791	13
	14	pass("GENERAL OPTREE EXAMPLES");
	15
	16	pass("IF,THEN,ELSE, ?:");
	17
	18	checkOptree ( name => '-basic sub {if shift print then,else}',
	19	bcopts => '-basic',
	20	code => sub { if (shift) { print "then" }
	21	else { print "else" }
	22	},
	23	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
724aa791	24	# 9 <1> leavesub[1 ref] K/REFC,1 ->(end)
	25	# - <@> lineseq KP ->9
	26	# 1 <;> nextstate(main 426 optree.t:16) v ->2
	27	# - <1> null K/1 ->-
	28	# 5 <\|> cond_expr(other->6) K/1 ->a
	29	# 4 <1> shift sK/1 ->5
	30	# 3 <1> rv2av[t2] sKRM/1 ->4
	31	# 2 <#> gv[*_] s ->3
	32	# - <@> scope K ->-
	33	# - <0> ex-nextstate v ->6
	34	# 8 <@> print sK ->9
	35	# 6 <0> pushmark s ->7
	36	# 7 <$> const[PV "then"] s ->8
	37	# f <@> leave KP ->9
	38	# a <0> enter ->b
	39	# b <;> nextstate(main 424 optree.t:17) v ->c
	40	# e <@> print sK ->f
	41	# c <0> pushmark s ->d
	42	# d <$> const[PV "else"] s ->e
	43	EOT_EOT
	44	# 9 <1> leavesub[1 ref] K/REFC,1 ->(end)
	45	# - <@> lineseq KP ->9
	46	# 1 <;> nextstate(main 427 optree_samples.t:18) v ->2
	47	# - <1> null K/1 ->-
	48	# 5 <\|> cond_expr(other->6) K/1 ->a
	49	# 4 <1> shift sK/1 ->5
	50	# 3 <1> rv2av[t1] sKRM/1 ->4
	51	# 2 <$> gv(*_) s ->3
	52	# - <@> scope K ->-
	53	# - <0> ex-nextstate v ->6
	54	# 8 <@> print sK ->9
	55	# 6 <0> pushmark s ->7
	56	# 7 <$> const(PV "then") s ->8
	57	# f <@> leave KP ->9
	58	# a <0> enter ->b
	59	# b <;> nextstate(main 425 optree_samples.t:19) v ->c
	60	# e <@> print sK ->f
	61	# c <0> pushmark s ->d
	62	# d <$> const(PV "else") s ->e
	63	EONT_EONT
	64
	65	checkOptree ( name => '-basic (see above, with my $a = shift)',
	66	bcopts => '-basic',
	67	code => sub { my $a = shift;
	68	if ($a) { print "foo" }
	69	else { print "bar" }
	70	},
	71	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	72	# d <1> leavesub[1 ref] K/REFC,1 ->(end)
	73	# - <@> lineseq KP ->d
	74	# 1 <;> nextstate(main 431 optree.t:68) v ->2
	75	# 6 <2> sassign vKS/2 ->7
	76	# 4 <1> shift sK/1 ->5
	77	# 3 <1> rv2av[t3] sKRM/1 ->4
	78	# 2 <#> gv[*_] s ->3
	79	# 5 <0> padsv[$a:431,435] sRM*/LVINTRO ->6
	80	# 7 <;> nextstate(main 435 optree.t:69) v ->8
	81	# - <1> null K/1 ->-
	82	# 9 <\|> cond_expr(other->a) K/1 ->e
	83	# 8 <0> padsv[$a:431,435] s ->9
	84	# - <@> scope K ->-
	85	# - <0> ex-nextstate v ->a
	86	# c <@> print sK ->d
	87	# a <0> pushmark s ->b
88	# b <$> const[PV "foo"] s ->c
89	# j <@> leave KP ->d
90	# e <0> enter ->f
91	# f <;> nextstate(main 433 optree.t:70) v ->g
92	# i <@> print sK ->j
93	# g <0> pushmark s ->h
94	# h <$> const[PV "bar"] s ->i
95	EOT_EOT
724aa791	96	# d <1> leavesub[1 ref] K/REFC,1 ->(end)
	97	# - <@> lineseq KP ->d
	98	# 1 <;> nextstate(main 428 optree_samples.t:48) v ->2
	99	# 6 <2> sassign vKS/2 ->7
	100	# 4 <1> shift sK/1 ->5
	101	# 3 <1> rv2av[t2] sKRM/1 ->4
	102	# 2 <$> gv(*_) s ->3
	103	# 5 <0> padsv[$a:428,432] sRM*/LVINTRO ->6
	104	# 7 <;> nextstate(main 432 optree_samples.t:49) v ->8
	105	# - <1> null K/1 ->-
	106	# 9 <\|> cond_expr(other->a) K/1 ->e
	107	# 8 <0> padsv[$a:428,432] s ->9
	108	# - <@> scope K ->-
	109	# - <0> ex-nextstate v ->a
	110	# c <@> print sK ->d
	111	# a <0> pushmark s ->b
	112	# b <$> const(PV "foo") s ->c
	113	# j <@> leave KP ->d
	114	# e <0> enter ->f
	115	# f <;> nextstate(main 430 optree_samples.t:50) v ->g
	116	# i <@> print sK ->j
	117	# g <0> pushmark s ->h
	118	# h <$> const(PV "bar") s ->i
	119	EONT_EONT
	120
	121	checkOptree ( name => '-exec sub {if shift print then,else}',
	122	bcopts => '-exec',
	123	code => sub { if (shift) { print "then" }
	124	else { print "else" }
	125	},
	126	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
724aa791	127	# 1 <;> nextstate(main 426 optree.t:16) v
	128	# 2 <#> gv[*_] s
	129	# 3 <1> rv2av[t2] sKRM/1
	130	# 4 <1> shift sK/1
	131	# 5 <\|> cond_expr(other->6) K/1
	132	# 6 <0> pushmark s
	133	# 7 <$> const[PV "then"] s
	134	# 8 <@> print sK
	135	# goto 9
	136	# a <0> enter
	137	# b <;> nextstate(main 424 optree.t:17) v
	138	# c <0> pushmark s
	139	# d <$> const[PV "else"] s
	140	# e <@> print sK
	141	# f <@> leave KP
	142	# 9 <1> leavesub[1 ref] K/REFC,1
	143	EOT_EOT
	144	# 1 <;> nextstate(main 436 optree_samples.t:123) v
	145	# 2 <$> gv(*_) s
	146	# 3 <1> rv2av[t1] sKRM/1
	147	# 4 <1> shift sK/1
	148	# 5 <\|> cond_expr(other->6) K/1
	149	# 6 <0> pushmark s
	150	# 7 <$> const(PV "then") s
	151	# 8 <@> print sK
	152	# goto 9
	153	# a <0> enter
	154	# b <;> nextstate(main 434 optree_samples.t:124) v
	155	# c <0> pushmark s
	156	# d <$> const(PV "else") s
	157	# e <@> print sK
	158	# f <@> leave KP
	159	# 9 <1> leavesub[1 ref] K/REFC,1
	160	EONT_EONT
	161
	162	checkOptree ( name => '-exec (see above, with my $a = shift)',
	163	bcopts => '-exec',
	164	code => sub { my $a = shift;
	165	if ($a) { print "foo" }
	166	else { print "bar" }
	167	},
	168	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	169	# 1 <;> nextstate(main 423 optree.t:16) v
	170	# 2 <#> gv[*_] s
	171	# 3 <1> rv2av[t3] sKRM/1
	172	# 4 <1> shift sK/1
	173	# 5 <0> padsv[$a:423,427] sRM*/LVINTRO
	174	# 6 <2> sassign vKS/2
	175	# 7 <;> nextstate(main 427 optree.t:17) v
	176	# 8 <0> padsv[$a:423,427] s
	177	# 9 <\|> cond_expr(other->a) K/1
	178	# a <0> pushmark s
	179	# b <$> const[PV "foo"] s
	180	# c <@> print sK
	181	# goto d
	182	# e <0> enter
	183	# f <;> nextstate(main 425 optree.t:18) v
	184	# g <0> pushmark s
	185	# h <$> const[PV "bar"] s
	186	# i <@> print sK
	187	# j <@> leave KP
	188	# d <1> leavesub[1 ref] K/REFC,1
	189	EOT_EOT
	190	# 1 <;> nextstate(main 437 optree_samples.t:112) v
191	# 2 <$> gv(*_) s
192	# 3 <1> rv2av[t2] sKRM/1
193	# 4 <1> shift sK/1
194	# 5 <0> padsv[$a:437,441] sRM*/LVINTRO
195	# 6 <2> sassign vKS/2
196	# 7 <;> nextstate(main 441 optree_samples.t:113) v
197	# 8 <0> padsv[$a:437,441] s
198	# 9 <\|> cond_expr(other->a) K/1
199	# a <0> pushmark s
200	# b <$> const(PV "foo") s
201	# c <@> print sK
202	# goto d
203	# e <0> enter
204	# f <;> nextstate(main 439 optree_samples.t:114) v
205	# g <0> pushmark s
206	# h <$> const(PV "bar") s
207	# i <@> print sK
208	# j <@> leave KP
209	# d <1> leavesub[1 ref] K/REFC,1
210	EONT_EONT
211
212	checkOptree ( name => '-exec sub { print (shift) ? "foo" : "bar" }',
213	code => sub { print (shift) ? "foo" : "bar" },
214	bcopts => '-exec',
215	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
216	# 1 <;> nextstate(main 428 optree.t:31) v
217	# 2 <0> pushmark s
218	# 3 <#> gv[*_] s
219	# 4 <1> rv2av[t2] sKRM/1
220	# 5 <1> shift sK/1
221	# 6 <@> print sK
222	# 7 <\|> cond_expr(other->8) K/1
223	# 8 <$> const[PV "foo"] s
224	# goto 9
225	# a <$> const[PV "bar"] s
226	# 9 <1> leavesub[1 ref] K/REFC,1
227	EOT_EOT
228	# 1 <;> nextstate(main 442 optree_samples.t:144) v
229	# 2 <0> pushmark s
230	# 3 <$> gv(*_) s
231	# 4 <1> rv2av[t1] sKRM/1
232	# 5 <1> shift sK/1
233	# 6 <@> print sK
234	# 7 <\|> cond_expr(other->8) K/1
235	# 8 <$> const(PV "foo") s
236	# goto 9
237	# a <$> const(PV "bar") s
238	# 9 <1> leavesub[1 ref] K/REFC,1
239	EONT_EONT
240
241	pass ("FOREACH");
242
243	checkOptree ( name => '-exec sub { foreach (1..10) {print "foo $_"} }',
244	code => sub { foreach (1..10) {print "foo $_"} },
245	bcopts => '-exec',
246	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
247	# 1 <;> nextstate(main 443 optree.t:158) v
248	# 2 <0> pushmark s
249	# 3 <$> const[IV 1] s
250	# 4 <$> const[IV 10] s
251	# 5 <#> gv[*_] s
252	# 6 <{> enteriter(next->d last->g redo->7) lKS
253	# e <0> iter s
254	# f <\|> and(other->7) K/1
255	# 7 <;> nextstate(main 442 optree.t:158) v
256	# 8 <0> pushmark s
257	# 9 <$> const[PV "foo "] s
258	# a <#> gvsv[*_] s
259	# b <2> concat[t4] sK/2
260	# c <@> print vK
261	# d <0> unstack s
262	# goto e
263	# g <2> leaveloop K/2
264	# h <1> leavesub[1 ref] K/REFC,1
724aa791	265	EOT_EOT
	266	# 1 <;> nextstate(main 444 optree_samples.t:182) v
	267	# 2 <0> pushmark s
	268	# 3 <$> const(IV 1) s
	269	# 4 <$> const(IV 10) s
	270	# 5 <$> gv(*_) s
	271	# 6 <{> enteriter(next->d last->g redo->7) lKS
	272	# e <0> iter s
	273	# f <\|> and(other->7) K/1
	274	# 7 <;> nextstate(main 443 optree_samples.t:182) v
	275	# 8 <0> pushmark s
	276	# 9 <$> const(PV "foo ") s
	277	# a <$> gvsv(*_) s
	278	# b <2> concat[t3] sK/2
	279	# c <@> print vK
	280	# d <0> unstack s
	281	# goto e
	282	# g <2> leaveloop K/2
	283	# h <1> leavesub[1 ref] K/REFC,1
	284	EONT_EONT
	285
	286	checkOptree ( name => '-basic sub { print "foo $_" foreach (1..10) }',
	287	code => sub { print "foo $_" foreach (1..10) },
	288	bcopts => '-basic',
	289	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	290	# h <1> leavesub[1 ref] K/REFC,1 ->(end)
	291	# - <@> lineseq KP ->h
	292	# 1 <;> nextstate(main 445 optree.t:167) v ->2
	293	# 2 <;> nextstate(main 445 optree.t:167) v ->3
	294	# g <2> leaveloop K/2 ->h
	295	# 7 <{> enteriter(next->d last->g redo->8) lKS ->e
	296	# - <0> ex-pushmark s ->3
	297	# - <1> ex-list lK ->6
	298	# 3 <0> pushmark s ->4
	299	# 4 <$> const[IV 1] s ->5
	300	# 5 <$> const[IV 10] s ->6
	301	# 6 <#> gv[*_] s ->7
	302	# - <1> null K/1 ->g
	303	# f <\|> and(other->8) K/1 ->g
	304	# e <0> iter s ->f
	305	# - <@> lineseq sK ->-
	306	# c <@> print vK ->d
	307	# 8 <0> pushmark s ->9
	308	# - <1> ex-stringify sK/1 ->c
	309	# - <0> ex-pushmark s ->9
	310	# b <2> concat[t2] sK/2 ->c
	311	# 9 <$> const[PV "foo "] s ->a
	312	# - <1> ex-rv2sv sK/1 ->b
	313	# a <#> gvsv[*_] s ->b
	314	# d <0> unstack s ->e
	315	EOT_EOT
	316	# h <1> leavesub[1 ref] K/REFC,1 ->(end)
	317	# - <@> lineseq KP ->h
	318	# 1 <;> nextstate(main 446 optree_samples.t:192) v ->2
	319	# 2 <;> nextstate(main 446 optree_samples.t:192) v ->3
	320	# g <2> leaveloop K/2 ->h
	321	# 7 <{> enteriter(next->d last->g redo->8) lKS ->e
	322	# - <0> ex-pushmark s ->3
	323	# - <1> ex-list lK ->6
	324	# 3 <0> pushmark s ->4
	325	# 4 <$> const(IV 1) s ->5
	326	# 5 <$> const(IV 10) s ->6
	327	# 6 <$> gv(*_) s ->7
	328	# - <1> null K/1 ->g
329	# f <\|> and(other->8) K/1 ->g
330	# e <0> iter s ->f
331	# - <@> lineseq sK ->-
332	# c <@> print vK ->d
333	# 8 <0> pushmark s ->9
334	# - <1> ex-stringify sK/1 ->c
335	# - <0> ex-pushmark s ->9
336	# b <2> concat[t1] sK/2 ->c
337	# 9 <$> const(PV "foo ") s ->a
338	# - <1> ex-rv2sv sK/1 ->b
339	# a <$> gvsv(*_) s ->b
340	# d <0> unstack s ->e
341	EONT_EONT
342
498d59dd	343	checkOptree ( name => '-exec -e foreach (1..10) {print qq{foo $_}}',
498d59dd	344	prog => 'foreach (1..10) {print qq{foo $_}}',
724aa791	345	bcopts => '-exec',
	346	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	347	# 1 <0> enter
	348	# 2 <;> nextstate(main 2 -e:1) v
	349	# 3 <0> pushmark s
	350	# 4 <$> const[IV 1] s
	351	# 5 <$> const[IV 10] s
	352	# 6 <#> gv[*_] s
	353	# 7 <{> enteriter(next->e last->h redo->8) lKS
	354	# f <0> iter s
	355	# g <\|> and(other->8) vK/1
	356	# 8 <;> nextstate(main 1 -e:1) v
	357	# 9 <0> pushmark s
	358	# a <$> const[PV "foo "] s
	359	# b <#> gvsv[*_] s
	360	# c <2> concat[t4] sK/2
	361	# d <@> print vK
	362	# e <0> unstack v
	363	# goto f
	364	# h <2> leaveloop vK/2
	365	# i <@> leave[1 ref] vKP/REFC
	366	EOT_EOT
	367	# 1 <0> enter
	368	# 2 <;> nextstate(main 2 -e:1) v
	369	# 3 <0> pushmark s
	370	# 4 <$> const(IV 1) s
	371	# 5 <$> const(IV 10) s
	372	# 6 <$> gv(*_) s
	373	# 7 <{> enteriter(next->e last->h redo->8) lKS
	374	# f <0> iter s
	375	# g <\|> and(other->8) vK/1
	376	# 8 <;> nextstate(main 1 -e:1) v
	377	# 9 <0> pushmark s
	378	# a <$> const(PV "foo ") s
	379	# b <$> gvsv(*_) s
	380	# c <2> concat[t3] sK/2
	381	# d <@> print vK
	382	# e <0> unstack v
	383	# goto f
	384	# h <2> leaveloop vK/2
	385	# i <@> leave[1 ref] vKP/REFC
724aa791	386	EONT_EONT
	387
	388	checkOptree ( name => '-exec sub { print "foo $_" foreach (1..10) }',
	389	code => sub { print "foo $_" foreach (1..10) },
	390	bcopts => '-exec',
	391	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
724aa791	392	# 1 <;> nextstate(main 445 optree.t:167) v
	393	# 2 <;> nextstate(main 445 optree.t:167) v
	394	# 3 <0> pushmark s
	395	# 4 <$> const[IV 1] s
	396	# 5 <$> const[IV 10] s
	397	# 6 <#> gv[*_] s
	398	# 7 <{> enteriter(next->d last->g redo->8) lKS
	399	# e <0> iter s
	400	# f <\|> and(other->8) K/1
	401	# 8 <0> pushmark s
	402	# 9 <$> const[PV "foo "] s
	403	# a <#> gvsv[*_] s
	404	# b <2> concat[t2] sK/2
	405	# c <@> print vK
	406	# d <0> unstack s
	407	# goto e
	408	# g <2> leaveloop K/2
	409	# h <1> leavesub[1 ref] K/REFC,1
	410	EOT_EOT
	411	# 1 <;> nextstate(main 447 optree_samples.t:252) v
	412	# 2 <;> nextstate(main 447 optree_samples.t:252) v
	413	# 3 <0> pushmark s
	414	# 4 <$> const(IV 1) s
	415	# 5 <$> const(IV 10) s
	416	# 6 <$> gv(*_) s
	417	# 7 <{> enteriter(next->d last->g redo->8) lKS
	418	# e <0> iter s
	419	# f <\|> and(other->8) K/1
	420	# 8 <0> pushmark s
	421	# 9 <$> const(PV "foo ") s
	422	# a <$> gvsv(*_) s
	423	# b <2> concat[t1] sK/2
	424	# c <@> print vK
	425	# d <0> unstack s
	426	# goto e
	427	# g <2> leaveloop K/2
	428	# h <1> leavesub[1 ref] K/REFC,1
	429	EONT_EONT
	430
cc02ea56	431	pass("GREP: SAMPLES FROM PERLDOC -F GREP");
	432
	433	checkOptree ( name => '@foo = grep(!/^\#/, @bar)',
	434	code => '@foo = grep(!/^\#/, @bar)',
	435	bcopts => '-exec',
	436	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	437	# 1 <;> nextstate(main 496 (eval 20):1) v
	438	# 2 <0> pushmark s
	439	# 3 <0> pushmark s
	440	# 4 <#> gv[*bar] s
	441	# 5 <1> rv2av[t4] lKM/1
	442	# 6 <@> grepstart lK
	443	# 7 <\|> grepwhile(other->8)[t5] lK
	444	# 8 </> match(/"^#"/) s/RTIME
	445	# 9 <1> not sK/1
	446	# goto 7
	447	# a <0> pushmark s
	448	# b <#> gv[*foo] s
	449	# c <1> rv2av[t2] lKRM*/1
	450	# d <2> aassign[t6] KS/COMMON
	451	# e <1> leavesub[1 ref] K/REFC,1
	452	EOT_EOT
	453	# 1 <;> nextstate(main 496 (eval 20):1) v
	454	# 2 <0> pushmark s
	455	# 3 <0> pushmark s
	456	# 4 <$> gv(*bar) s
	457	# 5 <1> rv2av[t2] lKM/1
	458	# 6 <@> grepstart lK
	459	# 7 <\|> grepwhile(other->8)[t3] lK
	460	# 8 </> match(/"^\\#"/) s/RTIME
	461	# 9 <1> not sK/1
	462	# goto 7
	463	# a <0> pushmark s
	464	# b <$> gv(*foo) s
	465	# c <1> rv2av[t1] lKRM*/1
	466	# d <2> aassign[t4] KS/COMMON
	467	# e <1> leavesub[1 ref] K/REFC,1
	468	EONT_EONT
	469
	470
	471	pass("MAP: SAMPLES FROM PERLDOC -F MAP");
	472
	473	checkOptree ( name => '%h = map { getkey($_) => $_ } @a',
	474	code => '%h = map { getkey($_) => $_ } @a',
	475	bcopts => '-exec',
	476	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	477	# 1 <;> nextstate(main 501 (eval 22):1) v
	478	# 2 <0> pushmark s
	479	# 3 <0> pushmark s
	480	# 4 <#> gv[*a] s
	481	# 5 <1> rv2av[t8] lKM/1
	482	# 6 <@> mapstart lK*
	483	# 7 <\|> mapwhile(other->8)[t9] lK
	484	# 8 <0> enter l
	485	# 9 <;> nextstate(main 500 (eval 22):1) v
	486	# a <0> pushmark s
	487	# b <0> pushmark s
	488	# c <#> gvsv[*_] s
	489	# d <#> gv[*getkey] s/EARLYCV
	490	# e <1> entersub[t5] lKS/TARG,1
	491	# f <#> gvsv[*_] s
	492	# g <@> list lK
	493	# h <@> leave lKP
	494	# goto 7
495	# i <0> pushmark s
496	# j <#> gv[*h] s
497	# k <1> rv2hv[t2] lKRM*/1
498	# l <2> aassign[t10] KS/COMMON
499	# m <1> leavesub[1 ref] K/REFC,1
500	EOT_EOT
501	# 1 <;> nextstate(main 501 (eval 22):1) v
502	# 2 <0> pushmark s
503	# 3 <0> pushmark s
504	# 4 <$> gv(*a) s
505	# 5 <1> rv2av[t3] lKM/1
506	# 6 <@> mapstart lK*
507	# 7 <\|> mapwhile(other->8)[t4] lK
508	# 8 <0> enter l
509	# 9 <;> nextstate(main 500 (eval 22):1) v
510	# a <0> pushmark s
511	# b <0> pushmark s
512	# c <$> gvsv(*_) s
513	# d <$> gv(*getkey) s/EARLYCV
514	# e <1> entersub[t2] lKS/TARG,1
515	# f <$> gvsv(*_) s
516	# g <@> list lK
517	# h <@> leave lKP
518	# goto 7
519	# i <0> pushmark s
520	# j <$> gv(*h) s
521	# k <1> rv2hv[t1] lKRM*/1
522	# l <2> aassign[t5] KS/COMMON
523	# m <1> leavesub[1 ref] K/REFC,1
524	EONT_EONT
525
526	checkOptree ( name => '%h=(); for $_(@a){$h{getkey($_)} = $_}',
527	code => '%h=(); for $_(@a){$h{getkey($_)} = $_}',
528	bcopts => '-exec',
529	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
530	# 1 <;> nextstate(main 505 (eval 24):1) v
531	# 2 <0> pushmark s
532	# 3 <0> pushmark s
533	# 4 <#> gv[*h] s
534	# 5 <1> rv2hv[t2] lKRM*/1
535	# 6 <2> aassign[t3] vKS
536	# 7 <;> nextstate(main 506 (eval 24):1) v
537	# 8 <0> pushmark sM
538	# 9 <#> gv[*a] s
539	# a <1> rv2av[t6] sKRM/1
540	# b <#> gv[*_] s
541	# c <1> rv2gv sKRM/1
542	# d <{> enteriter(next->o last->r redo->e) lKS
543	# p <0> iter s
544	# q <\|> and(other->e) K/1
545	# e <;> nextstate(main 505 (eval 24):1) v
546	# f <#> gvsv[*_] s
547	# g <#> gv[*h] s
548	# h <1> rv2hv sKR/1
549	# i <0> pushmark s
550	# j <#> gvsv[*_] s
551	# k <#> gv[*getkey] s/EARLYCV
552	# l <1> entersub[t10] sKS/TARG,1
553	# m <2> helem sKRM*/2
554	# n <2> sassign vKS/2
555	# o <0> unstack s
556	# goto p
557	# r <2> leaveloop K/2
558	# s <1> leavesub[1 ref] K/REFC,1
559	EOT_EOT
560	# 1 <;> nextstate(main 505 (eval 24):1) v
561	# 2 <0> pushmark s
562	# 3 <0> pushmark s
563	# 4 <$> gv(*h) s
564	# 5 <1> rv2hv[t1] lKRM*/1
565	# 6 <2> aassign[t2] vKS
566	# 7 <;> nextstate(main 506 (eval 24):1) v
567	# 8 <0> pushmark sM
568	# 9 <$> gv(*a) s
569	# a <1> rv2av[t3] sKRM/1
570	# b <$> gv(*_) s
571	# c <1> rv2gv sKRM/1
572	# d <{> enteriter(next->o last->r redo->e) lKS
573	# p <0> iter s
574	# q <\|> and(other->e) K/1
575	# e <;> nextstate(main 505 (eval 24):1) v
576	# f <$> gvsv(*_) s
577	# g <$> gv(*h) s
578	# h <1> rv2hv sKR/1
579	# i <0> pushmark s
580	# j <$> gvsv(*_) s
581	# k <$> gv(*getkey) s/EARLYCV
582	# l <1> entersub[t4] sKS/TARG,1
583	# m <2> helem sKRM*/2
584	# n <2> sassign vKS/2
585	# o <0> unstack s
586	# goto p
587	# r <2> leaveloop K/2
588	# s <1> leavesub[1 ref] K/REFC,1
589	EONT_EONT
590
591	checkOptree ( name => 'map $_+42, 10..20',
592	code => 'map $_+42, 10..20',
593	bcopts => '-exec',
594	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
595	# 1 <;> nextstate(main 497 (eval 20):1) v
596	# 2 <0> pushmark s
597	# 3 <$> const[AV ] s
598	# 4 <1> rv2av lKPM/1
599	# 5 <@> mapstart K
600	# 6 <\|> mapwhile(other->7)[t7] K
601	# 7 <#> gvsv[*_] s
602	# 8 <$> const[IV 42] s
603	# 9 <2> add[t2] sK/2
604	# goto 6
605	# a <1> leavesub[1 ref] K/REFC,1
606	EOT_EOT
607	# 1 <;> nextstate(main 511 (eval 26):1) v
608	# 2 <0> pushmark s
609	# 3 <$> const(AV ) s
610	# 4 <1> rv2av lKPM/1
611	# 5 <@> mapstart K
612	# 6 <\|> mapwhile(other->7)[t4] K
613	# 7 <$> gvsv(*_) s
614	# 8 <$> const(IV 42) s
615	# 9 <2> add[t1] sK/2
616	# goto 6
617	# a <1> leavesub[1 ref] K/REFC,1
618	EONT_EONT
619
620	pass("CONSTANTS");
621
498d59dd	622	checkOptree ( name => '-e use constant j => qq{junk}; print j',
498d59dd	623	prog => 'use constant j => qq{junk}; print j',
724aa791	624	bcopts => '-exec',
	625	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	626	# 1 <0> enter
	627	# 2 <;> nextstate(main 71 -e:1) v
	628	# 3 <0> pushmark s
	629	# 4 <$> const[PV "junk"] s
	630	# 5 <@> print vK
	631	# 6 <@> leave[1 ref] vKP/REFC
	632	EOT_EOT
	633	# 1 <0> enter
	634	# 2 <;> nextstate(main 71 -e:1) v
	635	# 3 <0> pushmark s
	636	# 4 <$> const(PV "junk") s
	637	# 5 <@> print vK
	638	# 6 <@> leave[1 ref] vKP/REFC
	639	EONT_EONT
	640
2ce64696	641	} # skip
2ce64696	642
724aa791	643	__END__
	644
	645	#######################################################################
	646
	647	checkOptree ( name => '-exec sub a { print (shift) ? "foo" : "bar" }',
	648	code => sub { print (shift) ? "foo" : "bar" },
	649	bcopts => '-exec',
	650	expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
	651	insert threaded reference here
	652	EOT_EOT
	653	insert non-threaded reference here
	654	EONT_EONT
	655