Add minimal testcase for sqlite writer crash.

The writer did not work with a non-empty set or vector
as the last element in the logged column.

testing/btest/Baseline/scripts.base.frameworks.logging.sqlite.set/ssh.select

@@ -0,0 +1 @@
+CC,AA,BB

testing/btest/scripts/base/frameworks/logging/sqlite/set.bro

@@ -0,0 +1,50 @@
+#
+# Check if set wors in last position (the describe call in sqlite.cc has a good
+# chance of being off by one if someone changes it).
+#
+# @TEST-REQUIRES: which sqlite3
+# @TEST-REQUIRES: has-writer SQLite 
+# @TEST-GROUP: sqlite
+#
+# @TEST-EXEC: bro -b %INPUT
+# @TEST-EXEC: sqlite3 ssh.sqlite 'select * from ssh' > ssh.select
+# @TEST-EXEC: btest-diff ssh.select
+#
+# Testing all possible types.
+
+redef LogSQLite::unset_field = "(unset)";
+
+module SSH;
+
+export {
+	redef enum Log::ID += { LOG };
+
+	type Log: record {
+		ss: set[string];
+	} &log;
+}
+
+function foo(i : count) : string
+	{
+	if ( i > 0 )
+		return "Foo";
+	else
+		return "Bar";
+	}
+
+event bro_init()
+{
+	Log::create_stream(SSH::LOG, [$columns=Log]);
+	Log::remove_filter(SSH::LOG, "default");
+
+	local filter: Log::Filter = [$name="sqlite", $path="ssh", $writer=Log::WRITER_SQLITE];
+	Log::add_filter(SSH::LOG, filter);
+
+	local empty_set: set[string];
+	local empty_vector: vector of string;
+
+	Log::write(SSH::LOG, [
+		$ss=set("AA", "BB", "CC")
+		]);
+}
+