Hi Rich,
I tried to run "make distcheck" and got a failed test.
This single line was in ocaml/t/hivex_120_rlenvalue.log:
Fatal error: exception Hivex.Error("open", 20, "No such file or
directory")
This change got me past it:
From b446a2bb7aea5f8dc2cf80c83f068dfd6abf3b7a Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering(a)redhat.com>
Date: Tue, 28 Aug 2012 11:39:51 +0200
Subject: [PATCH hivex] tests: avoid spurious failure when run in non-srcdir
build
* ocaml/t/hivex_120_rlenvalue.ml: Avoid spurious failure when the
test is run in a non-srcdir (aka VPATH) build. I.e., open a
$srcdir-relative name, rather than assuming $srcdir is ".".
---
ocaml/t/hivex_120_rlenvalue.ml | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/ocaml/t/hivex_120_rlenvalue.ml b/ocaml/t/hivex_120_rlenvalue.ml
index 63c4cb2..827dc46 100644
--- a/ocaml/t/hivex_120_rlenvalue.ml
+++ b/ocaml/t/hivex_120_rlenvalue.ml
@@ -1,5 +1,5 @@
(* hivex OCaml bindings
- * Copyright (C) 2009-2010 Red Hat Inc.
+ * Copyright (C) 2009-2010, 2012 Red Hat Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -26,9 +26,10 @@
open Unix
open Printf
let (//) = Filename.concat
+let srcdir = try Sys.getenv "srcdir" with Not_found -> "."
let () =
- let h = Hivex.open_file "../images/rlenvalue_test_hive" [] in
+ let h = Hivex.open_file (srcdir // "../images/rlenvalue_test_hive") [] in
let root = Hivex.root h in
let moderate_value_node = Hivex.node_get_child h root "ModerateValueParent"
in
let moderate_value_value = Hivex.node_get_value h moderate_value_node
"33Bytes" in
--
1.7.12.116.g31e0100