Add more tests for previously-untested BIFs

testing/btest/Baseline/bifs.all_set/out

@@ -0,0 +1,3 @@
+F
+F
+T

testing/btest/Baseline/bifs.any_set/out

@@ -0,0 +1,3 @@
+T
+F
+F

testing/btest/Baseline/bifs.clear_table/out

@@ -0,0 +1,2 @@
+1
+0

testing/btest/Baseline/bifs.exit/out

@@ -0,0 +1 @@
+hello

testing/btest/Baseline/bifs.getsetenv/out

@@ -0,0 +1,3 @@
+OK
+OK
+OK

testing/btest/Baseline/bifs.length/out

@@ -0,0 +1,6 @@
+1
+4
+2
+0
+0
+0

testing/btest/Baseline/bifs.md5/output

@@ -2,3 +2,5 @@ f97c5d29941bfb1b2fdab0874906ab82
 7b0391feb2e0cd271f1cf39aafb4376f
 f97c5d29941bfb1b2fdab0874906ab82
 7b0391feb2e0cd271f1cf39aafb4376f
+571c0a35c7858ad5a0e16b8fdb41adcd
+1751cbd623726f423f734e23a8c7ec06

testing/btest/Baseline/bifs.rand/out

@@ -0,0 +1,6 @@
+185
+236
+805
+47
+996
+498

testing/btest/Baseline/bifs.resize/out

@@ -0,0 +1,4 @@
+3
+5
+0
+7

testing/btest/Baseline/bifs.sort/out

@@ -0,0 +1,2 @@
+[5, 3, 8]
+[3, 5, 8]

testing/btest/Baseline/bifs.system/out

@@ -0,0 +1 @@
+thistest

testing/btest/Baseline/bifs.system_env/out

@@ -0,0 +1 @@
+helloworld

testing/btest/Baseline/bifs.val_size/out

@@ -0,0 +1,2 @@
+72
+72

testing/btest/bifs/all_set.bro

@@ -0,0 +1,15 @@
+#
+# @TEST-EXEC: bro %INPUT >out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local a = vector( T, F, T );
+	print all_set(a);
+
+	local b = vector();
+	print all_set(b);
+
+	local c = vector( T );
+	print all_set(c);
+	}

testing/btest/bifs/any_set.bro

@@ -0,0 +1,15 @@
+#
+# @TEST-EXEC: bro %INPUT >out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local a = vector( F, T, F );
+	print any_set(a);
+
+	local b = vector();
+	print any_set(b);
+
+	local c = vector( F );
+	print any_set(c);
+	}

testing/btest/bifs/clear_table.bro

@@ -0,0 +1,14 @@
+#
+# @TEST-EXEC: bro %INPUT > out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local mytable: table[string] of string = { ["key1"] = "val1" };
+
+	print |mytable|;
+
+	clear_table(mytable);
+
+	print |mytable|;
+	}

testing/btest/bifs/exit.bro

@@ -0,0 +1,9 @@
+#
+# @TEST-EXEC: bro %INPUT >out || test $? -eq 7
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	print "hello";
+	exit(7);
+	}

testing/btest/bifs/getsetenv.bro

@@ -0,0 +1,20 @@
+#
+# @TEST-EXEC: TESTBRO=testvalue bro %INPUT >out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local a = getenv("NOTDEFINED");
+	local b = getenv("TESTBRO");
+	if ( |a| == 0 )
+		print "OK";
+	if ( b == "testvalue" )
+		print "OK";
+
+	if ( setenv("NOTDEFINED", "now defined" ) == T )
+		{
+		if ( getenv("NOTDEFINED") == "now defined" )
+			print "OK";
+		}
+
+	}

testing/btest/bifs/length.bro

@@ -0,0 +1,22 @@
+#
+# @TEST-EXEC: bro %INPUT > out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local mytable: table[string] of string = { ["key1"] = "val1" };
+	local myset: set[count] = set( 3, 6, 2, 7 );
+	local myvec: vector of string = vector( "value1", "value2" );
+
+	print length(mytable);
+	print length(myset);
+	print length(myvec);
+
+	mytable = table();
+	myset = set();
+	myvec = vector();
+
+	print length(mytable);
+	print length(myset);
+	print length(myvec);
+	}

testing/btest/bifs/md5.test

@@ -14,3 +14,6 @@ md5_hash_update("b", "three");
 
 print md5_hash_finish("a");
 print md5_hash_finish("b");
+
+print md5_hmac("one");
+print md5_hmac("one", "two", "three");

testing/btest/bifs/order.bro

@@ -0,0 +1,18 @@
+#
+# @TEST-EXEC: bro %INPUT >out
+# @TEST-EXEC: btest-diff out
+
+function myfunc(a: count, b: count): bool
+	{
+	return a < b;
+	}
+
+event bro_init()
+	{
+	local a = vector( 5, 3, 8 );
+
+	print order(a, myfunc);
+	
+	print a;
+
+	}

testing/btest/bifs/piped_exec.bro

@@ -5,8 +5,10 @@
 
 global cmds = "print \"hello world\";";
 cmds = string_cat(cmds, "\nprint \"foobar\";");
-piped_exec("bro", cmds);
+if ( piped_exec("bro", cmds) != T )
+	exit(1);
 
 # Test null output.
-piped_exec("cat > test.txt", "\x00\x00hello\x00\x00");
+if ( piped_exec("cat > test.txt", "\x00\x00hello\x00\x00") != T )
+	exit(1);
 

testing/btest/bifs/rand.bro

@@ -0,0 +1,24 @@
+#
+# @TEST-EXEC: bro %INPUT >out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local a = rand(1000);
+	local b = rand(1000);
+	local c = rand(1000);
+
+	print a;
+	print b;
+	print c;
+
+	srand(575);
+
+	local d = rand(1000);
+	local e = rand(1000);
+	local f = rand(1000);
+
+	print d;
+	print e;
+	print f;
+	}

testing/btest/bifs/resize.bro

@@ -0,0 +1,26 @@
+#
+# @TEST-EXEC: bro %INPUT >out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local a = vector( 5, 3, 8 );
+
+	print |a|;
+
+	if ( resize(a, 5) != 3 )
+		exit(1);
+
+	print |a|;
+
+	if ( resize(a, 0) != 5 )
+		exit(1);
+
+	print |a|;
+
+	if ( resize(a, 7) != 0 )
+		exit(1);
+
+	print |a|;
+
+	}

testing/btest/bifs/sort.bro

@@ -0,0 +1,18 @@
+#
+# @TEST-EXEC: bro %INPUT >out
+# @TEST-EXEC: btest-diff out
+
+function myfunc(a: count, b: count): bool
+	{
+	return a < b;
+	}
+
+event bro_init()
+	{
+	local a = vector( 5, 3, 8 );
+
+	print sort(a, myfunc);
+	
+	print a;
+
+	}

testing/btest/bifs/system.bro

@@ -0,0 +1,15 @@
+#
+# @TEST-EXEC: bro %INPUT
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local a = system("echo thistest > out");
+	if ( a != 0 )
+		exit(1);
+
+	local b = system("");
+	if ( b == 0 )
+		exit(1);
+
+	}

testing/btest/bifs/system_env.bro

@@ -0,0 +1,21 @@
+#
+# @TEST-EXEC: bro %INPUT
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local vars: table[string] of string = { ["TESTBRO"] = "helloworld" };
+
+	# make sure the env. variable is not set
+	local myvar = getenv("TESTBRO");
+	if ( |myvar| != 0 )
+		exit(1);
+
+	local a = system_env("echo $TESTBRO > out", vars);
+	if ( a != 0 )
+		exit(1);
+
+	myvar = getenv("TESTBRO");
+	if ( |myvar| != 0 )
+		exit(1);
+	}

testing/btest/bifs/val_size.bro

@@ -0,0 +1,12 @@
+#
+# @TEST-EXEC: bro %INPUT > out
+# @TEST-EXEC: btest-diff out
+
+event bro_init()
+	{
+	local a = 1;
+	local b = T;
+
+	print val_size(a);
+	print val_size(b);
+	}