view release on metacpan or  search on metacpan

t/pass.t  view on Meta::CPAN

# -*- Model: Python -*-

use Test::More tests => 4, import => ['is'];
use Acme::Pythonic debug => 0;

use strict

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

my $n = 10
while --$n:
    pass

is $n, 0

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

$n = 0
until ++$n:
    pass

is $n, 1

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

$n = 0
if $n == 0:
    $n++
    if $n == 0:
        pass
    else:
        ++$n

is $n, 2

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

$n = 0
unless $n:
    ++$n
    for my $i in 1..$n:
        pass

is $n, 1