From 7196a2f0c6358607980d495211a90f192e8c90e1 Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <mtg@gnu.org>
Date: Sun, 27 Mar 2016 11:01:20 -0400
Subject: [PATCH] Anonymous records added

* src/record.xsl (R:make-record-header#1): added
* test/record.xspec: R:make-record-header#1 scenario added
---
 src/record.xsl    | 13 +++++++++++++
 test/record.xspec | 19 +++++++++++++++++++
 2 files changed, 32 insertions(+)

diff --git a/src/record.xsl b/src/record.xsl
index 0a994d1..fd89ecd 100644
--- a/src/record.xsl
+++ b/src/record.xsl
@@ -249,6 +249,19 @@
           select="QName( $R:ns, 'R:Record' )" />
 
 
+<!--
+  Make a new anonymous record header containing @var{slots} slots.
+
+  Usually, you want a record to be named,
+    but anonymous records might be useful for temporary or grouped data.
+-->
+<function name="R:make-record-header" as="element( R:Record )">
+  <param name="slots" as="xs:integer" />
+
+  <sequence select="R:make-record-header( $R:qname, $slots, () )" />
+</function>
+
+
 <!--
   Make a new record header for a record identified by @var{qname} containing
   @var{slots} slots.
diff --git a/test/record.xspec b/test/record.xspec
index b3885da..fd3a8b8 100644
--- a/test/record.xspec
+++ b/test/record.xspec
@@ -51,6 +51,25 @@
             select="QName( $slot-ns, 'd' )" />
 
   <scenario label="R:make-record-header">
+    <scenario label="with no name">
+      <call function="R:make-record-header">
+        <param name="slots" select="3" />
+      </call>
+
+      <expect label="produces an R:Record element"
+              test="$x:result instance of element( R:Record )" />
+
+      <expect label="R:Record type matches the generic R:Record"
+              test="R:is-a( $R:qname, $x:result )" />
+
+      <expect label="R:Record type does not match other QName"
+              test="not( R:is-a( $test-qname-2, $x:result ) )" />
+
+      <expect label="R:Record element contains number of slots"
+              test="R:slot-count( $x:result ) = 3" />
+    </scenario>
+
+
     <scenario label="with no supertype">
       <call function="R:make-record-header">
         <param name="qname" select="$test-qname" />