From 24f01a581b0452cfc8d7239b6a556e4282b0b964 Mon Sep 17 00:00:00 2001
From: Matthew Booth <mbooth@redhat.com>
Date: Wed, 18 Jan 2012 16:44:10 +0000
Subject: [PATCH] bindtests: Add a test for RBufferOut

Fixup the existing test, and add an entry in actions so it's actually generated.
---
 generator/generator_actions.ml   | 1 +
 generator/generator_bindtests.ml | 1 +
 2 files changed, 2 insertions(+)

diff --git a/generator/generator_actions.ml b/generator/generator_actions.ml
index 56691c589..f6e22d7bf 100644
--- a/generator/generator_actions.ml
+++ b/generator/generator_actions.ml
@@ -55,6 +55,7 @@ let test_all_rets = [
   "test0rstruct",      RStruct ("valout", "lvm_pv");
   "test0rstructlist",  RStructList ("valout", "lvm_pv");
   "test0rhashtable",   RHashtable "valout";
+  "test0rbufferout",   RBufferOut "valout";
 ]
 
 let test_functions = [
diff --git a/generator/generator_bindtests.ml b/generator/generator_bindtests.ml
index edaf557fb..8a36e756a 100644
--- a/generator/generator_bindtests.ml
+++ b/generator/generator_bindtests.ml
@@ -181,6 +181,7 @@ print_strings (char *const *argv)
              pr "  strs[n*2] = NULL;\n";
              pr "  return strs;\n"
          | RBufferOut _ ->
+             pr "  *size_r = strlen (val);\n";
              pr "  return strdup (val);\n"
         );
         pr "}\n";