verbena 0.2.0

Scripting language
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

fn assertEqual(a,b)
	print a
	print b
	assert eq( a,b)
end	

# Test a basic if statement.
value = 5
result = null

if value > 0
	result = "positive"
end	

assertEqual(result, "positive")

# Test if-else behavior.
value = -3

if value > 0
	result = "positive"
else
	result = "non-positive"
end	

assertEqual(result, "non-positive")

# Test if-elif behavior.
value = 0

if value > 0
	result = "positive"
elif value < 0
	result = "negative"
else
	result = "zero"
end	

assertEqual(result, "zero")

# Test multiple elif branches.
value = 15

if value < 0
	result = "negative"
elif value == 0
	result = "zero"
elif value < 10
	result = "small positive"
elif value < 20
	result = "medium positive"
else
	result = "large positive"
end	

assertEqual(result, "medium positive")

# Test that only the first matching condition executes.
value = 5
result = []

if value > 0
	push(result,"condition 1")
elif value > 3
	push(result,"condition 2")  # This won't execute even though it's true
elif value < 10
	push(result,"condition 3")  # This won't execute even though it's true
end	

assertEqual(result, ["condition 1"])

# Test nested if/elif constructs.
x = 10
y = 5

if x > 0
	if y > 0
		result = "both positive"
	elif y < 0
		result = "x positive, y negative"
	else
		result = "x positive, y zero"
	end
elif x < 0
	result = "x negative"
else
	result = "x zero"
end	

assertEqual(result, "both positive")

# Test complex logical conditions in if/elif statements.
x = 5
y = 11

if x > 10 && y > 10
	result = "both > 10"
elif x > 10 || y > 10
	result = "at least one > 10"
elif x * y > 40
	result = "product > 40"
else
	result = "none of the above"
end	

assertEqual(result, "at least one > 10")