diff options
Diffstat (limited to 'awk/rawk/tests/core/test_multiline.rawk')
-rw-r--r-- | awk/rawk/tests/core/test_multiline.rawk | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/awk/rawk/tests/core/test_multiline.rawk b/awk/rawk/tests/core/test_multiline.rawk deleted file mode 100644 index 95a889f..0000000 --- a/awk/rawk/tests/core/test_multiline.rawk +++ /dev/null @@ -1,43 +0,0 @@ -# Multi-line rawk function definitions -$calculate_area = (width, height) -> { - area = width * height - return area -}; - -$format_message = (name, age) -> { - message = "Name: " name ", Age: " age - return message -}; - -$process_array = (arr) -> { - sum = 0 - for (i in arr) { - sum += arr[i] - } - return sum -}; - -# Test the multi-line functions -BEGIN { - print "Testing multi-line functions:" - - # Test calculate_area function - result = calculate_area(5, 3) - expect_equal(result, 15, "calculate_area(5, 3) should return 15") - print "✓ calculate_area(5, 3) = " result - - # Test format_message function - result = format_message("Alice", 30) - expect_equal(result, "Name: Alice, Age: 30", "format_message(\"Alice\", 30) should return 'Name: Alice, Age: 30'") - print "✓ format_message(\"Alice\", 30) = " result - - # Test with array - test_array[1] = 10 - test_array[2] = 20 - test_array[3] = 30 - result = process_array(test_array) - expect_equal(result, 60, "process_array([10,20,30]) should return 60") - print "✓ process_array([10,20,30]) = " result - - print "🎉 All multi-line function tests passed!" -} \ No newline at end of file |