add sentosimple test

Author: ChrisRackauckas

src/ParallelDataTransfer.jl

@@ -18,8 +18,24 @@ module ParallelDataTransfer
     fetch(@spawnat(p,eval(mod,obj)))
   end
 
+#=
+  macro getfrom(p, obj,mod=Main)
+    quote
+      remotecall_fetch(eval,$(esc(p)),$(esc(mod)),$(esc(obj)))
+    end
+  end
+=#
+
   getfrom(p::Int, nm::Symbol, mod::Module=Main) = fetch(@spawnat(p, getfield(mod, nm)))
 
+#=
+  macro defineat(p,name,val,mod=Main)
+    quote
+      remotecall_wait((nm,val)->eval($mod,:(nm=val)),$p,$name,$val)
+    end
+  end
+=#
+
   macro defineat(p,name,val,mod=Main)
     wait(@spawnat p eval(mod,:($name=$val)))
   end

test/runtests.jl

@@ -16,6 +16,10 @@ x = @getfrom(2, z)
 y = getfrom(2, :z)
 @test y==z
 
+sendtosimple(2,:x,3)
+y = @getfrom 2 x
+@test y == 3
+
 # pass variable named x from process 2 to all other processes
 @spawnat 2 eval(:(x=1))
 passobj(2, filter(x->x!=2, procs()), :x)