From 2f30c3d245f75fbe14012e2d3ab480f3556de922 Mon Sep 17 00:00:00 2001
From: Robin Sommer <robin@icir.org>
Date: Mon, 7 Feb 2011 16:10:09 -0800
Subject: [PATCH] Adding some tests for the record-extension feature.

These will go somewhere else eventually, just making sure they don't
get lost.
---
 testing/rec.bro       | 17 +++++++++++++++++
 testing/rec2.bro      | 17 +++++++++++++++++
 testing/wrong-rec.bro | 13 +++++++++++++
 3 files changed, 47 insertions(+)
 create mode 100644 testing/rec.bro
 create mode 100644 testing/rec2.bro
 create mode 100644 testing/wrong-rec.bro

diff --git a/testing/rec.bro b/testing/rec.bro
new file mode 100644
index 0000000000..904edd4e8c
--- /dev/null
+++ b/testing/rec.bro
@@ -0,0 +1,17 @@
+# @TEST-EXEC: bro %INPUT >output
+# @TEST-EXEC: btest-diff output
+
+type Foo: record {
+        a: count;
+        b: count &optional;
+};
+
+redef record Foo += {
+        c: count &default=42;
+        d: count &optional;
+};
+
+global f: Foo = [$a=21];
+
+print f;
+
diff --git a/testing/rec2.bro b/testing/rec2.bro
new file mode 100644
index 0000000000..c8324ae577
--- /dev/null
+++ b/testing/rec2.bro
@@ -0,0 +1,17 @@
+# @TEST-EXEC: bro %INPUT >output
+# @TEST-EXEC: btest-diff output
+
+type Foo: record {
+        a: count;
+        b: count &optional;
+};
+
+redef record Foo += {
+        c: count &default=42;
+        d: string &optional;
+};
+
+global f: Foo = [$a=21, $d="XXX"];
+
+print f;
+
diff --git a/testing/wrong-rec.bro b/testing/wrong-rec.bro
new file mode 100644
index 0000000000..e5f553bf45
--- /dev/null
+++ b/testing/wrong-rec.bro
@@ -0,0 +1,13 @@
+# @TEST-EXEC-FAIL: bro %INPUT >output 2>&1
+# @TEST-EXEC: btest-diff output
+
+type Foo: record {
+        a: count;
+        b: count &optional;
+};
+
+redef record Foo += {
+        c: count;
+        d: string &optional;
+};
+