# -*- Mode: Python -*-
use strict;
use warnings;
use Test::More 'no_plan';
use Acme::Pythonic;
# ----------------------------------------------------------------------
my $foo = "foo"
is $foo, "foo"
# ----------------------------------------------------------------------
use vars qw($bar $baz)
$bar = "bar"
local *baz
*baz = $bar
is $bar, $baz
# ----------------------------------------------------------------------
my $zoo = 5
$zoo = 7 if $zoo == 5
is $zoo, 7
# ----------------------------------------------------------------------
my $mu = "moo"
$mu = $mu eq $bar ? q:some colons: : ""
is $mu, ""
# ----------------------------------------------------------------------
my $moo = "moo"
$moo =~ s:moo:foo:
is $moo, $foo
# ----------------------------------------------------------------------
# Checks we don't see a comment in $#foo
my @foo = (0, 1)
my $n = 0
$#foo || undef $n
ok defined $n