view release on metacpan or  search on metacpan

t/foreach.t  view on Meta::CPAN

# -*- Mode: Python -*-

use Test::More 'no_plan';
use Acme::Pythonic debug => 0;

# ----------------------------------------------------------------------

my $sgn = 1
foreach my $i = 0; $i < 3; ++$i:
    $sgn *= -1

ok $sgn, -1

# ----------------------------------------------------------------------

BLOCK_TO_DISABLE_STRICTNESS_LOCALLY:
    no strict
    $sgn = 1
    foreach $i = 0; $i < 3; ++$i:
        $sgn *= -1

ok $sgn, -1


# ----------------------------------------------------------------------

my @foo = 1..10
my $n = @foo
foreach ; @foo; pop @foo:
    --$n
    $n += 0

is $n, 0

# ----------------------------------------------------------------------

foreach do {@foo = 1..10; $n = 0}; @foo; pop @foo:
    ++$n
    $n += 0

is $n, 10

# ----------------------------------------------------------------------

@foo = 1..10
$n = 0
foreach @foo:
    $n += $_
    $n += 0

is $n, 55

# ----------------------------------------------------------------------

@foo = 1..10
$n = 0
foreach in @foo:
    $n += $_
    $n += 0

is $n, 55

# ----------------------------------------------------------------------