shared.t

use strict;
use warnings;

BEGIN {
   use Test::More tests => 9;

   use_ok 'Rex::Shared::Var';
   Rex::Shared::Var->import;

   share(qw($scalar @array %hash));
}

$scalar = "scalar";
ok($scalar eq "scalar", "scalar test");

@array = qw(one two three four);
ok(join("-", @array) eq "one-two-three-four", "array test");

push(@array, "five");
ok($array[-1] eq "five", "array push");

%hash = (
   name => "joe",
   surename => "doe",
   multi => {
      key1 => "foo",
      arr1 => [
         qw/bar baz/
      ],
   }
);

ok($hash{name} eq "joe", "hash test, key 1");
ok($hash{surename} eq "doe", "hash test, key 2");
ok($hash{multi}->{key1} eq "foo", "multidimension, key1");
ok($hash{multi}->{arr1}->[0] eq "bar", "multidimension, arr1 - key0");
ok($hash{multi}->{arr1}->[1] eq "baz", "multidimension, arr1 - key1");

unlink("vars.db");
unlink("vars.db.lock");