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

@@ -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;
+

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;
+

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;
+};
+