#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Test::More tests => 5; | |
BEGIN { use_ok('naturalvar') } | |
require_ok('naturalvar'); | |
# adapted from ../python/naturalvar_runme.py | |
my $f = naturalvar::Foo->new(); | |
isa_ok($f, 'naturalvar::Foo'); | |
my $b = naturalvar::Bar->new(); | |
isa_ok($b, 'naturalvar::Bar'); | |
$b->{f} = $f; | |
$naturalvar::s = "hello"; | |
$b->{s} = "hello"; | |
is($naturalvar::s, $b->{s}); | |