search for: do_return

...name ~expect_error:true last + + | TestRunOrUnsupported seq -> + pr " /* TestRunOrUnsupported for %s (%d) */\n" name i; + let seq, last = get_seq_last seq in + List.iter (generate_test_command_call test_name) seq; + generate_test_command_call test_name ~expect_error:true ~do_return:false ~ret:"ret" last; + pr " if (ret == -1) {\n"; + pr " if (guestfs_last_errno (g) == ENOTSUP) {\n"; + pr " skipped (\"%s\", \"last command %%s returned ENOTSUP\", \"%s\");\n" + test_name (List.hd last);...

...ll:1008494A Rf_eval 10084671 R.dll:10084671 Rf_eval 1008487C R.dll:1008487C Rf_eval 10084671 R.dll:10084671 Rf_eval 1008487C R.dll:1008487C Rf_eval 10084671 R.dll:10084671 Rf_eval 1008487C R.dll:1008487C Rf_eval 100852A5 R.dll:100852A5 Rf_evalListKeepMissing 100853DD R.dll:100853DD do_return 1008494A R.dll:1008494A Rf_eval 10084671 R.dll:10084671 Rf_eval 1008487C R.dll:1008487C Rf_eval 100863D5 R.dll:100863D5 do_begin 1008494A R.dll:1008494A Rf_eval 100875AB R.dll:100875AB Rf_applyClosure 100846E0 R.dll:100846E0 Rf_eval 10086305 R.dll:10086305 do_set 1008494A R.dll:100...

...ot;) prog n; corrupt_file () in diff --git a/generator/tests_c_api.ml b/generator/tests_c_api.ml index 8b98927..4a70433 100644 --- a/generator/tests_c_api.ml +++ b/generator/tests_c_api.ml @@ -557,13 +557,13 @@ and generate_test_command_call ?(expect_error = false) ?(do_return = true) ?test | Int _, arg, _ -> let i = try int_of_string arg - with Failure "int_of_string" -> + with Failure _ -> failwithf "%s: expecting an int, but got '%s'" test_name arg in pr ", %d" i |...

...percase test_name) (String.uppercase name); +" test_name name + (String.uppercase_ascii test_name) + (String.uppercase_ascii name); if not_disabled then ( generate_test_perform name i test_name test; @@ -441,7 +444,7 @@ and generate_test_command_call ?(expect_error = false) ?(do_return = true) ?test | StringList _, arg, sym | DeviceList _, arg, sym | FilenameList _, arg, sym -> - let strs = string_split " " arg in + let strs = String.nsplit " " arg in iteri ( fun i str -> pr " const char *%s_%d =...

By splitting up large C files we can make parallel compiles a bit faster. Rich.

...pr " free (%s);\n" n ) args; diff --git a/generator/tests_c_api.ml b/generator/tests_c_api.ml index 7f89e0ed6..f9f14f6dc 100644 --- a/generator/tests_c_api.ml +++ b/generator/tests_c_api.ml @@ -411,15 +411,9 @@ and generate_test_command_call ?(expect_error = false) ?(do_return = true) ?test List.iter ( function | OptString _, "NULL", _ -> () - | Pathname _, arg, sym - | Device _, arg, sym - | Mountable _, arg, sym - | Dev_or_Path _, arg, sym - | Mountable_or_Path _, arg, sym - | String _, arg, sym - | OptString _, arg, sym -...

Very large but mechanical change to the generator. Rich.

...1635 Rf_eval 1635 do_return 1635 Rf_evalListKeepMissing...