In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9f47963d4156d454084c8456d1538bfe0fee3858?hp=c3e6accbfa366773737da407c6d6f1574c1a057a>
- Log ----------------------------------------------------------------- commit 9f47963d4156d454084c8456d1538bfe0fee3858 Author: Father Chrysostomos <[email protected]> Date: Sat Dec 18 17:21:41 2010 -0800 Test B::Conciseâs -tree mode ----------------------------------------------------------------------- Summary of changes: ext/B/t/concise.t | 15 ++++++++++++++- 1 files changed, 14 insertions(+), 1 deletions(-) diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index b59701d..3fdb694 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -10,7 +10,7 @@ BEGIN { require 'test.pl'; # we use runperl from 'test.pl', so can't use Test::More } -plan tests => 158; +plan tests => 159; require_ok("B::Concise"); @@ -435,4 +435,17 @@ $out = runperl ( switches => ["-MO=Concise"], like $out, qr/nextstate.*nextstate/s, 'nulling of nextstate-nextstate happeneth not when $^P | PERLDBf_NOOPT'; + +# A very basic test for -tree output +$out = + runperl( + switches => ["-MO=Concise,-tree"], prog => 'print', stderr => 1 + ); +ok index $out=~s/\r\n/\n/gr, <<'end'=~s/\r\n/\n/gr =>>= 0, '-tree output'; +<6>leave[1 ref]-+-<1>enter + |-<2>nextstate(main 1 -e:1) + `-<5>print-+-<3>pushmark + `-ex-rv2sv---<4>gvsv[*_] +end + __END__ -- Perl5 Master Repository
