function ret = test_psend ()

  ret = cell (10, 1);
  cnt = 1;

  fid = pipe ();

  if ((pid = fork ()) == 0)
    ## Child.
    pclose (fid{1});
    named_var1 = pi;
    psend (fid{2}, "named_var1");
    psend (fid{2}, linspace (1, 100000, 100000), true); # > 4 kB
    named_var2 = {"abc", struct("field","value")};
    psend (fid{2}, "named_var2", false);
    pclose (fid{2});
    exit ();
  endif

  ## Parent.
  pclose (fid{2});
  while (! ismatrix (t = prcv (fid{1})))
    ret{cnt} = t.(fieldnames (t){1});
    cnt++;
  endwhile
  pclose (fid{1});
  waitpid (pid);  

endfunction