mirror of
https://github.com/zeek/zeek.git
synced 2025-10-05 08:08:19 +00:00
79 lines
2.4 KiB
Text
79 lines
2.4 KiB
Text
# @TEST-EXEC: bro -b %INPUT >out
|
|
# @TEST-EXEC: btest-diff out
|
|
|
|
function test_case(msg: string, expect: bool)
|
|
{
|
|
print fmt("%s (%s)", msg, expect ? "PASS" : "FAIL");
|
|
}
|
|
|
|
|
|
event bro_init()
|
|
{
|
|
local d1: double = 3;
|
|
local d2: double = +3;
|
|
local d3: double = 3.;
|
|
local d4: double = 3.0;
|
|
local d5: double = +3.0;
|
|
local d6: double = 3e0;
|
|
local d7: double = 3E0;
|
|
local d8: double = 3e+0;
|
|
local d9: double = 3e-0;
|
|
local d10: double = 3.0e0;
|
|
local d11: double = +3.0e0;
|
|
local d12: double = +3.0e+0;
|
|
local d13: double = +3.0E+0;
|
|
local d14: double = +3.0E-0;
|
|
local d15: double = .03E+2;
|
|
local d16: double = .03E2;
|
|
local d17: double = 3.0001;
|
|
local d18: double = -3.0001;
|
|
local d19: double = 1.7976931348623157e308; # maximum allowed value
|
|
local d20 = 7.0;
|
|
local d21 = 7e0;
|
|
local d22 = 7e+1;
|
|
|
|
# Type inference tests
|
|
|
|
test_case( "type inference", type_name(d20) == "double" );
|
|
test_case( "type inference", type_name(d21) == "double" );
|
|
test_case( "type inference", type_name(d22) == "double" );
|
|
|
|
# Test various constant representations
|
|
|
|
test_case( "double representations", d1 == d2 );
|
|
test_case( "double representations", d1 == d3 );
|
|
test_case( "double representations", d1 == d4 );
|
|
test_case( "double representations", d1 == d5 );
|
|
test_case( "double representations", d1 == d6 );
|
|
test_case( "double representations", d1 == d7 );
|
|
test_case( "double representations", d1 == d8 );
|
|
test_case( "double representations", d1 == d9 );
|
|
test_case( "double representations", d1 == d10 );
|
|
test_case( "double representations", d1 == d11 );
|
|
test_case( "double representations", d1 == d12 );
|
|
test_case( "double representations", d1 == d13 );
|
|
test_case( "double representations", d1 == d14 );
|
|
test_case( "double representations", d1 == d15 );
|
|
test_case( "double representations", d1 == d16 );
|
|
|
|
# Operator tests
|
|
|
|
test_case( "inequality operator", d18 != d17 );
|
|
test_case( "absolute value", |d18| == d17 );
|
|
d4 += 2;
|
|
test_case( "assignment operator", d4 == 5.0 );
|
|
d4 -= 3;
|
|
test_case( "assignment operator", d4 == 2.0 );
|
|
test_case( "relational operator", d4 <= d3 );
|
|
test_case( "relational operator", d4 < d3 );
|
|
test_case( "relational operator", d17 >= d3 );
|
|
test_case( "relational operator", d17 > d3 );
|
|
test_case( "division operator", d3/2 == 1.5 );
|
|
|
|
# Max. value test
|
|
|
|
local str1 = fmt("max double value = %.16e", d19);
|
|
test_case( str1, str1 == "max double value = 1.7976931348623157e+308" );
|
|
|
|
}
|
|
|