add test for update functionality of tables where a predicate modifies values / indexes.

Seems to work fine for all cases...

testing/btest/scripts/base/frameworks/input/predicatemodifyandreread.bro

@@ -0,0 +1,107 @@
+#
+# @TEST-EXEC: cp input1.log input.log
+# @TEST-EXEC: btest-bg-run bro bro %INPUT 
+# @TEST-EXEC: sleep 2
+# @TEST-EXEC: cp input2.log input.log
+# @TEST-EXEC: sleep 2
+# @TEST-EXEC: cp input3.log input.log
+# @TEST-EXEC: sleep 2
+# @TEST-EXEC: cp input4.log input.log
+# @TEST-EXEC: sleep 2
+# @TEST-EXEC: cp input5.log input.log
+# @TEST-EXEC: btest-bg-wait -k 3
+# @TEST-EXEC: btest-diff out
+#
+
+@TEST-START-FILE input1.log
+#separator \x09
+#path	ssh
+#fields	i	b	s	ss
+#types	int	bool	string	string
+1	T	test1	idx1
+2	T	test2	idx2
+@TEST-END-FILE
+
+@TEST-START-FILE input2.log
+#separator \x09
+#path	ssh
+#fields	i	b	s	ss
+#types	int	bool	string	string
+1	F	test1	idx1
+2	T	test2	idx2
+@TEST-END-FILE
+
+@TEST-START-FILE input3.log
+#separator \x09
+#path	ssh
+#fields	i	b	s	ss
+#types	int	bool	string	string
+1	F	test1	idx1
+2	F	test2	idx2
+@TEST-END-FILE
+
+@TEST-START-FILE input4.log
+#separator \x09
+#path	ssh
+#fields	i	b	s	ss
+#types	int	bool	string	string
+2	F	test2	idx2
+@TEST-END-FILE
+
+@TEST-START-FILE input5.log
+#separator \x09
+#path	ssh
+#fields	i	b	s	ss
+#types	int	bool	string	string
+1	T	test1	idx1
+@TEST-END-FILE
+
+@load frameworks/communication/listen
+
+redef InputAscii::empty_field = "EMPTY";
+
+module A;
+
+type Idx: record {
+	i: int;
+	ss: string;
+};
+
+type Val: record {
+	b: bool;
+	s: string;
+};
+
+global servers: table[int, string] of Val = table();
+global outfile: file;
+global try: count;
+
+event bro_init()
+{
+	try = 0;
+	outfile = open ("../out");
+	# first read in the old stuff into the table...
+	Input::add_table([$source="../input.log", $name="input", $idx=Idx, $val=Val, $destination=servers, $mode=Input::REREAD,
+				$pred(typ: Input::Event, left: Idx, right: Val) = { 
+				if ( left$i == 1 ) {
+					right$s = "testmodified";
+				} 
+
+				if ( left$i == 2 ) {
+					left$ss = "idxmodified";
+				} 
+				return T; 
+				}
+				]);
+}
+
+event Input::update_finished(name: string, source: string) {
+	try = try + 1;
+	print outfile, fmt("Update_finished for %s, try %d", name, try);
+	print outfile, servers;
+	
+	if ( try == 5 ) {
+		close (outfile);
+		Input::remove("input");
+	}
+}