4 use Test::More tests => 5;
5 BEGIN { use_ok('naturalvar') }
6 require_ok('naturalvar');
8 # adapted from ../python/naturalvar_runme.py
10 my $f = naturalvar::Foo->new();
11 isa_ok($f, 'naturalvar::Foo');
12 my $b = naturalvar::Bar->new();
13 isa_ok($b, 'naturalvar::Bar');
17 $naturalvar::s = "hello";
21 is($naturalvar::s, $b->{s});