anchor.diff:      DBAdapter = get_env(db_adapter, mock),
       DBShards = get_env(db_shards, []),
       CacheEnable = get_env(cache_enable, false),
  -    DBOptions1 = [{adapter, list_to_atom(lists:concat(["boss_db_adapter_", DBAdapter]))},
  +    DBOptions1 = [{adapter, list_to_atom(lists:concat([DBAdapter, ""]))},
           {cache_enable, CacheEnable}, {shards, DBShards}|DBOptions],
   
       boss_db:start(DBOptions1),
  -    boss_news:start(),
  -
  -    run_setup(),
  -    run_tests(),
  -    erlang:halt().
  -
  -stop(_State) ->
  -  ok.
  -
  -get_env(Key, Default) ->
  -    case application:get_env(Key) of
  -        {ok, Val} -> Val;
  -        _ -> Default
  -    end.
  +    boss_news:start().
  +
   
   run_setup() ->
  -    ok = boss_record_compiler:compile(filename:join(["priv", "test_models", "boss_db_test_model.erl"])),
  -    ok = boss_record_compiler:compile(filename:join(["priv", "test_models", "boss_db_test_parent_model.erl"])),
  +  {ok, boss_db_test_model} = boss_record_compiler:compile(filename:join(["priv", "test_models", "boss_db_test_model.erl"])),
  +  {ok, boss_db_test_parent_model} = boss_record_compiler:compile(filename:join(["priv", "test_models", "boss_db_test_parent_model.erl"])),
     DBAdapter = get_env(db_adapter, mock),
     case file:read_file(filename:join(["priv", "test_sql", lists:concat([DBAdapter, ".sql"])])) of
       {ok, FileContents} ->
  
positive.code:               fun([Id1|_]) ->
                    do(fun() ->
                          Record = boss_db:find(Id1),
                          {ok, SavedRecord} = (Record:some_integer(43)):save(),
                          SavedRecord
                      end,
                      [
  
negative.code: -module(boss_db_test_app).
  
  -behaviour(application).
  
  -export([start/2, stop/1, run_init/0, run_setup/0, run_tests/0]).
  
  start(_Type, _StartArgs) ->
      run_init(),
      run_setup(),
      run_tests(),
      erlang:halt().
  
  stop(_State) ->
    ok.
  
  get_env(Key, Default) ->
      case application:get_env(Key) of
          {ok, Val} -> Val;
          _ -> Default
      end.
  
  run_init() ->
      DBOptions = lists:foldl(fun(OptName, Acc) ->
                  case application:get_env(OptName) of
                      {ok, Val} -> [{OptName, Val}|Acc];
  