You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
2.7 KiB
64 lines
2.7 KiB
(*
|
|
* Copyright (c) 2013 - present Facebook, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This source code is licensed under the BSD style license found in the
|
|
* LICENSE file in the root directory of this source tree. An additional grant
|
|
* of patent rights can be found in the PATENTS file in the same directory.
|
|
*)
|
|
|
|
open! IStd
|
|
|
|
module L = Logging
|
|
module F = Format
|
|
|
|
(** Automatically create a harness method to exercise code under test *)
|
|
|
|
(** if [struct_typ] is a lifecycle type, generate a list of (method call, receiver) pairs
|
|
constituting a lifecycle trace *)
|
|
let try_create_lifecycle_trace name lifecycle_name lifecycle_procs tenv =
|
|
match name with
|
|
| Typ.JavaClass _ ->
|
|
if PatternMatch.is_subtype tenv name lifecycle_name &&
|
|
not (AndroidFramework.is_android_lib_class name) then
|
|
let ptr_to_struct_typ = Some (Typ.Tptr (Tstruct name, Pk_pointer)) in
|
|
List.fold
|
|
~f:(fun trace lifecycle_proc ->
|
|
(* given a lifecycle subclass T, resolve the call T.lifecycle_proc() to the procname
|
|
* that will actually be called at runtime *)
|
|
let resolved_proc = SymExec.resolve_method tenv name lifecycle_proc in
|
|
(resolved_proc, ptr_to_struct_typ) :: trace)
|
|
~init:[]
|
|
lifecycle_procs
|
|
else
|
|
[]
|
|
| _ -> []
|
|
|
|
(** generate a harness for a lifecycle type in an Android application *)
|
|
let create_harness cfg cg tenv =
|
|
List.iter ~f:(fun (pkg, clazz, lifecycle_methods) ->
|
|
let typname = Typ.Name.Java.from_package_class pkg clazz in
|
|
let framework_procs =
|
|
AndroidFramework.get_lifecycle_for_framework_typ_opt tenv typname lifecycle_methods in
|
|
(* iterate through the type environment and generate a lifecycle harness for each
|
|
subclass of [lifecycle_typ] *)
|
|
(* TODO: instead of iterating through the type environment, interate through the types
|
|
declared in [cfg] *)
|
|
Tenv.iter (fun name _ ->
|
|
match try_create_lifecycle_trace name typname framework_procs tenv with
|
|
| [] -> ()
|
|
| lifecycle_trace ->
|
|
let harness_procname =
|
|
let harness_cls_name = Typ.Name.name name in
|
|
let pname =
|
|
Typ.Procname.Java
|
|
(Typ.Procname.java
|
|
(Typ.Name.Java.from_string harness_cls_name) None
|
|
"InferGeneratedHarness" [] Typ.Procname.Static) in
|
|
match pname with
|
|
| Typ.Procname.Java harness_procname -> harness_procname
|
|
| _ -> assert false in
|
|
Inhabit.inhabit_trace tenv lifecycle_trace harness_procname cg cfg
|
|
) tenv
|
|
) AndroidFramework.get_lifecycles
|