value v2v_utils_drive_index (value strv) { CAMLparam1 (strv); ssize_t r; r = guestfs_int_drive_index (String_val (strv)); if (r == -1) caml_invalid_argument ("drive_index: invalid parameter"); CAMLreturn (Val_int (r)); }
/** * Test C<guestfs_int_drive_index>. */ static void test_drive_index (void) { assert (guestfs_int_drive_index ("a") == 0); assert (guestfs_int_drive_index ("z") == 25); assert (guestfs_int_drive_index ("aa") == 26); assert (guestfs_int_drive_index ("ab") == 27); assert (guestfs_int_drive_index ("az") == 51); assert (guestfs_int_drive_index ("ba") == 52); assert (guestfs_int_drive_index ("zz") == 701); assert (guestfs_int_drive_index ("aaa") == 702); assert (guestfs_int_drive_index ("zzz") == 18277); assert (guestfs_int_drive_index ("") == -1); assert (guestfs_int_drive_index ("abc123") == -1); assert (guestfs_int_drive_index ("123") == -1); assert (guestfs_int_drive_index ("Z") == -1); assert (guestfs_int_drive_index ("aB") == -1); }