robertoaloi

````
(<0.80.0>) call ct_logs:tc_print(info,50,"...")
(<0.80.0>) call ct_util:get_testdata({verbosity,info})
(<0.80.0>) call ct_util:call({get_testdata,{verbosity,info}})
(<0.80.0>) call ct_util:call({get_testdata,{verbosity,info}},infinity)
(<0.80.0>) call erlang:whereis(ct_util_server)
HANGS
````

robertoaloi

$ erl
Erlang R15B01 (erts-5.9.1) [source] [64-bit] [smp:8:8] [async-threads:0] [kernel-poll:false]

Eshell V5.9.1  (abort with ^G)
1> test:do().

Common Test starting (cwd is /.../ct-bug)

----------------------------------------------------
2013-06-28 13:43:17.525

robertoaloi

 find . -type f \( -name *.erl -or -name *.hrl -or -name *.app.src \) -exec cat {} \; | sed '/^\s*$/d;/^\s*\%\%/d;/^\-spec*/d' | wc -l

robertoaloi

#!/bin/sh
 
ROOTDIR=`which erl | sed -ne '/^ROOTDIR=/s///p'`
find $ROOTDIR -name $1.erl | awk -F / '{print $(NF-2)}' | awk -F - '{print $1}'

robertoaloi

%% Recursively copy directories
-spec recursive_copy(list(), list()) -> ok.                            
recursive_copy(From, To) ->
    {ok, Files} = file:list_dir(From),
    [ok = rec_copy(From, To, X) || X <- Files],
    ok.
 
-spec rec_copy(list(), list(), list()) -> ok.                            
rec_copy(_From, _To, [$. | _T]) -> %% Ignore Hidden
    ok; 

robertoaloi

(defun erlang-after-arrow ()
  "Return true if point is immediately after a function arrow (`->').
Make a special case when in a spec line."
  (and
   (save-excursion
     (beginning-of-line)
     (not (save-match-data (looking-at "-\\(spec\\|type\\)"))))
   (and (>= (point) 2)
        (and
         (save-excursion

robertoaloi

Compiling it with:

latexmk -pdf main.tex

robertoaloi

#!/bin/sh                                                                                                                                                   
                                                                                                                                                            
CMD="erl -noinput -eval 'erlang:display({foo, bar}).' -s init stop"                                                                                          
                                                                                                                                                            
echo "Exec: $CMD"                                                                                                                                           
exec $CMD

robertoaloi

-module(rebar_compiledeps_plugin).
-export([pre_compile/2]).

pre_compile(_, _) ->
    Cwd = rebar_utils:get_cwd(),
    case lists:suffix("my_dep", Cwd) of
        true ->
            Opts = [{cd, Cwd}],
            case filelib:is_regular(filename:join([Cwd, "Makefile"])) of
                true ->

robertoaloi

[Wed, 25 May 2011 08:54:58 -0700] INFO: Starting Chef Run (Version 0.9.12)
: stdout
[default] /usr/lib/ruby/gems/1.8/gems/chef-0.9.12/bin/../lib/chef/rest/auth_credentials.rb:62:in `load_signing_key': stderr
[default] : : stderr
[default] I cannot read /etc/chef/client.pem, which you told me to use to sign requests!: stderr
[default]  (: stderr
[default] Chef::Exceptions::PrivateKeyMissing: stderr
[default] )
: stderr
[default] 	from /usr/lib/ruby/gems/1.8/gems/chef-0.9.12/bin/../lib/chef/rest/auth_credentials.rb:33:in `initialize'