From: Vincent Pit Date: Thu, 2 Oct 2008 20:45:40 +0000 (+0200) Subject: Make t/10-base.t more readable by adding *comments* (yikes) X-Git-Tag: v0.04~1 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=commitdiff_plain;h=f6d3ef7cd3dbac8e985f3ddcdcce6012274af7ad Make t/10-base.t more readable by adding *comments* (yikes) --- diff --git a/t/10-base.t b/t/10-base.t index c4675c4..d822d55 100644 --- a/t/10-base.t +++ b/t/10-base.t @@ -5,6 +5,8 @@ use warnings; use Test::More tests => 92; +# ... Helpers ................................................................. + my %_re = ( bareword => sub { qr/^Bareword\s+['"]?\s*$_[0]\s*['"]?\s+not\s+allowed\s+while\s+["']?\s*strict\s+subs\s*['"]?\s+in\s+use\s+at\s+$_[1]\s+line\s+$_[2]/ }, undefined => sub { qr/^Undefined\s+subroutine\s+\&$_[0]\s+called\s+at\s+$_[1]\s+line\s+$_[2]/ }, @@ -40,6 +42,8 @@ sub _got_ok { is($@, '', $_[0]); } my $warn; +# ... First test that the default behaviour apply to all the subs ............. + my $bar; sub bar { $bar = 1 } @@ -51,7 +55,7 @@ is_deeply(\@yay, [ 11, 13 ], 'yay really was executed'); eval "flip"; # Not called in sub::auto zone, not declared, not defined _got_bareword('flip', 1, eval => 1); -eval "flop"; # Not called in sub::auto zone, declared, not defined +eval "flop"; # Not called in sub::auto zone, declared outside, not defined _got_undefined('flop', 1, eval => 1); my $qux; @@ -59,19 +63,23 @@ eval "qux"; # Called in sub::auto zone, not declared, not defined _got_bareword('qux', 1, eval => 1); my $blech; -eval "blech"; # Called in sub::auto zone, declared, not defined +eval "blech"; # Called in sub::auto zone, declared outside, not defined _got_undefined('blech', 1, eval => 1); my $wut; -eval "wut"; # Called in sub::auto zone, declared, defined +eval "wut"; # Called in sub::auto zone, declared and defined outside _got_ok('compiling to wut()'); # === Starting from here ====================================================== use subs::auto; +# ... Called in sub::auto zone only, not declared, not defined ................ + eval { onlycalledonce 1, 2 }; _got_undefined('onlycalledonce', __LINE__-1); +# ... Method calls, anyone? ................................................... + eval { Test::More->import() }; _got_ok('don\'t touch class names'); @@ -80,7 +88,8 @@ sub strict { $strict = 1; undef } eval { strict->import }; is($strict, 1, 'the strict subroutine was called'); -# Test hash keys +# ... Test hash keys .......................................................... + my $c = 0; my %h = ( a => 5, @@ -93,6 +102,8 @@ is($c, 0, "hash keys shouldn't be converted"); my $foo; our @foo; +# ... Called in sub::auto zone, declared and defined inside ................... + eval { foo 1, 2, \%h }; _got_ok('compiling to foo(1,2,\\\%h)'); is($foo, 15, 'foo really was executed'); @@ -109,6 +120,8 @@ eval { &foo(7, 8, \%h) }; _got_ok('compiling to foo(7,8,\\\%h)'); is($foo, 27, '&foo() really was executed'); +# ... Called in sub::auto zone, declared and defined outside .................. + eval { wut 13, "what" }; _got_ok('compiling to wut(13,"what")'); is($wut, 17, 'wut really was executed'); @@ -125,6 +138,8 @@ eval { &wut(25, "what") }; _got_ok('compiling to wut(25,"what")'); is($wut, 29, '&wut() really was executed'); +# ... Called in sub::auto zone, not declared, not defined ..................... + eval { qux }; _got_undefined('qux', __LINE__-1); @@ -137,6 +152,8 @@ _got_undefined('qux', __LINE__-1); eval { &qux() }; _got_undefined('qux', __LINE__-1); +# ... Are our subs visible in the symbol table entry or what? ................. + { no strict 'refs'; is(*{'::feh'}{CODE}, undef, 'feh isn\'t defined'); @@ -150,12 +167,16 @@ _got_undefined('qux', __LINE__-1); isnt(*{'::wut'}{CODE}, undef, 'wut is defined'); } +# ... Let's check that this didn't induce any quantic effect .................. + eval { no warnings; no strict; qux }; _got_undefined('qux', __LINE__-1); eval { no warnings; no strict; blech }; _got_undefined('blech', __LINE__-1); +# ... Define foo .............................................................. + sub foo { if ($_[2]) { my %h = %{$_[2]}; @@ -171,6 +192,8 @@ eval { foo 3, 4, { } }; _got_ok('compiling to foo(3,4,{})'); is($foo, 7, 'foo really was executed'); +# ... Locally define qux (declared outside, not defined) ...................... + $warn = undef; eval { local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/ }; @@ -181,6 +204,8 @@ _got_ok('compiling to qux(5)'); is($qux, 5, 'qux really was executed'); is($warn, undef, 'no redefine warning'); +# ... Locally define blech (declared and defined outside) ..................... + $warn = undef; eval { local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/ }; @@ -191,6 +216,8 @@ _got_ok('compiling to blech(7)'); is($blech, 7, 'blech really was executed'); is($warn, undef, 'no redefine warning'); +# ... But now they aren't anymore ............................................. + eval { qux }; _got_undefined('qux', __LINE__-1); @@ -200,6 +227,8 @@ _got_undefined('blech', __LINE__-1); # === Up to there ============================================================= no subs::auto; +# ... Barewords are strings when the pragma isn't in effect ................... + my $b; my $cb = eval { sub { @@ -214,10 +243,14 @@ _got_ok('compiling to bareword'); $cb->(); is($b, 'blech', 'bareword ok'); +# ... Does foo's definition still valid outside of the pragma scope? .......... + eval { foo 13, 1, { } }; _got_ok('compiling to foo(13,1,{})'); is($foo, 14, 'foo really was executed'); +# ... Locally define qux ...................................................... + $warn = undef; { local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/; diag $_[0] }; @@ -228,6 +261,8 @@ _got_ok('compiling to qux(3)'); is($qux, 6, 'new qux really was executed'); is($warn, undef, 'no redefine warning'); +# ... Locally define blech .................................................... + $warn = undef; { local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/ }; @@ -238,12 +273,16 @@ _got_ok('compiling to blech(9)'); is($blech, 18, 'new blech really was executed'); is($warn, undef, 'no redefine warning'); +# ... But now they aren't anymore ............................................. + eval "qux"; _got_bareword('qux', 1, eval => 1); eval "blech"; _got_undefined('blech', 1, eval => 1); +# ... How's my symbol table, Doug Hastings? ................................... + { no strict qw/refs subs/; is(*{::feh}{CODE}, undef, 'feh isn\'t defined'); @@ -258,6 +297,8 @@ _got_undefined('blech', 1, eval => 1); isnt(*{::wut}{CODE}, undef, 'wut is defined'); } +# ... Declareth thy oneth thad shalt be ....................................... + sub blech; eval { blech }; _got_undefined('blech', __LINE__-1); @@ -274,6 +315,8 @@ sub yay { @yay = @_; '::yay' } # === Restarting from there =================================================== use subs::auto; +# ... How does the pragma propagates through eval STRING? ..................... + eval "no subs::auto; meh"; _got_bareword("meh", 1, eval => 1); # eval "use subs::auto; meh"; @@ -281,6 +324,8 @@ _got_bareword("meh", 1, eval => 1); # eval "meh"; # _got_undefined('meh', 1, eval => 1, todo => 'Fails because of some bug in perl or Variable::Magic'); +# ... Try filehandles ......................................................... + my $buf = ''; { no subs::auto; @@ -290,11 +335,15 @@ print DONGS "hlagh\n"; is($buf, "hlagh\n", 'filehandles should\'t be touched'); close DONGS; +# ... Try default filehandles ................................................. + seek DATA, 0, 1; my @fruits = ; chomp @fruits; is_deeply(\@fruits, [ qw/apple pear banana/ ], 'DATA filehandle ok'); +# ... Retest foo (declared and defined inside) ................................ + eval { foo 7, 9, { } }; _got_ok('compiling to foo(7,9,{})'); is($foo, 16, 'foo really was executed'); @@ -311,6 +360,8 @@ eval { &foo(10, 12, { }) }; _got_ok('compiling to foo(10,12,{})'); is($foo, 22, '&foo() really was executed'); +# ... Retest blech (declared outside, not defined) ............................ + eval { blech }; _got_undefined('blech', __LINE__-1); @@ -323,6 +374,8 @@ _got_undefined('blech', __LINE__-1); eval { &blech() }; _got_undefined('blech', __LINE__-1); +# ... Try _ in a filetest ..................................................... + ok(-f $0 && -r _, '-X _'); __DATA__