Hola.. This test ensures that anon blocks not only parse, but actually run, and also tests for the implicit semicolon bug.
-- () Yuval Kogman <[EMAIL PROTECTED]> 0xEBD27418 perl hacker & /\ kung foo master: /me tips over a cow: neeyah!!!!!!!!!!!!!!!!!!!!!!
Auto-merging (0, 5) /pugs to /mirror/pugs (base /mirror/pugs:3). Patching locally against mirror source http://svn.openfoundry.org/pugs. U t/base/anon_block.t ==== Patch <-> level 1 Source: 860093a6-74f1-0310-8e87-badf57e5bdee:/pugs:5 Target: c213334d-75ef-0310-aa23-eaa082d1ae64:/:437 (http://svn.openfoundry.org/pugs) Log: [EMAIL PROTECTED]: nothingmuch | 2005-03-04 17:48:50 +0200 [EMAIL PROTECTED]: nothingmuch | 2005-03-04 18:16:14 +0200 Test that lone blocks with implicit semicolons actually execute === t/base/anon_block.t ================================================================== --- t/base/anon_block.t (revision 437) +++ t/base/anon_block.t (patch - level 1) @@ -9,7 +9,7 @@ =cut -plan 6; +plan 9; # from outer space my $anon_sub = sub { 1 }; is($anon_sub(), 1, 'sub { } works'); @@ -27,4 +27,13 @@ is($pointy_block_w_arg(3), 4, '-> $arg {} <"pointy" block w/args> works'); my $pointy_block_w_multiple_args = -> $arg1, $arg2 { $arg1 + $arg2 }; -is($pointy_block_w_multiple_args(3, 4), 7, '-> $arg1, $arg2 {} <"pointy" block w/multiple args> works'); \ No newline at end of file +is($pointy_block_w_multiple_args(3, 4), 7, '-> $arg1, $arg2 {} <"pointy" block w/multiple args> works'); + +my $foo; +eval '{$foo = "blah"};'; +todo_is($foo, "blah", "lone block actually executes it's content"); + +my ($one, $two); +eval '{$one = 1} {$two = 2}'; +todo_is($one, 1, "ditto for two blocks: first block, no semicolon after"); +todo_is($two, 2, "... second block"); ==== BEGIN SVK PATCH BLOCK ==== Version: svk 0.30 (darwin) eJyNlN2P00YQwKOqH1L+itVhdKVN7vbLnxFRHgLXAwRIXPvYaL0eJwbHG9mbg1P3HlBJ4AHxAjzz rzK2OYqqViBZ8nhn5jczOzO+XZ9NZsxNp9R5jLpHf9xNkofK6tV1Jp0XOMgKa2rPdyWcQ+kJV5ql J12l1oDaxmxr3QpW1UuwrVDoJ2CnU4a4qMfd6hBX2I6aKmuqxos7/MLWAB5zcua7mWifhcdi1wBq OuyihvOiKUyFRj6q8cXQ12ygWtTGWMxKinDGWz/qdGkaWLRgPEEkWnMPi+nMs6IGjdlc4KntOL1v F9P/5PulEfsMEf8BwXqPU9VAF+MrJP6ZJK+Sz4sS2lJ7yLGqTLVIS6OfHNku4FeIoid2WrXZlBcL C89sBqVVXRTBnaZByMIgg1SlgWRKhtoPUwp5qJWgNPN4wLFL9weDnXj54LfnfHAyeD948fj0x9PX 893dt9/Di5Pdny9/+rv8cLKbv76zezDff7ef7+Pdvd3y1l6+me8f/fB8++r2/vLdfP/L6e7xWxRR iifkGslrsyZma6EmzUZpyI2ZDOFcleTwL3KTHKSlWh1cTg4nQ2sys0D1aEQOSlOB0naryvKCwDPQ CGhIYQ8bok1lobIHP3toMyKefWpu3CTskrQ4fsnQG/tuDckNhkxIXtSNHZHKkAbWhTaIJirHfNBx RDiaHx0doQ652Ux+OT99a/pLFDHnEQvyjCk/9qkf5j4XiirQYRwFsermiIXCkVrOmguATCUEg9pV US3XW70ijnBK/TEVYyoJCxMZJT4lv1I8HZIhqf1vcYsSFiRMXrmdQWOJXSlL2gsj3dw05GlhV6RY b8pCF/afqhvy7xsdYtbj6ZQ7j/N+T8+6ZUuS36viHOpGldcDh6u+UXaFk4g7iB/bbZHhz+B4s102 7TZ6InBRQGksVDAOZc4wWUbHEUThOFVZ7ofgpxnA9AZ3/4dj7rif9BamORNCyGwc+pD3MKW4GINS NOLYAQikJ+U3BU26NBP/I92ZkaQ= ==== END SVK PATCH BLOCK ====
pgpol71LsuUno.pgp
Description: PGP signature
