anchor.diff:  compile_files([], _, _) ->
       ok.
   
  +big_boot_embedded(suite) ->
  +    [];
  +big_boot_embedded(doc) ->
  +    ["Test that a boot file with (almost) all of OTP can be used to start an"
  +     " embeddedd system."];
  +big_boot_embedded(Config) when is_list(Config) ->
  +    ?line {BootArg,AppsInBoot} = create_big_boot(Config),
  +    ?line {ok, Node} = 
  +	?t:start_node(big_boot_embedded, slave,
  +		      [{args,"-boot "++BootArg++" -mode embedded"}]),
  +    ?line RemoteNodeApps = 
  +	[ {X,Y} || {X,_,Y} <- 
  +		       rpc:call(Node,application,loaded_applications,[]) ],
  +    ?line true = lists:sort(AppsInBoot) =:=  lists:sort(RemoteNodeApps),
  +    ok.
  +
   on_load(Config) when is_list(Config) ->
       Master = on_load_test_case_process,
   
  
positive.code:     ?line file:close(Fd),
      {filename:dirname(Name),filename:basename(Name)}.
  
  is_source_dir() ->
      filename:basename(code:lib_dir(kernel)) =:= "kernel" andalso
  	filename:basename(code:lib_dir(stdlib)) =:= "stdlib".
  
negative.code:      where_is_file_no_cache, where_is_file_cached,
       purge_stacktrace, mult_lib_roots, bad_erl_libs,
       code_archive, code_archive2, on_load, on_load_embedded,
       big_boot_embedded,
       on_load_errors, native_early_modules].
  
  init_per_suite(Config) ->
  