anchor.diff:  	  Smth -> Smth
     end.
   
  +pair_array_to_vector (Array) ->
  +  List = lists:map (
  +    fun ({Key, Value}) when is_atom (Key) ->
  +        string:join ([erlang:atom_to_list (Key), Value], "=") 
  +    end, Array),
  +  string:join (List, ",").
  +
   test (Port) ->
     port_control (Port, 1, <<"xxx">>),
     port_control (Port, 2, <<"xxx">>),
  
positive.code: handle_call ({run_job}, _From, #state {port = Port} = State) ->
    {ok, JobID} = drmaa:control (Port, ?CMD_RUN_JOB),
    {reply, {ok, JobID}, State};
  handle_call ({remote_command, Command}, _From, #state {port = Port} = State) ->
    Reply = drmaa:control (Port, ?CMD_REMOTE_COMMAND, erlang:list_to_binary (Command)),
    {reply, Reply, State};
  handle_call ({v_argv, Argv}, _From, #state {port = Port} = State) ->
    Args = string:join ([erlang:integer_to_list (length (Argv)) | Argv], ","),
    Reply = drmaa:control (Port, ?CMD_V_ARGV, erlang:list_to_binary (Args)),
    {reply, Reply, State};
  handle_call (Request, _From, State) ->
    {reply, {unknown, Request}, State}.
  
negative.code: run_job () ->
    gen_server:call (drmaa, {run_job}).
  
  join_files (Join) when (Join == true) or (Join == false) ->
    gen_server:call (drmaa, {join_files, Join}).
  
  remote_command (Command) when is_list (Command) ->
    gen_server:call (drmaa, {remote_command, Command}).
  
  args (Argv) when is_list (Argv) ->
    gen_server:call (drmaa, {args, Argv}).
  
  env (Env) when is_list (Env) ->
    gen_server:call (drmaa, {env, Env}).
  
  
  %% gen_server callbacks %%
  