From 5bc99464e0c7cf0f6cefcf545f7b965e393f4ca6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jaakko=20J=C3=A4rvi?= <jarvi@cs.tamu.edu>
Date: Fri, 24 Aug 2001 10:22:45 +0000
Subject: [PATCH] added few tests for cons lists

[SVN r10925]
---
 test/tuple_test_bench.cpp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test/tuple_test_bench.cpp b/test/tuple_test_bench.cpp
index db7840a..87c3f28 100644
--- a/test/tuple_test_bench.cpp
+++ b/test/tuple_test_bench.cpp
@@ -261,6 +261,15 @@ void foo7() {
     dummy(a);
 }
 
+// Testing cons lists
+void foo8()
+{
+  cons<volatile float, null_type> a(1, null_type());
+  cons<const int, cons<volatile float, null_type> > b(2,a);
+  int i = 3;
+  cons<int&, cons<const int, cons<volatile float, null_type> > > c(i, b);
+  BOOST_TEST(make_tuple(3,2,1)==c);
+}
 
 
 // --------------------------------
@@ -274,6 +283,7 @@ int test_main(int, char *[]) {
   foo5();
   foo6();
   foo7();
+  foo8();
 
   return 0;
 }