view release on metacpan or  search on metacpan

t/unless.t  view on Meta::CPAN

# -*- Mode: Python -*-

use strict;
use warnings;

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

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

my $x = 1
unless $x:
    $x += 1
    $x *= 3

is($x, 1)

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

unless $x == 6 ? 1 : 0:
    $x *= 2

is($x, 2)

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

my $z = 9
unless $z:
    $z = 3
else:
    $z = 1
    $z *= 3

is($z, 3)

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

do:
    $z *= 2
    $z += 1
unless $z == 3

is $z, 3

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

package foo
our $bar = 3
$bar = 5 unless not keys %foo::
Test::More::is($bar, 5)