File: clone_test.ml

package info (click to toggle)
frama-c 20220511-manganese-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 66,472 kB
  • sloc: ml: 278,832; ansic: 47,093; sh: 4,823; makefile: 3,618; javascript: 2,436; python: 1,919; perl: 897; lisp: 293; xml: 62
file content (8 lines) | stat: -rw-r--r-- 210 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
 
let run () =
  Ast.compute ();
  let f = Globals.Functions.find_by_name "f" in
  let _ = Clone.clone_defined_kernel_function f in
  File.pretty_ast();
  Filecheck.check_ast "clone"

let () = Db.Main.extend run